Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4695 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【55194】特定のセルが更新されると動くマクロ あり 08/4/22(火) 11:40 質問[未読]
【55195】Re:特定のセルが更新されると動くマクロ マクロマン 08/4/22(火) 11:46 発言[未読]
【55197】Re:特定のセルが更新されると動くマクロ あり 08/4/22(火) 11:55 質問[未読]
【55200】Re:特定のセルが更新されると動くマクロ マクロマン 08/4/22(火) 12:38 発言[未読]
【55201】Re:特定のセルが更新されると動くマクロ あり 08/4/22(火) 14:02 お礼[未読]
【55196】Re:特定のセルが更新されると動くマクロ マクロマン 08/4/22(火) 11:51 発言[未読]
【55198】Re:特定のセルが更新されると動くマクロ あり 08/4/22(火) 11:59 お礼[未読]
【55194】特定のセルが更新されると動くマクロ
質問  あり  - 08/4/22(火) 11:40 -
引用なし
パスワード
   特定のセルが更新されると他のセルの内容を変更するマクロを教えてください。
コンボボックスを使うと、バグるのでコンボボックスを使わずにマクロを作成したい。
【55195】Re:特定のセルが更新されると動くマクロ
発言  マクロマン  - 08/4/22(火) 11:46 -
引用なし
パスワード
   更新の有無にかかわらず、
特定のセルが編集されたら、ということでしたら
可能です。

つまり、セルが編集されて、編集前と編集後のセルの値
が同じであっても更新された、と看做していいなら、
ということです。

Private Sub Worksheet_Change(ByVal Target As Range)

'A1セル以外が変更されたら何もしない
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

'処理

End Sub
【55196】Re:特定のセルが更新されると動くマクロ
発言  マクロマン  - 08/4/22(火) 11:51 -
引用なし
パスワード
   もし、編集前と編集後が同じだったらイベントを起動したくない
場合は、編集前の値をセルなどに記録しておき、記録したおいたものと
Targetの値を比較してIF文で条件分岐します。

Changeイベントの最後にTargetの値を記録しておけば、次イベントが
起動したときに使えます。
【55197】Re:特定のセルが更新されると動くマクロ
質問  あり  - 08/4/22(火) 11:55 -
引用なし
パスワード
   マクロマンさま

早速ありがとうございました。
大変参考になりました。

ついでに、素人的にお聞きしてもよろしいでしょうか？
今、やりたい事はたとえば
Ａ１セルを更新するとＢ１セルをマクロで変更
Ａ２セルを更新するとＢ２セルをマクロで変更
ということをしたいのですが、
先ほど教えていただいたPribate　Subの記述の中に
複数回ifを入れて操作すればよいということでしょうか？？

初歩的な質問ですいません。
【55198】Re:特定のセルが更新されると動くマクロ
お礼  あり  - 08/4/22(火) 11:59 -
引用なし
パスワード
   マクロマンさま

補足まで頂きありがとうございます。
・・・実はもう少し質問追加してしまいました。
よろしければ、教えてください。
【55200】Re:特定のセルが更新されると動くマクロ
発言  マクロマン  - 08/4/22(火) 12:38 -
引用なし
パスワード
   二つの方法があります。

IF文で条件分岐する場合

If 条件A Then
　　処理A
ElseIf 条件B Then
　　処理B
Else
　　処理C
End If

または、
If 条件A Then
　　処理A
ElseIf 条件B Then
　　処理B
End If

Select Caseを使う場合

Select Case Target.Address(0,0)
　Case "A1"
　 処理A
　Case "B1"
　 処理B
　Case Else
　 処理C
End Select
または、
Select Case Target.Address(0,0)
　Case "A1"
　 処理A
　Case "B1"
　 処理B
End Select
【55201】Re:特定のセルが更新されると動くマクロ
お礼  あり  - 08/4/22(火) 14:02 -
引用なし
パスワード
   マクロマンさま

大変参考になりました。
動かしてみましたが、うまく作動しました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4695 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free