Hsieh

¦^´_ 1# zamamilo

1. Private Sub Calendar1_Click()
   
2. If ActiveCell.Address = "$I$5" Then
   
3.   If Weekday(Calendar1.Value, 2) <> 6 Then MsgBox "¤é´Á«D¬P´Á¤»"
   
4.   [I5] = Calendar1
   
5.   Calendar1.Visible = False
   
6.   ElseIf Not Intersect(ActiveCell, [B76:B81]) Is Nothing Then
   
7.   If IsDate([I5]) Then
   
8.   s = [I5] - Weekday([I5], 2)
   
9.   If Calendar1 < s Or Calendar1 > s + 6 Then _
   
10.   MsgBox "¤é´Á¥¼¦b¤@¬P´Á¤§¤¤" Else _
    
11.   ActiveCell = Calendar1: Calendar1.Visible = False
    
12.   Else
    
13.    Exit Sub
    
14.   End If
    
15. End If
    
16. End Sub
    
17. 
    
18. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
19. If Intersect(Target, Union([I5], [B76:B81])) Is Nothing Then Calendar1.Visible = False: Exit Sub
    
20. With Calendar1
    
21. .Top = Target.Top
    
22. .Left = Target.Offset(, 1).Left
    
23. .Visible = True
    
24. End With
    
25. End Sub

½Æ»s¥N½X

¤é´Á.zip (22.19 KB)

¤U¸ü¦¸¼Æ: 11

2012-5-21 22:03