返回列表下一主題上一主題發帖

[發問] 儲存格內值錯誤跳出警告標示

Open-minded

小學生 Rank: 1

帖子: 8
主題: 3
精華: 0
積分: 8
點名: 0
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2013-8-24
最後登錄: 2019-9-15

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-1-12 17:51 | 只看該作者

[發問] 儲存格內值錯誤跳出警告標示

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

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

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 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

PKKO

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章