之前使用列表控制元件實現對單元格內容的選擇,前兩天發現數據有效性也可以提供一個列表框,上午改了一下,用起來還不錯,但感覺不如原來的舒服,還是改回來吧,把資料有效性的函式貼上到這吧,以備不時之需.

使用方法如下

Sub Test()

Call SetDataValidation(Range(Cells(2, 1), Cells(9, 1)), "y")

End Sub

" 設定Status資料有效性

Sub SetDataValidation(ByVal RangeObj As Range, ByVal flag As String)

If flag = "y" Then

With RangeObj.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _

:=xlBetween, Formula1:="未安排,已安排,已完成,提醒"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = "Tip"

.ErrorTitle = "Warning"