因此,根據條件,我的「ChangeDate」值可能會顯示#Value。所以當這種情況發生時,用戶點擊校準按鈕,我想要顯示一條錯誤消息。爲什麼我的代碼不工作?在GoalSeek代碼運行之前我必須做些什麼嗎?根據錯誤類型在我的宏中設置自定義消息
Sub CIGSCalib()
Set Targetdate = Range("Update_CIGS_TargetDate")
Set TargetCIGS = Range("Update_CIGS_TargetValue")
Set ChangeDate = Range("Calib_CIGS_DV")
Sheets("profiles and sequencing").Activate
Range("A1").Offset(Targetdate - 1, 3).GoalSeek _
Goal:=TargetCIGS, _
ChangingCell:=Range("A1").Offset(ChangeDate - 1, 2)
Sheets("Inputs").Activate
On Error GoTo ErrMSg
Exit Sub
ErrMSg:
MsgBox ("No Calibration Needed")
編輯:我忘了提,當CHANGEDATE =#VALUE我得到這個錯誤代碼「運行時間13類型不匹配」,並在GoalSeek代碼段彈出
在errmsg標籤之前放置一個退出子集。 – Tarik
不錯,但仍然在GoalSeek部分炸彈:( –
嘗試範圍(「Calib_CIGS_DV」)。值 – Tarik