返回列表 上一主題 發帖

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

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

請問各位前輩
該如何把下列的月曆控制項範圍改成在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
複製代碼

回復 2# Hsieh

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

再次感謝~:D

TOP

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題