close

With Sheet.Range("A1").Validation
.Delete()
.Add(Excel.XlDVType.xlValidateList, Formula1:="清單範圍")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "錯誤訊息標題"
.InputMessage = ""
.ErrorMessage = "錯誤訊息內容"
.IMEMode = Excel.XlIMEMode.xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

arrow
arrow
    全站熱搜

    呼和羅聖 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄