返回列表 上一主題 發帖

[發問] excel vba 陣列中的資料如何丟給一個另外定義的RANGE

alexlkklin

帖子
8 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
XP 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-5-16 
最後登錄
2012-12-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-12-1 21:23 | 只看該作者

[發問] excel vba 陣列中的資料如何丟給一個另外定義的RANGE

本帖最後由 alexlkklin 於 2012-12-1 21:25 編輯

各位大大,

小的目前在練習陣列的運用,
由於是把現行手上的程式拿來修改,
所以有些地方不清楚要怎麼修改,
請各位大大指導,
謝謝!!!

這個是我把一張表丟上自定的陣列中
TBOMcl = Sheets("表1").Range("a1").End(xlToRight).Column
TBOMro = Sheets("表1").Range("a65535").End(xlUp).Row     

在經過一系列的運算後,我要把陣列中的一欄取出做SUMIF的運算
Set rg7po = Range(Sheets("表1").[q2], Sheets("表1").[q65535].End(xlUp)) [這行是我原本定義做SUMIF索引值的]
小的的問題來了
Set rg7po = Range(Sheets("表1").[q2], Sheets("表1").[t65535].End(xlUp))
怎麼定義=後面的這個部份(這個在以前在小的檔案上是一個SHEET,目前己把這個SHEET讀進陣列中)
收藏 分享
ALK

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2012-12-4 16:24 | 只看該作者
回復 1# alexlkklin
在經過一系列的運算後,我要把陣列中的一欄取出做SUMIF的運算
SUMIF無法對陣列運算
語法 SUMIF(range,criteria,sum_range)
Range    是要計算加總的儲存格範圍。
Criteria    是用以決定要否列入加總的搜尋準則，可以是數字、表示式或文字。例如，criteia 可以是 32、"32"、">32" 或 "apples"。
Sum_range    是實際要加總的儲存格。

TOP

alexlkklin

帖子
8 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
XP 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-5-16 
最後登錄
2012-12-6 
6#
發表於 2012-12-2 16:52 | 只看該作者
回復 5# stillfish00

大大,
原始程式如下,
這個部份目前在檔案上都有實際對應的SHEET去作業,
目前我在修改的就是把這些"表"轉成"陣列"去運算,
不知道這樣子大大您有看懂小的問題嗎?
麻煩大大您了,
謝謝!!!

Set rgpn = Range(Sheets("wh").[a2], Sheets("wh").[a65535].End(xlUp)) '庫存資料-庫存料號
Set rgw00 = Range(Sheets("wh").[j2], Sheets("wh").[j65535].End(xlUp)) '庫存資料-成品倉
Set rgw01 = Range(Sheets("wh").[i2], Sheets("wh").[i65535].End(xlUp)) '庫存資料-零件倉

Set rgabpn = Range(Sheets("表1").[C2], Sheets("表1").[C65535].End(xlUp)) '表1料號

cl = Sheets("表2").Range("L1").End(xlToRight).Column '取表2最後一欄
z22 = Sheets("表1").Range("a65535").End(xlUp).Row
z33 = Sheets("表2").Range("a65535").End(xlUp).Row
For i = 2 To z33
pn = Sheets("表2").Range("a" & i)
stk00 = Application.SumIf(rgpn, pn, rgw00)
stk01 = Application.SumIf(rgpn, pn, rgw01)


ttqty = m02a + m01a + m011 + m015 + m019 + m011w + m015w + m019w
Sheets("表2").Range("K" & i) = ttqty
Next
For i = 12 To cl  ''''由表2取A件料號後計算表1上的需求
    For j = 2 To z33
        Dim rgabqty As Range
        Set rgabqty = Range(Sheets("表1").Cells(2, i), Sheets("表1").Cells(z22, i)) '缺料分析R前置置作業-缺料前置的a組件的各日需求
        awpn = Sheets("表2").Cells(j, 1) ' 取表2的料號
        aqty = Application.SumIf(rgabpn, awpn, rgabqty) ''''取表1上的A件單日需求
        qty = Sheets("表2").Cells(j, i - 1)
ALK

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2012-12-2 15:53 | 只看該作者
回復 3# alexlkklin
好像不是 , 這好像跟你發問的標題相反...
你有提到sumif 怎麼不把公式列出來
還有你已經整理好的產品品號 是放在哪?? 是工作表還是變數裡
這樣猜真的很難懂

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2012-12-2 15:34 | 只看該作者
回復 3# alexlkklin
那沒錯啊 , 再定義一個Arr變數
Arr = Application.Transpose(Range(Sheets("表1").[q2], Sheets("表1").[q65535].End(xlUp)))
這樣就可以將Q欄的資料轉為一維陣列了

TOP

alexlkklin

帖子
8 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
XP 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2012-5-16 
最後登錄
2012-12-6 
3#
發表於 2012-12-2 12:26 | 只看該作者
回復 2# stillfish00

大大,
小的檔案原本是做下列的宣告定義:
Set rg7po = Range(Sheets("表1").[q2], Sheets("表1").[t65535].End(xlUp))
這個部份在原先的程式中是給sumif用來做索引的部份,
由於最近開始接觸"陣列"這個部份,
所以想把原來的程式做修改....
小的檔案有多張表,
表一是用來匯總想要的資料:例如-產品品號/庫存/工單.......
表二是庫存狀況表
表三...表四....表五......temp
我都是把各項相關的資料做運算後匯總到表一上,
現在的狀況是當我把整理好的產品品號丟到陣列時,
我想要把原先的Set rg7po = Range(Sheets("表1").[q2], Sheets("表1").[t65535].End(xlUp)) 做修改掉
rg7po是做range的設定
Range(Sheets("表1").[q2], Sheets("表1").[t65535].End(xlUp))這行怎麼把它變成陣列???
ALK

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-12-2 11:40 | 只看該作者
回復 1# alexlkklin
不是很確定你是不是在問這個...
假設你的Array是rg7po , 你要把Q欄資料讀到rg7po裡面
dim rg7po
rg7po = Application.Transpose(Range(Sheets("表1").[q2], Sheets("表1").[q65535].End(xlUp)))

就可以讀到   rg7po(1), rg7po(2), ...  裡面了

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題