|
こんにちは。かみちゃん です。
>2つあるプログラムを一つにするにはどのようにプログラムを
>変更すれば良いでしょうか?
意味がわかりません。
ご提示のコードは、シートモジュールに記述する
Worksheet_Changeイベントという、セルの値が変わったら動作させるコードなので
すが、これは、1つのシートモジュールにひとつしか書けません。
そのため、2つを1つにまとめるには?と聞かれても、2つはどういう処理をまと
めたいのかがわからなければ、具体的なことは書けません。
たとえば、
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
MsgBox "A列の値が変更されました。"
Else
MsgBox "A列以外の値が変更されました。"
End If
End Sub
と
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
MsgBox "B列の値が変更されました。"
Else
MsgBox "B列以外の値が変更されました。"
End If
End Sub
というコードが1つのシートモジュールの中に記述したいのであれば、
以下のようなコードにします。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1
MsgBox "A列の値が変更されました。"
Case 2
MsgBox "B列の値が変更されました。"
Case Else
MsgBox "A列B列以外の値が変更されました。"
End Select
End Sub
|
|