lionliu

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-7-12 12:00 | 只看該作者

請教excel 陣列問題

各位大哥:
小弟有一個excel陣列問題想要將工作表1，轉到工作表2。
並將品名重排但是一直出問題。
還有是否可以不辨東工作表1就直接產生工作表2內容。

活頁簿1.rar (17 KB)

樓主熱帖

lionliu

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

lionliu

中學生 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

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

lionliu

中學生 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

lionliu

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

lionliu

中學生 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

TOP

GBKEE

超級版主 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兔年全勤獎章

10^#

發表於 2015-7-19 07:13 | 只看該作者

回復 9# lionliu

第2帖的程式碼
Rng 不就是第一個工作表的Row
i 是第二個工作表的Row

Set Rng = Sheets(1).[A2]
05. With Sheets(2)
06. .UsedRange.Clear '.UsedRange的範圍 < .Cells的範圍,處裡速度會快些
07. .Range("a1").Resize(, 4) = Array("Description", "Qty", "Price", "Amount") '一起給值
08. i = 2 '設定起始值
09. Do While Rng <> "" 'Rng ="" 迴圈停止
10. If Msg = False Then

複製代碼

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

TOP

lionliu