返回列表 上一主題 發帖

請諸位大大幫忙除錯

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
1# 跳轉到 »
發表於 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

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
2#
發表於 2015-11-22 21:34 | 顯示全部帖子
回復 3# yen956

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

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

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題