Board logo

標題: 請問此程序為何錯誤??? [打印本頁]
作者: t8899    時間: 2014-9-27 21:26     標題: 請問此程序為何錯誤???

請問此程序為何錯誤???[attach]19244[/attach]
作者: hugh0620    時間: 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：是一個區間，所以這樣的寫法有問題。
作者: t8899    時間: 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



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