[發問] 如何限制月曆控制項輸入範圍？

jackson7015

請問各位前輩
該如何把下列的月曆控制項範圍改成在AH8:AQ14和AH18:AQ18兩範圍區間內?

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

複製代碼

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

複製代碼

jackson7015

回復 2# Hsieh

感謝Hsieh版主的幫忙
公式完全正常
剛好還有許多需要範圍性控制的，可以一併解決了

再次感謝~:D