Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8954 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30141】セルをクリックして動作するマクロを作りたいのですが。。。 みつは 05/10/20(木) 16:01 質問[未読]
【30142】Re:セルをクリックして動作するマクロを作... ぴかる 05/10/20(木) 16:05 回答[未読]
【30144】Re:セルをクリックして動作するマクロを作... Jaka 05/10/20(木) 16:17 回答[未読]
【30145】Re:セルをクリックして動作するマクロを作... みつは 05/10/20(木) 16:24 質問[未読]
【30147】Re:セルをクリックして動作するマクロを作... ぴかる 05/10/20(木) 16:33 回答[未読]
【30148】Re:セルをクリックして動作するマクロを作... Jaka 05/10/20(木) 16:34 発言[未読]
【30149】Re:セルをクリックして動作するマクロを作... みつは 05/10/20(木) 16:39 お礼[未読]
【30141】セルをクリックして動作するマクロを作り...
質問  みつは  - 05/10/20(木) 16:01 -
引用なし
パスワード
   初歩的なことで申し訳ございません。。。
B2の値を１づつ増やすマクロを↓の用に作りました。

Sub Macro1()
　　Range("B2").Value = Range("B2").Value + 1
End Sub

これを、B2のセルをクリックするだけで実行する方法は
ないのでしょうか？？？
B2のセルをクリックするたびに　+１　されるようにしたいのですが、
可能であれば、方法を教えてください！！
お願いします。
【30142】Re:セルをクリックして動作するマクロを...
回答  ぴかる  - 05/10/20(木) 16:05 -
引用なし
パスワード
   みつはさん、こんにちは。

該当シートモジュールに下記マクロを貼り付けて実行してみて下さい。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　With Target
　　　　If .Row = 2 And .Column = 2 Then
　　　　　　.Value = .Value + 1
　　　　End If
　　End With
　　
End Sub
【30144】Re:セルをクリックして動作するマクロを...
回答  Jaka  - 05/10/20(木) 16:17 -
引用なし
パスワード
   こんにちは。
>B2のセルをクリックするだけで実行する方法は
>ないのでしょうか？？？
ないです。
セルの左クリックイベントが無いから....。
Ｗクリック、右クリックならあります。

他代用、
セルの大きさにあわせて、図形等を配置して、これにマクロ登録。
後は、図形等の色、線をなしにするぐらいです。
【30145】Re:セルをクリックして動作するマクロを...
質問  みつは  - 05/10/20(木) 16:24 -
引用なし
パスワード
   ぴかるさん　Jakaさん　お返事ありがとうございます。
＞ぴかるさん
この内容を、私の作った物の下に書けばよろしいですか？
それとも、全く書き直すのでしょうか？

＞Jakaさん
ないんですか・・・
Wクリックならば可能ということですか？？
【30147】Re:セルをクリックして動作するマクロを...
回答  ぴかる  - 05/10/20(木) 16:33 -
引用なし
パスワード
   みつはさんマクロは標準モジュールのものですね。提示マクロはシートモジュール版でして、イベント（セルの内容変更とか色々）にて動作します。まず、マクロ画面のプロジェクトエクスプローラの該当シート部をダブルクリックして頂いて、そこに貼り付けて下さい。

マウス以外でも違うセルからＢ２セルを選択した場合、マクロが動作します。
お試し下さい。
【30148】Re:セルをクリックして動作するマクロを...
発言  Jaka  - 05/10/20(木) 16:34 -
引用なし
パスワード
   ▼みつは さん：
>Wクリックならば可能ということですか？？
はい、でもこんな風に　Cancel = True　にしてもカーソルが中に入っちゃって、
Cancel = True　が効かないと言うか、Cancel = False　の方が、なんて表現していいか操作より？先に動いちゃってうまく行かないです。
私の（Win2000&EXL97）環境では..、98SE&EXL97の時もそうでした。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
If Target.Address(0, 0) = "C3" Then
　 Range("c3").Value = Range("c3").Value + 1
End If
Cancel = False
End Sub
【30149】Re:セルをクリックして動作するマクロを...
お礼  みつは  - 05/10/20(木) 16:39 -
引用なし
パスワード
   ありがとうございました！！
また、お世話になることがあるかも
知れませんが、どうぞよろしくお願いします。

本当にありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8954 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free