[發問] 有個儲存格月曆的問題

imzues

請問若是我想從B欄開始都設月曆
我只能一個一個設嗎？還是有什麼樣的寫法可以讓他整欄都是嗎？
Private Sub Calendar1_Click()
[B2] = Calendar1.Value
Calendar1.Visible = False
End Sub

GBKEE

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calendar1.Visible = False
    Calendar2.Visible = False
    If Target(1).Column = 2 Then
        Calendar1.Visible = True
    ElseIf Target(1).Column = 3 Then
        Calendar2.Visible = True
    End If
End Sub

imzues

太感謝了~我的問題解決了!!!

chin15

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 2 Then
Calendar1.Visible = True
Calendar2.Visible = False

ElseIf Target.Column = 3 Then
Calendar2.Visible = True
Calendar1.Visible = False
Else
Calendar1.Visible = False
Calendar2.Visible = False
End If
End Sub

imzues

可以幫我看一下哪有問題？我想要點一個只出現一個月曆但試不出來

chin15

If Target.Column <> 2 and Target.Column <> 3 Then Exit Sub

imzues

現在變點儲存格月曆跑不出來了!!

oobird

Private Sub Calendar2_Click()
ActiveCell = Calendar2.Value
Calendar2.Visible = False
End Sub

imzues

請問一下我好像沒辦法讓第二組月曆點完關起來
我下面要怎麼修改ㄚ??
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub



Private Sub Calendar2_Click()
ActiveCell = Calendar2.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Or Target.Column <> 3 Then Exit Sub
Calendar1.Visible = True
Calendar2.Visible = True
End Sub

imzues

感謝~太強了!!