Excel VBA質問箱 IV

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

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


36177 / 76732 ←次へ | 前へ→

【45738】Re:コードがうごかんです
回答  Kein  - 07/1/13(土) 0:26 -

引用なし
パスワード
   なんかよく分からないけど、これで試してみて下さい。

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

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

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