jesscc

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-15 16:40 | 只看該作者

[發問] 接續存資料的問題(已解決)

本帖最後由 jesscc 於 2011-5-15 21:18 編輯

我又有問題要打擾各位了!
因為操作過程稍微麻煩，所以在壓縮檔內另附說明
在此先簡單說明，問題所在就是:在同一欄位從舊資料的尾端，接續貼新資料。

Test.rar (49.05 KB)

樓主熱帖

Jess

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兔年全勤獎章

2^#

發表於 2011-5-15 21:06 | 只看該作者

回復 1# jesscc

Sub Ex()
Dim Wo As Workbook, Sh As Worksheet, Rng As Range
For Each Wo In Workbooks
If Wo.Name <> "SPECforMRPtest.xls" Then
For Each Sh In Wo.Sheets
With Workbooks("SPECforMRPtest.xls").Sheets("MRP").Cells(Rows.Count, "aw").End(xlUp).Offset(1)
Set Rng = Sh.Range(Sh.[d7], Sh.[d7].End(xlDown))
.Resize(Rng.Count, 1) = Rng.Value
.Offset(, 1).Resize(Rng.Count, 1) = Rng.Offset(, 4).Value
End With
Next
End If
Next
End Sub

複製代碼

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

3^#

發表於 2011-5-15 21:16 | 只看該作者

謝謝 GBKEE 大大幫我解決問題。
我搞了一下午，剛剛也才找到問題所在了，只要把 Ay2() 裏的那個 "s" 全部換成另一個代號就好了。

Jess

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兔年全勤獎章

4^#

發表於 2011-5-16 07:51 | 只看該作者

回復 3# jesscc
只要把 Ay2() 裏的那個 "s" 全部換成另一個代號就好了。這觀念錯誤
Dim Ay2()宣告為動態陣列
ReDim Preserve Ay2(s) 繼承前面的 S 會有26個空白元素
Ay2(s) =Array(Cells(j, ar2(0)).Value, Cells(j, ar2(1)).Value) 是一維陣列
所一資料型態不符合
將S設為0 之後 -> Ay2()裡的元素資料型態才會一致

'取出 Metal 出貨明細
aw.Activate
Sheets("Metal").Activate
s = 0 ' 請在程式碼加上這行
Dim Ay2()
ar2 = Array("D", "H")
For j = 7 To Cells(Rows.Count, 2).End(3).Row
ReDim Preserve Ay2(s)
Ay2(s) = Array(Cells(j, ar2(0)).Value, Cells(j, ar2(1)).Value)
s = s + 1
Next
Workbooks("SPECforMRPtest.xls").Activate
With Sheets("MRP")
.Cells(.Rows.Count, 49).End(xlUp).Offset(1, 0).Resize(s, 2) = Application.Transpose(Application.Transpose(Ay2))
End With
End Sub

複製代碼

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

5^#

發表於 2011-5-16 21:53 | 只看該作者

GBKEE大大好:
"ReDim Preserve Ay2(s) 繼承前面的 S 會有26個空白元素"

這句話我搞不太懂是什麼意思，我是這樣猜的:
因為Ay1()的 S 已經存入了26筆資料，所以Ay2()同樣以 S 為代號，就會從第27開始存資料，因此Ay1()和Ay2()的資料形態就會不同，是這個意思嗎?

換一個代號和插入s = 0 這兩者又有什麼差別呢?感覺好像都有歸零的意思嘛。
對我這種初學者來說，這種問題已經很深奧了><

Jess

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兔年全勤獎章

6^#

發表於 2011-5-17 07:45 | 只看該作者

本帖最後由 GBKEE 於 2011-5-17 07:50 編輯

回復 5# jesscc
換一個代號和插入s = 0 這兩者又有什麼差別呢?感覺好像都有歸零的意思嘛沒有差別但就是要歸零.

'取出 Etrusion 出貨明細
Sheets("Etrusion").Activate
Dim Ay1()
''
      ReDim Preserve Ay1(s)
   Ay1(s) = Array(Cells(i, ar1(0)).Value, Cells(i, ar1(1)).Value)
      s = s + 1
   Next
'
'取出 Metal 出貨明細
程式進行到此  s=26
Dim Ay2()
ar2 = Array("D", "H")
For j = 7 To Cells(Rows.Count, 2).End(3).Row
   ReDim Preserve Ay2(s)                                     '  當 j=7 時 Ay配置26個無資料的儲存空間
   Ay2(s) = Array(Cells(j, ar2(0)).Value, Cells(j, ar2(1)).Value)  'Ay的第26儲存空間資料為一維陣列  ........(S=S+1)
   s = s + 1
   Next
Workbooks("SPECforMRPtest.xls").Activate
      With Sheets("MRP")
      .Cells(.Rows.Count, 49).End(xlUp).Offset(1, 0).Resize(s, 2) = Application.Transpose(Application.Transpose(Ay2))
'因此Ay1()和Ay2()的資料形態就會不同，是這個意思嗎? 不是的
'最終了 Ay2整個陣列裡參雜空白元素及一維陣列資料的型態不一致無法放在  .Cells(.Rows.Count, 49).End(xlUp).Offset(1, 0).Resize(s, 2)
End With

TOP