[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『特定の範囲で有効にしたい』(しゅう)
決めたセル範囲のセルのみクリックすると、日付が入るようにしたいです。
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.