回覆列表
  • 1 # 使用者990540253822

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

    使用方法如下

    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"

  • 中秋節和大豐收的關聯?
  • 你記憶中有哪些可以稱得上是人生拐點的故事?