返回列表 上一主題 發帖

請問此程序為何錯誤???

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-27 21:26 | 只看該作者

請問此程序為何錯誤???

請問此程序為何錯誤??? Book2.rar (16.71 KB)
收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2014-9-29 21:59 | 只看該作者
回復 1# t8899


    稍看你得程式碼：
    Set A = .Range("I" & ppp & ":I" & qqq).Find(Application.Large(.Range("I" & ppp & ":I" & qqq), 1))
     Find:是用來找到符合你條件的資料。
     Range("I" & ppp & ":I" & qqq：是一個區間，所以這樣的寫法有問題。
學習才能提升自己

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-23 
3#
發表於 2014-9-30 06:00 | 只看該作者
回復  t8899


    稍看你得程式碼：
    Set A = .Range("I" & ppp & ":I" & qqq).Find(Application. ...
hugh0620 發表於 2014-9-29 21:59

謝謝
我已經找到問題
I 欄 跟 S 欄格式的問題
用 以下程序可解決
Dim rng As Range
For Each rng In Range("i3:i60")
abc = rng
rng = CLng(abc)
Next
For Each rng In Range("s3:s60")
abc = rng
rng = CLng(abc)
Next

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題