麻辣家族討論版版 » Excel程式區 » 依據儲存格的錯誤值執行程式

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

依據儲存格的錯誤值執行程式

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-12-6 22:23 | 只看該作者

依據儲存格的錯誤值執行程式

各位前輩你們好!
　　    前輩!問題如下:
      如果C2=#NUM!時執行(自動校正)程式
      Sub 自動校正()
            如果C2 = #NUM!執行Sub 更正1()
            結果C2還是 = #NUM再執行Sub 更正2()
            C2還是 = #NUM再執行Sub 更正3()
            執行3次後結果C2還是 = #NUM程式出現提示
            MsgBox "原始的資料有誤": End
      End Sub
      概念大概如此!不知這個自動校正程式如何寫?
      請知道的前輩,不吝賜教謝謝再三!!

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2012-1-31 17:22 | 只看該作者

回復 1# myleoyes

range("C2").text = "#NUM!"
是指這個嗎?

字典兩各字還真難理解

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-1-31 21:06 | 只看該作者

本帖最後由 register313 於 2012-1-31 21:22 編輯

回復 1# myleoyes

Sub 自動校正()
If IsError(Range("C2")) Then
更正1
End If
If IsError(Range("C2")) Then
更正2
End If
If IsError(Range("C2")) Then
更正3
End If
If IsError(Range("C2")) Then
MsgBox "原始的資料有誤"
End If
End Sub
Sub 更正1()
MsgBox "更正1"
End Sub
Sub 更正2()
MsgBox "更正2"
End Sub
Sub 更正3()
MsgBox "更正3"
End Sub

複製代碼

工作表模組

Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$C$2" Then
If IsError(Range("C2")) Then
更正1
End If
If IsError(Range("C2")) Then
更正2
End If
If IsError(Range("C2")) Then
更正3
End If
If IsError(Range("C2")) Then
MsgBox "原始的資料有誤"
End If
End If
End Sub
Sub 更正1()
MsgBox "更正1"
End Sub
Sub 更正2()
MsgBox "更正2"
End Sub
Sub 更正3()
MsgBox "更正3"
End Sub

複製代碼

靜思自在 : 改變自己是自救，影響別人是救人。

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