標題: [發問] VBA偵知 工作表內有錯誤 [打印本頁]

---

作者: Scott090    時間: 2014-11-9 10:52     標題: VBA偵知 工作表內有錯誤

請問新進：
在VBA內的程式碼 Calculate 指示工作表執行計算
工作儲存格內有眾多的個個計算公式，可能產生不同的錯誤(儲存格內的  ISERROR，除以0.，...)，
VBA如何像 on error ... 或 if err.number <> 0 一樣偵知而可以採取行動?

謝謝先

---

作者: GBKEE    時間: 2014-11-9 16:30

回復 1# Scott090
是這樣嗎?

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim Rng  As Range
   
4.     On Error GoTo LL
   
5.     Set Rng = UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors)
   
6.     Rng.Select
   
7.     MsgBox Rng.Address & " 公式有錯誤值"
   
8. LL:
   
9. End Sub

複製代碼

---

作者: Scott090    時間: 2014-11-9 18:36

回復 2# GBKEE


    已知 .SpecialCells(xlCellTypeFormulas, xlErrors) 語法之使用並已達需要目的

感恩

---

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