標題: [發問] 儲存格內值錯誤跳出警告標示 [打印本頁]

---

作者: Open-minded    時間: 2014-1-12 17:51     標題: 儲存格內值錯誤跳出警告標示

請問如何設定在特定儲存格內的值，不是預設的值就自動跳出警告標示。
例:a1預設值不能>50。如輸入60自動跳出自訂警告標語"請更改數字"。

想在工作表設定多個類似這種。希望有人能幫忙。

---

作者: Hsieh    時間: 2014-1-12 22:07

本帖最後由 Hsieh 於 2014-1-12 22:09 編輯

回復 1# Open-minded
資料/驗證/自訂
公式
=A1<=50
[attach]17243[/attach]

---

作者: PKKO    時間: 2014-8-6 14:43

小弟不才,用錄製的方式,加以更改後提供您更快的方式

Sub test()

'只需要改X的值即可執行
x = "a1"
    Range(x).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & x & "<=5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)