返回列表 上一主題 發帖

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

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-1-31 21:06 | 顯示全部帖子
本帖最後由 register313 於 2012-1-31 21:22 編輯

回復 1# myleoyes
  1. Sub 自動校正()
  2.     If IsError(Range("C2")) Then
  3.        更正1
  4.     End If
  5.     If IsError(Range("C2")) Then
  6.        更正2
  7.     End If
  8.     If IsError(Range("C2")) Then
  9.        更正3
  10.     End If
  11.     If IsError(Range("C2")) Then
  12.        MsgBox "原始的資料有誤"
  13.     End If
  14. End Sub

  16. Sub 更正1()
  17.      MsgBox "更正1"
  18. End Sub
  19.    
  20. Sub 更正2()
  21.      MsgBox "更正2"
  22. End Sub
  23.    
  24. Sub 更正3()
  25.      MsgBox "更正3"
  26. End Sub
複製代碼
工作表模組
  1. Private Sub worksheet_change(ByVal target As Range)
  2.   If target.Address = "$C$2" Then
  3.     If IsError(Range("C2")) Then
  4.        更正1
  5.     End If
  6.     If IsError(Range("C2")) Then
  7.        更正2
  8.     End If
  9.     If IsError(Range("C2")) Then
  10.        更正3
  11.     End If
  12.     If IsError(Range("C2")) Then
  13.        MsgBox "原始的資料有誤"
  14.     End If
  15.   End If
  16. End Sub

  18. Sub 更正1()
  19.     MsgBox "更正1"
  20. End Sub
  21.    
  22. Sub 更正2()
  23.     MsgBox "更正2"
  24. End Sub
  25.    
  26. Sub 更正3()
  27.     MsgBox "更正3"
  28. End Sub
複製代碼

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題