指定儲存格update 到orderlist - Excel程式區

[發問] 指定儲存格update 到orderlist

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

1^# 跳轉到 »

發表於 2013-5-14 17:56 | 顯示全部帖子

回復 1# eg0802
試試看

Option Explicit
Sub Ex()
Dim Sh As Worksheet, AR(1 To 2), Rng As Range, R As Integer, i As Integer
AR(1) = Array("H", "I", "L", "M") 'summary-2014 中的欄位
For Each Sh In Workbooks("JZT BC-總表.xlsx").Sheets 'JZT BC-總表.xlsx活頁簿 Sheets(物件集合)
With Sh
With .[A:A].Find("Total", LOOKAT:=xlWhole) '尋找A欄中的"Total"
.Cells(1, "B").Name = "QTY" '位於B欄的存存格命名
.Cells(1, "I").Name = "TotalPrice" '位於I欄的存存格命名
End With
AR(2) = Array(.[QTY], .[TotalPrice], .[B24], .[C25])
With Workbooks("Order List 2014_0502.xls").Sheets("'summary-2014")
R = .Cells(.Rows.Count, "H").End(xlUp).Offset(1).Row 'H欄:檔案底部往上有資料下一列的列號
'*** Order List 2014_0502.xls H欄中 10:65536 間還有資料請清除 ***
For i = 0 To 3
.Range(AR(1)(i) & R) = AR(2)(i)
Next
End With
End With
Next
End Sub

複製代碼

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

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

2^#

發表於 2013-5-15 06:53 | 顯示全部帖子

回復 4# eg0802
兩個檔案都是開啟下執行的嗎?
執行階段錯誤'9 在程式的哪一行程式碼?

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

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。