- ©«¤l
- 72
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 172
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-16
- ³Ì«áµn¿ý
- 2023-7-6
|
½Ð°Ý¤@¤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 |
|