Excel VBA質問箱 IV

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

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


5732 / 13645 ツリー ←次へ | 前へ→

【49187】列を監視する 素人 07/5/26(土) 19:47 質問[未読]
【49188】Re:列を監視する ichinose 07/5/26(土) 20:58 発言[未読]
【49194】Re:列を監視する 素人 07/5/27(日) 12:08 お礼[未読]

【49187】列を監視する
質問  素人  - 07/5/26(土) 19:47 -

引用なし
パスワード
   例として、A列を監視して、A1 A2・・・・とA1に1 A2に2 A3に””と定時間ごとに表示されるとします。
常に新しいく入った数値を(文字)を拾って IFで条件分岐させたいのですが、
この列を監視するマクロが調べたのですが分りませんでしたので、宜しくお願いします。

【49188】Re:列を監視する
発言  ichinose  - 07/5/26(土) 20:58 -

引用なし
パスワード
   ▼素人 さん:
こんばんは。

>例として、A列を監視して、A1 A2・・・・とA1に1 A2に2 A3に””と定時間ごとに表示されるとします。
>常に新しいく入った数値を(文字)を拾って IFで条件分岐させたいのですが、
>この列を監視するマクロが調べたのですが分りませんでしたので、宜しくお願いします。
はっきりとは、仕様(なさりたい事)が把握できませんが、
セルに何らかの入力があった場合に発生するイベントが使えませんか?

当該シートモジュールに

'=====================================================================
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rng As Range
  Set rng = Application.Intersect(Columns(1), Target)
  If Not rng Is Nothing Then
    MsgBox "A列の " & rng.Address & "に変更がありました"
    End If
End Sub


上記の例は、当該シートのA列のセルに入力があると
入力対象セルアドレスが表示されます。

これが使えませんか?

【49194】Re:列を監視する
お礼  素人  - 07/5/27(日) 12:08 -

引用なし
パスワード
   ▼ichinose さん:
こんにちは
早速、有難う御座います。

>はっきりとは、仕様(なさりたい事)が把握できませんが、
>セルに何らかの入力があった場合に発生するイベントが使えませんか?

デイトレード用に自動売買ソフトを素人ながら挑戦しているところです。
A列を売買判定行として、買い、売りシグナルを表示させます。
シグナルを監視して、シグナルが発生すれば、SELL関数を使用して
発注ファイルを開くそんな考えです。
サンプルマクロを参考に素人なりに考えて見ます。
有難うございました。
>'=====================================================================
>Private Sub Worksheet_Change(ByVal Target As Range)
>  Dim rng As Range
>  Set rng = Application.Intersect(Columns(1), Target)
>  If Not rng Is Nothing Then
>    MsgBox "A列の " & rng.Address & "に変更がありました"
>    End If
>End Sub
>
>
>上記の例は、当該シートのA列のセルに入力があると
>入力対象セルアドレスが表示されます。
>
>これが使えませんか?

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