- ©«¤l
- 233
- ¥DÃD
- 53
- ºëµØ
- 0
- ¿n¤À
- 292
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXp
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-1-6
- ³Ì«áµn¿ý
- 2024-3-8

|
[µo°Ý] ¦p¦ó¨î¤ë¾ä±±¨î¶µ¿é¤J½d³ò¡H
½Ð°Ý¦U¦ì«e½ú
¸Ó¦p¦ó§â¤U¦Cªº¤ë¾ä±±¨î¶µ½d³ò§ï¦¨¦bAH8:AQ14©MAH18:AQ18¨â½d³ò°Ï¶¡¤º?- Private Sub Calendar1_Click()
- ActiveCell = Calendar1.Value
- Calendar1.Visible = False
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- With Target
- If .Column > 33 And .Column < 45 Then
- Calendar1.Visible = True
- Calendar1.Top = ActiveCell.Top
- Calendar1.Left = ActiveCell.Left
- Else
- Calendar1.Visible = False
- End If
- End With
- End Sub
½Æ»s¥N½X |
|