| |
▼かみちゃん さん：
他のサイトで教えて頂いたもので、完成できました。
色々と考えていただき、有難うございます。
>こんにちは。かみちゃん です。
>
>>２つあるプログラムを一つにするにはどのようにプログラムを
>>変更すれば良いでしょうか？
>
>意味がわかりません。
>ご提示のコードは、シートモジュールに記述する
>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
|
|
たまちゃん
- 07/2/8(木) 3:58 -
