[µo°Ý] ¦³­ÓÀx¦s®æ¤ë¾äªº°ÝÃD

imzues

½Ð°Ý­Y¬O§Ú·Q±qBÄæ¶}©l³£³]¤ë¾ä
§Ú¥u¯à¤@­Ó¤@­Ó³]¶Ü¡HÁÙ¬O¦³¤°»ò¼Ëªº¼gªk¥i¥HÅý¥L¾ãÄæ³£¬O¶Ü¡H
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

¤Ó·PÁ¤F~§Úªº°ÝÃD¸Ñ¨M¤F!!!

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

¥i¥HÀ°§Ú¬Ý¤@¤U­þ¦³°ÝÃD¡H§Ú·Q­nÂI¤@­Ó¥u¥X²{¤@­Ó¤ë¾ä¦ý¸Õ¤£¥X¨Ó

chin15

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

imzues

²{¦bÅÜÂIÀx¦s®æ¤ë¾ä¶]¤£¥X¨Ó¤F!!

oobird

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

imzues

½Ð°Ý¤@¤U§Ú¦n¹³¨S¿ìªkÅý²Ä¤G²Õ¤ë¾äÂI§¹Ãö°_¨Ó
§Ú¤U­±­n«ç»ò­×§ï£«??
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

·PÁÂ~¤Ó±j¤F!!