エクセル マクロ ダブルクリックによる設定

質問

エクセルのマクロについての質問です。
ある特定のセル（”Ｈ１：Ｋ１”かな？）をダブルクリックすると今日の日付が記入される様になり、また別のセルをダブルクリックするとユーザーフォームが立ち上がる様なマクロを組みたいと考えております。
詳しい方がおりましたら、是非お願いします。

回答No.2

picklse · ベストアンサー

VBEで目的のシートのコードを表示し、次の式を入力します。
ユーザーフォームの表示については、適宜セル範囲を設定してください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 And (Target.Column >= 8 And Target.Column <= 11) Then
Target.Value = Date
ElseIf Target.Row = 2 And Target.Column = 8 Then
UserForm1.Show
End If
End Sub

お礼

わかりやすい説明ありがとうございます。とても助かりました。

回答No.1

rin01

こんにちは～♪

WorksheetのBeforeDoubleから

Dim myRange As Range
Set myRange = Intersect(Target, Range("H1:K10"))

If myRange Is Nothing Then Exit Sub
　myRange.Value = Date
　UserForm1.Show

End Sub

でいいかな？。。。。Rinでした～♪♪

お礼

わかりやすい説明ありがとうございます。とても助かりました。