Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36182 / 76738 ←次へ | 前へ→

【45739】Re:コードがうごかんです
お礼  おお  - 07/1/13(土) 0:59 -

引用なし
パスワード
   ▼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
>
>要はフラグをうまく使って適当な判定をさせたらどうか ? という提案ですから、
>このままで目的どおりの動作をしなかったとしても、ヒント程度にはなるかと
>思います。

1 hits

【45729】コードがうごかんです おお 07/1/12(金) 19:55 質問
【45731】Re:コードがうごかんです マクロマン 07/1/12(金) 21:22 発言
【45732】Re:コードがうごかんです おお 07/1/12(金) 21:51 発言
【45733】Re:コードがうごかんです りん 07/1/12(金) 22:06 発言
【45737】Re:コードがうごかんです おお 07/1/13(土) 0:05 お礼
【45738】Re:コードがうごかんです Kein 07/1/13(土) 0:26 回答
【45739】Re:コードがうごかんです おお 07/1/13(土) 0:59 お礼
【45741】Re:コードがうごかんです Kein 07/1/13(土) 1:15 発言

36182 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free