|
なんかよく分からないけど、これで試してみて下さい。
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Dim MyDate As Date
Dim Flg1 As Boolean, Flg2 As Boolean
With Target
If .Count > 1 Then Exit Sub
Cancel = True
Select Case .Address(0, 0)
Case "C3", "C9", "C11"
Flg1 = True: Flg2 = True
If ktCalDate(MyDate, Date, kt_土日祝, , , _
"日付を入力[クリック]しなさい。", 六曜:="勝友負仏安赤") Then
.Value = MyDate
End If
Case "C17"
UserForm18.Show vbModeless: Flg2 = True
Case "C13", "C15"
UserForm19.Show vbModeless: Flg1 = True
Case Else
Flg1 = True: Flg2 = True: Exit Sub
End Select
End With
On Error Resume Next
If Flg1 Then UserForm18.Hide
If Flg2 Then UserForm19.Hide
End Sub
要はフラグをうまく使って適当な判定をさせたらどうか ? という提案ですから、
このままで目的どおりの動作をしなかったとしても、ヒント程度にはなるかと
思います。
|
|