office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA 設置單元格隻能輸入日期類型的數據

2020-05-02 08:00:00
zstmtony
原創
4228
VBA 設置單元格隻能輸入日期類型的數據

Sub 設置選擇區域必鬚輸入日期()
    Range("A2:A20000").Select
    Selection.NumberFormatLocal = "yyyy-mm-dd"
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1/1/1980", Formula2:="12/31/2900"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "請輸入入庫日期"
        .ErrorTitle = "齣錯瞭"
        .InputMessage = ""
        .ErrorMessage = "請輸入正確的日期"
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub
分享