[µo°Ý] ¦p¦ó­­¨î¤ë¾ä±±¨î¶µ¿é¤J½d³ò¡H

jackson7015

½Ð°Ý¦U¦ì«e½ú
¸Ó¦p¦ó§â¤U¦Cªº¤ë¾ä±±¨î¶µ½d³ò§ï¦¨¦bAH8:AQ14©MAH18:AQ18¨â½d³ò°Ï¶¡¤º?

1. Private Sub Calendar1_Click()
   
2. ActiveCell = Calendar1.Value
   
3. Calendar1.Visible = False
   
4. End Sub
   
5. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
6. With Target
   
7. If .Column > 33 And .Column < 45 Then
   
8. Calendar1.Visible = True
   
9. Calendar1.Top = ActiveCell.Top
   
10. Calendar1.Left = ActiveCell.Left
    
11. Else
    
12. Calendar1.Visible = False
    
13. End If
    
14.   End With
    
15. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# jackson7015

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. With Target
   
3. If Not Intersect(.Cells(1, 1), Union([AH8:AQ14], [AH18:AQ18])) Is Nothing Then
   
4. Calendar1.Visible = True
   
5. Calendar1.Top = ActiveCell.Top
   
6. Calendar1.Left = ActiveCell.Left
   
7. Else
   
8. Calendar1.Visible = False
   
9. End If
   
10.   End With
    
11. End Sub

½Æ»s¥N½X

jackson7015

¦^´_ 2# Hsieh

·PÁÂHsiehª©¥DªºÀ°¦£
¤½¦¡§¹¥þ¥¿±`
­è¦nÁÙ¦³³\¦h»Ý­n½d³ò©Ê±±¨îªº¡A¥i¥H¤@¨Ö¸Ñ¨M¤F

¦A¦¸·PÁÂ~:D