- 帖子
- 37
- 主題
- 11
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- window7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-14
- 最後登錄
- 2022-5-30
|
[發問] Workbook_SheetChange 疑問
各位大大,
一個簡單的 IF 判斷式問題，卻不知問題出在哪裡?
程式第一個 IF先判斷是不是[h2] or [i2] 有變動，有的話再進入第2個 IF判斷是否為數值 or 空白，
正常情況下跑起來是沒問題，但有一個特別狀況:
在非[h2] or [i2] 的cell 按下delete鍵，EX: [b6]按下delete鍵(清空資料)，
竟然會跑到第2個IF判斷式，而出現 MsgBox "Must be numeric value!"
有大大可以解答一下嗎?
- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
- If Target = [h2] Or Target = [i2] Then
-
- If (Not IsNumeric(Target.Value)) Or IsEmpty(Target.Value) Then
-
- MsgBox "Must be numeric value!"
- Application.EnableEvents = False
- Target.Value = "" 'this will trigger Target again
- [j2].Value = "" 'clear the cell of yield
- Application.EnableEvents = True
- Exit Sub
-
- End If
- End If
- End Sub
|
|
發表於 2016-10-6 15:01
| 
