[[20220120195644]] 『特定の範囲で有効にしたい』(しゅう) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『特定の範囲で有効にしたい』(しゅう)

決めたセル範囲のセルのみクリックすると、日付が入るようにしたいです。
C3〜C10、F3〜F10、I3〜I10と複数範囲で有効にするにはどのように組めば良いでしょうか?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("C3:C10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

< 使用 Excel:Office365、使用 OS:Windows10 >


 Intersect(Target, Range("C3:C10"))
 を
 Intersect(Target, Range("C3:C10,F3:F10,I3:I10"))
 ではどうだろうか?
(ねむねむ) 2022/01/20(木) 20:14

既に回答のあるところですが↓みたいにするのもアリかとおもいます。
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Intersect(Range("C3,F3,I3").EntireColumn, Rows("3:10"))) Is Nothing Then
            Cancel = True
            Target.Formula = Date
        End If
    End Sub

(もこな2 ) 2022/01/20(木) 20:21


ありがとうございます!

今回は、

C3:C10,F3:F10,I3:I10

で組みます。皆様ありがとうございます。

(しゅう) 2022/01/20(木) 20:59


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.