Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35361 / 76738 ←次へ | 前へ→

【46577】Re:2つあるプログラムを一つにするにすればよいですか?
発言  かみちゃん  - 07/2/7(水) 7:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>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

0 hits

【46576】2つあるプログラムを一つにするにすればよいですか? たまちゃん 07/2/7(水) 3:49 質問
【46577】Re:2つあるプログラムを一つにするにすれ... かみちゃん 07/2/7(水) 7:11 発言
【46607】Re:2つあるプログラムを一つにするにすれ... たまちゃん 07/2/8(木) 3:58 お礼
【46609】Re:2つあるプログラムを一つにするにすれ... かみちゃん 07/2/8(木) 6:50 発言

35361 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free