146

view

amachann3625さん

一度に複数の質問も、VBA初心者が望むものとしても、ちょっと欲張りすぎの感がありますが、、、

(1)と(2)について
P9:U9、W9:AB9 にはタイトル行がある想定です。
シート名タブを右クリックして「コードの表示」を押下、出てきた VisualBasicEditor画面（VBE画面）にコピペします。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, myCol As Integer

On Error Resume Next
For Each r In Target
If Not Intersect(r, Me.Range("B10:B15,I10:I15")) Is Nothing Then
If IsNumeric(r.Value) And IsNumeric(r.Offset(0, 1).Value) Then
Application.EnableEvents = False
r.Offset(0, 1).Value = r.Offset(0, 1).Value + r.Value
myCol = r.Row + r.Column + 4
Me.Cells(Me.Rows.Count, myCol).End(xlUp).Offset(1, 0).Value = r.Value
Application.EnableEvents = True
End If
End If
Next r

End Sub


(3)については、画面も見えず条件が良く解かりません。

> F、M列に設けたCボタン

Cボタンは CommandButton の独自略だろうと思われますがこれが F列に 1つなのか、F10:F15の各行にそれぞれ配置するつもりなのかで処理コードも全然変わります。

取り合えず、ActiveX（コントロールツールボックス）の CommandButton を 各列の各行に複数置く前提です。コードは全てシートモジュールに書きます。

F10 に CommandButton1
G10 に CommandButton2
M10 に CommandButton3
N10 に CommandButton4

Private Sub CommandButton1_Click()
Call CmdBtn(CommandButton1)
End Sub

Private Sub CommandButton2_Click()
Call CmdBtn(CommandButton2)
End Sub

Private Sub CommandButton3_Click()
Call CmdBtn(CommandButton3)
End Sub

Private Sub CommandButton4_Click()
Call CmdBtn(CommandButton4)
End Sub


Sub CmdBtn(cb As Object)
Dim r As Range, lr As Range

Set r = cb.TopLeftCell
Select Case r.Column
Case 6, 13
Set lr = Me.Cells(Me.Rows.Count, (r.Row + r.Column)).End(xlUp)
If IsNumeric(r.Offset(0, -3)) And IsNumeric(lr) Then
r.Offset(0, -3).Value = r.Offset(0, -3).Value - lr.Value
lr.ClearContents: r.Offset(0, -4).ClearContents
End If
Case 7, 14
Set lr = Me.Cells(Me.Rows.Count, (r.Row + r.Column - 1)).End(xlUp).Offset(1, 0)
r.Offset(0, -5).ClearContents
r.Offset(0, -4).ClearContents
Me.Range(Me.Cells(10, r.Row + r.Column - 1), lr).ClearContents
End Select
End Sub