shuo1125

回復 19# 准提部林

准大好！

附上圖

下載 (154.24 KB)

2021-12-9 21:40

不好意思再請教個問題...如果有資料的部分J欄想增加"口人員 口地點 口功能"這些文字
請問該如何修改好，可煩請再指導一下嗎?

勞煩您抽空解答了，謝謝。

shuo1125

回復 22# 准提部林
准大好！
不好意思...好像有點怪怪的
For i = 1 To R
        V = vD(K).keys()(i - 1)
        Brr(i + 1, 5) = "小計：": Brr(i + 1, 8) = Brr(i, 8) + Arr(V, 12)
        For j = 1 To 8:  Brr(i, j) = Arr(V, Cr(j - 1)): Next
'好像沒有上述這一段...
----------------------------------------------------------------------------------------------------------------
    Set xA = [盤點表單!A1]
For i = 1 To N
    If i > 1 Then [盤點表單!A1:K3].Copy xA
    T1 = xD(i): R = xD(T1): Crr = xD(T1 & "/c")
    xA(2, 2) = T1: xA(2, 11) = "項次：" & i & "/" & N
    With xA(4).Resize(R, 11)
         [盤點表單!A4:K4].Copy .Cells
         .Value = Crr
    End With
    xA(R + 4, 2) = "會盤人：": xA(R + 4, 4) = "盤點人：": xA(R + 4, 5) = "小計": xA(R + 4, 9) = xD(T1 & "/s")
    Set xA = xA(R + 5)
    xA.PageBreak = xlPageBreakManual '設定分頁線
'是上面這段
----------------------------------------------------------------------------------------------------------------
還是我放的位置有錯...麻煩在指正一下
勞煩你了，謝謝。

shuo1125

回復 25# 准提部林
准大好！

可以了，謝謝你屢次不吝的完整回答..

感激不盡，祝您順心~

shuo1125

回復 25# 准提部林

准大好！
抱歉再追問...
請問若我希望呈現結果為每頁都有抬頭及標題，
程式碼該如何修正？
附上附檔及圖片(因有機密資料故附檔為範例)
麻煩在抽空協助了，感激不盡！

shuo1125

回復 28# 准提部林

准大好！
其實是後來想到在實際列印紙本清點時，
沒有抬頭真的會不太好看...但又想不出如何調整...
沒想到您幫忙之餘還能想到程式運行速度及調整內容，
真是太專業了，但程式碼我還需花時間研究一下...
若有問題屆時再勞煩你不吝指導了，
謝謝！

shuo1125

回復 28# 准提部林
准大好！
經前段您指導的程式碼，我修改成符合使用後遇到以下問題，可否煩請抽空協助指導如何修正...
問題A→B2=預算總額-請購總額。
問題B→小計部分的請購總額及未給付總額有辦法得出嗎?(因請購單會有重複之狀況。)
或是有其他前輩可抽空指導…
以上，麻煩大家了！
若文字敘述不清，可看附檔及圖檔。

下載 (105.21 KB)

2022-9-20 11:05

Beta20220916.zip (53.89 KB)

下載次數: 3

2022-9-20 11:13

shuo1125

回復 31# 准提部林
准大好！
對於字典的key跟item還是不太了解...xD(T1 & "/" & T2) = 0 中，
這一段是調用xD(key)=item，所以當判斷為0時就去重的意思嗎..?
您的邏輯思路真的是太厲害了，
完全符合使用，太感謝了..

shuo1125

回復 33# 准提部林
原來是這樣的判斷方式，
自己在寫時都想不到這些，所以才要再上來問..
您的思路及見解真的太獨到，
感謝准大...還抽空回覆。

shuo1125

回復 36# Andy2483
Andy2483前輩好！
准大的思路真的高深莫測，我也是經過好久才能大概理解怎調整來運行....
今天您特地關注此帖還為程式碼註解讓我也能一同學習，論壇的各位前輩無私的奉獻真的讓人感動。

shuo1125

回復 39# Andy2483
Andy2483前輩好！
准大的思路都是尋求最高效率，最精簡的程式碼，
一段簡單的語言涵蓋了很多高深技巧，但能運用得當難度真的很高..
您研究的真的很透徹...更難能可貴的是不吝分享，
對我這新手受益良多，感謝您的指導！