返回列表 上一主題 發帖

請諸位大大幫忙除錯

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)
收藏 分享

yen956

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

TOP

yen956

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

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題