- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 253
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-22
|
¦^´_ 1# zamamilo - Private Sub Calendar1_Click()
- If ActiveCell.Address = "$I$5" Then
- If Weekday(Calendar1.Value, 2) <> 6 Then MsgBox "¤é´Á«D¬P´Á¤»"
- [I5] = Calendar1
- Calendar1.Visible = False
- ElseIf Not Intersect(ActiveCell, [B76:B81]) Is Nothing Then
- If IsDate([I5]) Then
- s = [I5] - Weekday([I5], 2)
- If Calendar1 < s Or Calendar1 > s + 6 Then _
- MsgBox "¤é´Á¥¼¦b¤@¬P´Á¤§¤¤" Else _
- ActiveCell = Calendar1: Calendar1.Visible = False
- Else
- Exit Sub
- End If
- End If
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Intersect(Target, Union([I5], [B76:B81])) Is Nothing Then Calendar1.Visible = False: Exit Sub
- With Calendar1
- .Top = Target.Top
- .Left = Target.Offset(, 1).Left
- .Visible = True
- End With
- End Sub
½Æ»s¥N½X
¤é´Á.zip (22.19 KB)
|
|