　暱稱: 豪

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-9-2 13:25 | 只看該作者

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

本帖最後由 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

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2015-9-2 16:09 | 只看該作者

Sub Macro1()
Dim xR As Range
For Each xR In Cells.SpecialCells(xlCellTypeAllValidation)
　　xR.Validation.ShowError = False
Next
End Sub

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

3^#

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

回復 2# 准提部林
請問這段該如何使用呢? 我先選取一格儲存格在執行或是選取所有要取消錯誤提醒的儲存格也是出錯無法執行

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

4^#

發表於 2015-9-3 10:27 | 只看該作者

回復 2# 准提部林

請問如果是合併儲存格該怎麼使用呢? 在這段程式碼裡面不知如何加入.value

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2015-9-3 11:02 | 只看該作者

回復 4# starry1314

Range("G6:H6").Validation.ShowError = False

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

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

6^#

發表於 2015-9-3 11:33 | 只看該作者

回復 5# lpk187

不行哦~這只是選取那一格合併儲存格, 這支程式不知道怎麼讓他在合併儲存格也可運作....記得別種程式應用在合併儲存格只要.VALUE即可

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-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

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

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

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