| |
こんにちは。かみちゃん です。
>２つあるプログラムを一つにするにはどのようにプログラムを
>変更すれば良いでしょうか？
意味がわかりません。
ご提示のコードは、シートモジュールに記述する
Worksheet_Changeイベントという、セルの値が変わったら動作させるコードなので
すが、これは、１つのシートモジュールにひとつしか書けません。
そのため、２つを１つにまとめるには？と聞かれても、２つはどういう処理をまと
めたいのかがわからなければ、具体的なことは書けません。
たとえば、
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
というコードが１つのシートモジュールの中に記述したいのであれば、
以下のようなコードにします。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
