請教excel 陣列問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教excel 陣列問題

返回列表下一主題上一主題發帖

請教excel 陣列問題

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

11^# 跳轉到 »

發表於 2015-7-19 11:33 | 只看該作者

本帖最後由 lionliu 於 2015-7-19 11:35 編輯

回復 10# GBKEE
剛剛在測試一次，結果是:DO WHILE RNG <>"" ,RNG=11 結束，SHEETS 2 RUN到 ROW =11時尚未結束，
這一段程式會出錯strcomma = WorksheetFunction.Find(",", Sheets(1).Cells(i, 8))，
所以我才這樣懷疑，但是當我停掉此錯誤又能跑完全。
不知此段語法哪裡出錯，還是不應該放在此位置，若有錯前3項又能產生感到非常不解。

lionliu

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2015-7-19 14:03 | 只看該作者

回復 11# lionliu
是這樣嗎?

R = Rng.Cells(1, 8).Value
strcomma = WorksheetFunction.Find(",", R) '修改位置 H欄,
lenstr = Len(R)
dsc = Right(R, lenstr - strcomma)

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

13^#

發表於 2015-7-20 11:45 | 只看該作者

回復 12# GBKEE
還是錯但問題不一樣

擷取1.JPG

擷取1.JPG

擷取.JPG

lionliu

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2015-7-20 13:45 | 只看該作者

回復 13# lionliu
參考看看

Dim R As String '型態為字串
'這裡也要修改當作用中的工作表是工作表1時會有 "型態不符合的錯誤
'.Cells(i, 4) = Cells(i, 2) * Cells(i, 3) '修改位置 D欄由計算求值
.Cells(i, 4) = .Cells(i, 2) * .Cells(i, 3) '修改位置 D欄由計算求值

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

15^#

發表於 2015-7-20 15:14 | 只看該作者

回復 14# GBKEE
謝謝gb大哥的教導可以了，但是卻有地方有疑問。
r=rng.cells(1,8).value 為何不是 r=rng.cells( i , 8).value

lionliu

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2015-7-20 20:05 | 只看該作者

回復 15# lionliu
看看位置的差異

MsgBox rng.Cells(1, 8).Address '為何不是
MsgBox rng.Cells(i, 8).Address

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

返回列表下一主題上一主題