請問如何批次讓驗證清單的警告設定為關閉呢?

本帖最後由 starry1314 於 2015-9-2 13:31 編輯

因有數百格驗證清單,沒辦法使用選取的來關閉錯誤提醒會導致設定被刪除

有使用錄製的但沒辦法套用至別的儲存格
定義名稱會被覆蓋掉
只想讓他執行關閉錯誤那行，但如果前面
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:="=_1_2_1_1"　刪掉　會不能執行
Sub 錯誤提醒()
'
Range("G6:H6").Select
With Selection.Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:="=_1_2_1_1"
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .IMEMode = xlIMEModeNoControl
      .ShowInput = True
      .ShowError = False
End With
End Sub

樓主熱帖

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

10^#

發表於 2015-9-3 14:58 | 只看該作者

回復 7# 准提部林

感謝大大～已解決問題囉～
此自動解除合併後再合併的代碼　真實用

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

9^#

發表於 2015-9-3 14:57 | 只看該作者

回復 starry1314

你的問題不是只要"關閉錯誤提醒"嗎？
還是重做一個新的驗證清單，輸入新的驗證資料後，再關掉？
若只是"關閉錯誤提醒"和合併儲存格有什麼關係？2樓的答案一樣可以關閉，也不會刪掉原來的驗證資料
或者把檔案放上來看看
另外由VBA由寫入到驗證資料的儲存格的錯誤值，不用"關閉錯誤提醒"也可以寫入
還有_1_2_1_1是定義的名稱嗎？
lpk187 發表於 2015-9-3 14:09

1.是的,我要的是關閉錯誤提醒
2.沒有要輸入新的驗證資料
3.2樓答案是可以關閉,但只能應用在未合併過的儲存格上,否則會報錯！７樓大大有更新新代碼，已解決此代碼遇到合併儲存格報錯情況
4._1_2_1_1　＝　定義名稱

目前已解決問題囉～感謝

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2015-9-3 14:09 | 只看該作者

本帖最後由 lpk187 於 2015-9-3 14:10 編輯

回復 6# starry1314

你的問題不是只要"關閉錯誤提醒"嗎？
還是重做一個新的驗證清單，輸入新的驗證資料後，再關掉？
若只是"關閉錯誤提醒"和合併儲存格有什麼關係？2樓的答案一樣可以關閉，也不會刪掉原來的驗證資料
或者把檔案放上來看看
另外由VBA由寫入到驗證資料的儲存格的錯誤值，不用"關閉錯誤提醒"也可以寫入
還有_1_2_1_1是定義的名稱嗎？

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2825
主題: 10
精華: 0
積分: 2881
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-9-15

7^#

發表於 2015-9-3 12:34 | 只看該作者

回復 4# starry1314

合併格，先解除合併，再復原
Sub Macro1()
Dim xR As Range
On Error Resume Next
For Each xR In Cells.SpecialCells(xlCellTypeAllValidation)
　　With xR.MergeArea
　　　　　.UnMerge
　　　　　.Item(1).Validation.ShowError = False
　　　　　.Merge
　　End With
Next
End Sub

若要指定選取區，可改成：
For Each xR In Selection.Cells.SpecialCells(xlCellTypeAllValidation)
　
Next

TOP

starry1314