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

[發問] 函數陣列資料如何以以VBA執行

keny1021

中學生 Rank: 2

帖子: 17
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2010-5-9
最後登錄: 2022-11-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2022-8-4 10:44 | 顯示全部帖子

[發問] 函數陣列資料如何以以VBA執行

各位老師好:

附件EXCEL以陣列方式帶入資料，資料日漸龐大，處理起來延遲及耗時。
可以協助以VBA的程式執行實現嗎?謝謝

Isp-test.zip (725.75 KB)

樓主熱帖

keny1021

中學生 Rank: 2

帖子: 17
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2010-5-9
最後登錄: 2022-11-28

2^#

發表於 2022-8-4 16:12 | 顯示全部帖子

回復 2# samwang

Samwang 大大感謝您:

可以再麻煩您，當我格式稍作調整後，發現A5:L5儲存格若有建立值後，執行後，整個B6:L6的值會被清除掉。
麻煩再看一下怎樣做調整.謝謝

Isp-test-2.zip (725.34 KB)

TOP

keny1021

中學生 Rank: 2

帖子: 17
主題: 5
精華: 0
積分: 69
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2010-5-9
最後登錄: 2022-11-28

3^#

發表於 2022-8-5 10:57 | 顯示全部帖子

回復 4# samwang

Samwang 大大您好:測試結果OK。感謝指點

下列語法是之前套用在函數的陣列跑批次迴圈執行資料生成後列印(PDF虛擬印表機)，
如何結合您提供的VBA進行資料迴圈列印，如附件"Isp-test-3 預期結果"

Private Sub CommandButton1_Click()
Set sh3 = Worksheets("List")
Set sh2 = Worksheets("Isp")
For AA = 1 To Application.CountA(sh3.Range("a2:a500"))

sh2.[E2] = sh3.Cells(AA + 1, 3)
sh2.[E3] = sh3.Cells(AA + 1, 5)
sh2.[E4] = sh3.Cells(AA + 1, 14)
sh2.[k2] = sh3.Cells(AA + 1, 11)
sh2.[k3] = sh3.Cells(AA + 1, 9)
sh2.[K4] = sh3.Cells(AA + 1, 7)
sh2.PrintOut
Next

End Sub

Isp-test-3.zip (727.62 KB)

Isp-test-3.zip (751.03 KB)