Excel VBA質問箱 IV

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

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


6733 / 13644 ツリー ←次へ | 前へ→

【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 < 5 Then Exit Sub  
 If .Column > 5 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 < 5 Then Exit Sub  
> If .Column > 5 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, を入れることが出来ず悩んでいました。
今後とも宜しくお願いします。

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