Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5851 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48533】Ｒｉｇｈｔ　Ｃｌｉｃｋイベントについて ピンキー 07/4/20(金) 22:51 質問[未読]
【48538】Re:Ｒｉｇｈｔ　Ｃｌｉｃｋイベントについて [名前なし] 07/4/21(土) 13:30 回答[未読]
【48547】Re:Ｒｉｇｈｔ　Ｃｌｉｃｋイベントについて ピンキー 07/4/21(土) 22:03 お礼[未読]
【48533】Ｒｉｇｈｔ　Ｃｌｉｃｋイベントについて
質問  ピンキー  - 07/4/20(金) 22:51 -
引用なし
パスワード
   ワークシートイベントの、Ｒｉｇｈｔ　Ｃｌｉｃｋで、ある特定の２ヵ所のセルｏｒセル範囲、あるいは２ヵ所以上のセルｏｒセル範囲を選択した時のみ、それぞれ別のプログラムを実行したい。

例
セルＡ５を右クリックしたときは、セルＢ１：Ｂ５にあらかじめ入力されている数字の合計をセルＣ１０に表示する。
セルＤ１からＤ１０までの範囲のどこかを右クリックすると、アクティブセルが
Ｅ８に移動する。

と、こんな具合にです。
【48538】Re:Ｒｉｇｈｔ　Ｃｌｉｃｋイベントにつ...
回答  [名前なし]  - 07/4/21(土) 13:30 -
引用なし
パスワード
   そのまんまコードにすると、

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　　
　　'セルA5を右クリックしたときは､セルB1:B5にあらかじめ入力されている
　　'数字の合計をセルC10に表示する｡
　　If Not Intersect(Target, Range("A5")) Is Nothing Then
　　　　Range("C10").Value = WorksheetFunction.Sum(Range("B1:B5"))
　　　　Cancel = True
　　End If
　　
　　'セルD1からD10までの範囲のどこかを右クリックすると､アクティブセルが
　　'E8に移動する｡
　　If Not Intersect(Target, Range("D1:D10")) Is Nothing Then
　　　　Range("E8").Select
　　　　Cancel = True
　　End If
End Sub

です。
【48547】Re:Ｒｉｇｈｔ　Ｃｌｉｃｋイベントにつ...
お礼  ピンキー  - 07/4/21(土) 22:03 -
引用なし
パスワード
   名無しさん、まことにありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5851 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free