返回列表 上一主題 發帖

請諸位大大幫忙除錯

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
複製代碼

test.rar (23.83 KB)
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2015-11-22 20:01 | 只看該作者
Ｄ３是〔文字〕，改一下格式，再重新輸入！

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

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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
3#
發表於 2015-11-22 21:12 | 只看該作者
回復 2# 准提部林
果然[D3]是文字, 但改為數字後, 還是出錯,
但程式改為：
If Val([D3]) > [B5].End(xlDown).Row Then
就OK了, 謝謝指教!!

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
4#
發表於 2015-11-22 21:34 | 只看該作者
回復 3# yen956

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

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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
5#
發表於 2015-11-22 21:58 | 只看該作者
回復 4# 准提部林
原來如此!!再三謝謝!!
已全部改成Val([D3)) 的格式,
如下:
顯示輸入值填滿顏色2.rar (28.32 KB)

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題