[µ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

chin15

Private Sub Calendar1_Click()
[B2:B65536] = Calendar1.Value
Calendar1.Visible = False
End Sub

imzues

§Ú¥u¥´³o­Óª½±µÂIÀx¦s®æ¨S¿ìªk¥X²{¤ë¾ä¡AÁÙ®t¤°»ò???

chin15

¤£ª¾§A»¡¤°»ò
¤]³\§A¸ò¥»¨S¼g³o­Ó¨Æ¥ó
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Calendar1.Visible = True
End Sub

imzues

¤£¦n·N«ä½Ð±Ð¤@¤U
Private Sub Calendar1_Click()
[B2¡GB65536] = Calendar1.Value
Calendar1.Visible = False
End Sub
³o¼Ëªº¼gªkÁÙ¹³¾ã±Æ³£¬O¦P¤@­Ó­È
¥i¥HB2ªº¤ë¾äÂI¥X­È¿é¥X¦bB2
­Y¿ïÂIB3ªº¤ë¾äÂI¥X­È¿é¥X¦bB3
¥i¥H¶Ü¡H

chin15

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

imzues

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

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

oobird

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

imzues

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