標題: 請諸位大大幫忙除錯 [打印本頁]

---

作者: yen956    時間: 2015-11-22 19:19     標題: 請諸位大大幫忙除錯

請諸位大大幫忙除錯!!謝謝!!

1. Private Sub CommandButton1_Click()
   
2.     If [D3] > [B5].End(xlDown).Row Then
   
3.         MsgBox "終止列的值 不可大於" & [B5].End(xlDown).Row & "!!", vbCritical
   
4.     End If
   
5. End Sub

複製代碼

[attach]22544[/attach]
[attach]22546[/attach]

---

作者: 准提部林    時間: 2015-11-22 20:01

Ｄ３是〔文字〕，改一下格式，再重新輸入！

或程式改為如下：
If Val([D3]) > [B5].End(xlDown).Row Then

另，是否要多加個判斷？
If Val([D2]) > Val([D3]) Then
　MsgBox "〔起始列〕不可大於〔終止列〕!!", 0 + 16
End If

---

作者: yen956    時間: 2015-11-22 21:12

回復 2# 准提部林
果然[D3]是文字, 但改為數字後, 還是出錯,
但程式改為：
If Val([D3]) > [B5].End(xlDown).Row Then
就OK了, 謝謝指教!!

---

作者: 准提部林    時間: 2015-11-22 21:34

回復 3# yen956

改一下格式，再重新輸入！  這是兩個步驟~~　

只改格式，原來數字還是文字格式，要清除再重新輸入！
正確的〔資料格式〕，比用程式去排錯更重要∼∼

---

作者: yen956    時間: 2015-11-22 21:58

回復 4# 准提部林
原來如此!!再三謝謝!!
已全部改成Val([D3)) 的格式,
如下:
[attach]22550[/attach]

---

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