[[20050719222425]] 『セルの内容がかわるとマクロを実行させたい』(KI) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セルの内容がかわるとマクロを実行させたい』(KI)
 いつもお世話になります。
 早速ですが、C1セルで入力規則を使ってリストから選択して入力するようにしました。
 そこで質問なんですが、リスト選択することによってC1の内容が変更されると同時に
 マクロを実行させるにはどのようにすれば良いのでしょうか?
 マクロ初心者です。どうか宜しくお願いします。  Excel 2000です。  

 Changeイベントですね。
シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
'ここに記述
End Sub
(kenbou)

 kenbouさん
 どうも有難うございました。
 出来ました。     (KI)

 すみません、少し日にちが過ぎてしまっていますが、また行き詰まってしま
 いましたので、続けての質問をお願い出来ますでしょうか。

 上記の記述では、シート内のどのセルが変化しても実行されてしましますが
 指定したセルのみ、又は指定した範囲内のセルのみが変化した時にだけ実行
 させたい場合にはどのような記述にすれば良いのでしょうか。
            (KI)   

 if target.address <> "$A$1" then exit sub
のようにifで行けます。
[[20050508095758]] 『追加セルをクリックするとそのセルに"■"を表示』(ととろ) 
こちらも参考になります。
(kenbou)    

 kenbouさん、お世話になります。有難うございます。
 if target.address <> "$A$1" then exit sub
 でうまくできました。 が、・・・
 範囲をA1:A10でする必要があり、
 if target.address <> "$A$1:$A$10" then exit sub
 としましたが、反応してくれません。
 こんな記述はルール違反なのでしょうか?
                        (KI)   

 上の「とろろ」さんのスレッドをご覧になりましたか?
target.column <> 1 の時と target.row > 10 の時 exit sub
すればOKです。また、ramrunさん達のお答えも参考に頑張ってください。
(kenbou)  

 kenbouさん、出来ました!有難うございました。
「とろろ」さんの件、もう一度よーく見たらズバリ書いて在りましたね。
 折角、教えて頂きながら、見えていませんでした。すみませんでした。
 今後とも宜しくお願いします。
                         (KI)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.