Excel VBA添加日期小于或等于动态当天日期的数据验证

Sub AddDateValidation()
    Dim ws As Worksheet
    Dim rng As Range
    Dim todayDate As Date
    
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10") ' 假设数据范围是A1:A10
    
    ' 获取当前日期
    todayDate = Date
    
    ' 添加数据验证规则
    With rng.Validation
        .Delete ' 删除已有的数据验证规则
        .Add Type:=xlValidateDate, Operator:=xlLessEqual, Formula1:=todayDate
        .ErrorMessage = "日期必须小于或等于当前日期"
        .ErrorTitle = "无效日期"
    End With
End Sub