- 55 名前：デフォルトの名無しさん [2013/04/03(水) 13:19:39.78 ]
- すみません、自分で考えたのですが解決できずお力を貸して下さい。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D4:D10")) Is Nothing Then Exit Sub
Select Case Target.Value
Case Is = ""
Target = "あ"
Case Is = "あ"
Target = "い"
Case Is = "い"
Target = ""
End Select
If Intersect(Target, Range("B4:B10,C4:C10")) Is Nothing Then Exit Sub
frmCal.Show
End Sub
今の状態では、B4:B10,C4:C10のセルを選んでもカレンダーがでません。助けてください orz
