|
▼かみちゃん さん:
他のサイトで教えて頂いたもので、完成できました。
色々と考えていただき、有難うございます。
>こんにちは。かみちゃん です。
>
>>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
|
|