エクセル2000：決まったセルに数値が入力されたらマクロを起動させたい

質問

エクセル2000：決まったセルに数値が入力されたらマクロを起動させたい。

たとえばセルＡ１に、１以上の数値が入力されたときに、セルＡ２に今日の日付を入力させる
マクロの記述はどうすれば宜しいでしょうか？

以下の記述で、セルＡ２に日付は入力させられるのですが、
セルＡ１に１以上の数値が入力された場合に起動させる方法が分かりません。

Range("A2").Select
SendKeys "^(;){ENTER}"

ご教授の程、宜しくお願い申し上げます。

回答No.6

imogasi · ベストアンサー

セルA1に１以上の数値が入力されたら、A2に現在日付をセットする、で良いのかな。
Sheet1のシートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value > 1 Then
Range("A2").Value = Date
End If
End If
End Sub

＞起動させる方法が分かりません
SendKeys "^(;){ENTER}"
に拘らずにA2に日付が入れば良いのでしょう。
Sendkeyなど最後の手段で、こんなコードなどはまねしないほうが良いと思う。

お礼

ありがとうございます。

丸写しさせて頂きました。バッチリです。

会社のパソコンは、ＯＳはＸＰまで何とか上がってますが、
Officeは2000のまま。

なるほど、Sendkeysはバグるんですね。
今後、使わないようにします。
Dateが簡単ですね。

回答No.5

aloha88600

＞起動じゃなくて実行ですね。

そうですね　　質問者の表現に合わせました。

Sendkeysは　つい最近エラーで悩みました

作成したマシンは WinXP+Excel2002 これで問題ありませんでしたが
ノートはWin Vista+Excel2002 これでエラーが出ました
複数の環境で運用するので困りました。
MSのサイトにこのケースが報告されていてVista+Excel2002での不具合うんうん
とありました　2003以降では解消されているみたいですが・・。

結局コードを修正しました。　SendKeysは使わないことにしました

OSの違いによるトラブルは結構経験しています
OS側へ依存するコードがあるとかなりの確率でひっかかってきました

Win98、2000のころユーザーフォーム上にスクリーンキーボードを作成したりもしましたが
Xpになってから　正常に動作しません

過去の作品がことごとく使えなくなっていくのは本当に困りものです

お礼

ありがとうございました。
Sendkeysの使用は控えたいと思います。

回答No.4

MARU4812

> それを判断する時点で既にマクロは起動しているからです
確かに＾＾；
起動じゃなくて実行ですね。でもまぁ、厳密に言い出すと
マクロの意味の定義によっては「起動している」という表現も
微妙になりそうな気もするけどね。

Worksheet_Change イベント等については既に十分情報が揃ってる
ようなので、
> 以下の記述で、セルＡ２に日付は入力させられるのですが、
日付を入れるだけで SendKeys は使わない方がいいです。
SendKeys はその仕様上、誤動作を引き起こす可能性を持って
いますから、使わないで済むなら使わないようにする事を
お勧めします。
　　Dim ws As Excel.Worksheet
　　Set ws = ThisWorkbook.Worksheets("Sheet1")
　　ws.Range("$A$2").Value = Date
ただし「地域と言語のオプション」の影響を受けます。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/function/vba_date.html#date

お礼

ありがとうございます。
Sendkeysの使用は控えたいと思います。

回答No.3

烏賊 太郎（@ika_taro）

決まったセルに数値が入力されたらマクロを起動させたいとの事ですが

回答１番の方の、ワークシートモジュールのChangeイベントで似たような事が出来ます。

Changeイベントはシートのいずれかのセルが変更されたら動作しますので、これを応用します。

Private Sub Worksheet_Change(ByVal Target As Range)

;Target.Addressに変更されたセルのアドレスが格納されます、この場合はA1のセルが変更された時に処理を行う様にしてます。どのセルが変更されてもこのイベントが発生しますがA1以外は何も処理をしていないので、見かけ上はA1に変更が有ったときにマクロが動作している様に見えます。

If Target.Address = "$A$1" Then
If Target > 1 Then
Range("A2").Select
SendKeys "^(;){ENTER}"
End If
End If

End Sub

お礼

ありがとうございます。

Sendkeysは将来的にバグりそうなので、回答１さんを使わせて頂きました。

回答No.2

aloha88600

OSを書きましょう

SendKeysはOSの制約を受けます！

ちなみに　

決まったセルに数値が入力されたらマクロを起動させたい　というのは不可能です

それを判断する時点で既にマクロは起動しているからです

お礼

失礼しました。
ＯＳはＷｉｎＸＰです。
以後、気を付けます。

皆さんの回答よりChangeイベントで解決出来ることが分かりました。

回答No.1

nattocurry

ワークシートモジュールのChangeイベントを利用しましょう。
詳しくはこちら↓を参考にしてください。
http://www9.plala.or.jp/siouxsie/date06.html

お礼

ありがとうございます。
回答１さんを参考にさせて頂きました。

教えて頂いたサイトは分かりやすいので、じっくり勉強したいと思います。