|
▼Kein さん:
うまく出来ました。
毎回の的確な回答ありがとうございます。
解決です。
>なんかよく分からないけど、これで試してみて下さい。
>
>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
>
>要はフラグをうまく使って適当な判定をさせたらどうか ? という提案ですから、
>このままで目的どおりの動作をしなかったとしても、ヒント程度にはなるかと
>思います。
|
|