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