Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4036 / 13661 ﾂﾘｰ

←次へ　｜　前へ→

▼

【58839】指定のセルが変更された場合マクロ実行 Upa 08/11/13(木) 14:43

【58840】Re:指定のセルが変更された場合マクロ実行 マクロマン 08/11/13(木) 14:55

【58842】Re:指定のセルが変更された場合マクロ実行 りった 08/11/13(木) 15:07

【58845】Re:指定のセルが変更された場合マクロ実行 にぃ 08/11/13(木) 15:27

【58846】Re:指定のセルが変更された場合マクロ実行 マクロマン 08/11/13(木) 15:38


	【58839】指定のセルが変更された場合マクロ実行

Upa - 08/11/13(木) 14:43 -


	引用なし

	パスワード

セルのF列が変更された場合にのみ
登録されたマクロを実行することは可能なのでしょうか


	【58840】Re:指定のセルが変更された場合マクロ実行

マクロマン - 08/11/13(木) 14:55 -


	引用なし

	パスワード

シートモジュールのChangeイベントでTargetのColumnによってIf関数で
条件分岐してはいかがでしょう？

と書いたもののこれもコードを丸ごと書かないと↓みたいに無視される
のかもね・・・。

tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=58818;id=excel


	【58842】Re:指定のセルが変更された場合マクロ実行

りった - 08/11/13(木) 15:07 -


	引用なし

	パスワード

回答しようとしたら先越されていました。
>と書いたもののこれもコードを丸ごと書かないと・・・
とのことですので「悔し紛れ」を兼ねて書いておきます。

尚、F列以外を変更した場合にもif文は処理されますが、「元に戻す」は効くのでそれほど害無いかと思います。

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Column = 6 Then
　　function1 Target.Address
　End If
End Sub

Sub function1(ByVal s As String)
　Range("A1").Value = s
End Sub


	【58845】Re:指定のセルが変更された場合マクロ実行

にぃ - 08/11/13(木) 15:27 -


	引用なし

	パスワード

こんにちは！

お先にマクロマンさんすみません。
出しゃばったことしてしまってm(__)m
せっかくヒントがあるのにもったいないな、と思い作ってしまいました。

ちなみに質問内容ですが
>セルのF列が変更された場合にのみ
>登録されたマクロを実行することは可能なのでしょうか
こちらの回答だけですと「可能です。」といってしまえば
終わってしまうように感じますが。

私の考えですと、マクロマンさんの言ったとおりシートモジュールを使い、
IF文の分岐で「Call」を使えば出来ると思います。
りったさんからもコードが記載されていますので
試していけば出来るかと思います。


	【58846】Re:指定のセルが変更された場合マクロ実行

マクロマン - 08/11/13(木) 15:38 -


	引用なし

	パスワード

>出しゃばったことしてしまってm(__)m
>せっかくヒントがあるのにもったいないな、と思い作ってしまいました。

にいさんのレスのことは全然気にしてませんよ。
いつも思うのは、ヒントだけ書いておいて、他の回答者が回答(解答)の
コードを書いても、自分で勉強しようとする意志のある方はヒントだけ
の回答者に対してもきちんと礼を述べられています。
コードだけ欲しい、というスタンスの方は、ヒントだけの回答者は無視
する傾向にあるようです。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4036 / 13661 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free