Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6754 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43451】範囲について koshimizu 06/10/16(月) 17:12 質問[未読]
【43452】Re:範囲について ハチ 06/10/16(月) 17:16 発言[未読]
【43465】Re:範囲について ponpon 06/10/16(月) 20:15 発言[未読]
【43483】Re:範囲について koshimizu 06/10/17(火) 8:23 お礼[未読]
【43451】範囲について
質問  koshimizu  - 06/10/16(月) 17:12 -
引用なし
パスワード
   こんにちは。
ダブルクリックで丸を入力する方法を過去ログから見つけました。
範囲を（E:E)列　（G:G)列　（J:J)列に等に指定する方法がわかりません。
又はその範囲A1からD10などの方法
If .Column < ５ Then Exit Sub　　
　If .Column > ５ Then Exit Sub 以外で　
宜しくお願いします。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
　　With Target
　　　　If .Column <> 1 Then Exit Sub　　
　　　　Cancel = True
　　　　ActiveCell.FormulaR1C1 = "○"
　　　　End With
End Sub
【43452】Re:範囲について
発言  ハチ  - 06/10/16(月) 17:16 -
引用なし
パスワード
   ▼koshimizu さん：
>こんにちは。
>ダブルクリックで丸を入力する方法を過去ログから見つけました。
>範囲を（E:E)列　（G:G)列　（J:J)列に等に指定する方法がわかりません。
>又はその範囲A1からD10などの方法
> If .Column < ５ Then Exit Sub　　
>　If .Column > ５ Then Exit Sub 以外で　

Intersectで過去ログを検索してみてください。
【43465】Re:範囲について
発言  ponpon  - 06/10/16(月) 20:15 -
引用なし
パスワード
   ▼koshimizu さん：
こんな感じです。

>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
　　　　If Application.Intersect(Target, Range("E:E,G:G,J:J")) Is Nothing Then Exit Sub

>　　　　Cancel = True
>　　　　ActiveCell.FormulaR1C1 = "○"
>End Sub
【43483】Re:範囲について
お礼  koshimizu  - 06/10/17(火) 8:23 -
引用なし
パスワード
   ハチさん
ponpon さん
おはようございます。

ハチさん　アドバイスありがとうございました。
ヘルプ調べてみましたが？？
今朝見るとponpon さん　このたびも解答頂き、ありがとうございます。
ponpon さんお久しぶりです。
>　　　　If Application.Intersect(Target, Range("E:E,G:G,J:J")) Is
Target, を入れることが出来ず悩んでいました。
今後とも宜しくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6754 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free