求助陣列問題 - Excel程式區 - 麻辣家族討論版版

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

10^# 跳轉到 »

發表於 2020-10-10 15:43 | 只看該作者

Sub TEST_A01()
Dim Arr, xD, i&, j%, N&, T$, U&
Set xD = CreateObject("Scripting.Dictionary")
Sheets("工作表2").UsedRange.EntireRow.Delete
Arr = Range([工作表1!I1], [工作表1!A1].Cells(Rows.Count, 1).End(xlUp))
For i = 2 To UBound(Arr)
T = Arr(i, 2) & "|"
If Arr(i, 4) = "組合折扣" Then T = T & "S"
For j = 6 To 9: xD(T & j) = xD(T & j) + Arr(i, j): Next
Next i
'-----------------------------------
For i = 2 To UBound(Arr)
If Arr(i, 4) = "組合折扣" Then GoTo i01
T = Arr(i, 2) & "|"
N = N + 1
For j = 1 To 5: Arr(N + 1, j) = Arr(i, j): Next
For j = 6 To 9
Arr(N + 1, j) = Arr(i, j) + Arr(i, j) * (xD(T & "S" & j) / xD(T & j))
Next j
i01: Next i
'-----------------------------------
[工作表2!A1:I1].Resize(N + 1) = Arr
End Sub

test1-A01.rar (16.61 KB)

小數不進位, 若要進位, 可能其加總後有因進1或退1所產生的誤差

'=====================================

TOP

K0l1CHEN6

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: WINDOWS10
軟體版本: office2019
閱讀權限: 10
註冊時間: 2020-8-30
最後登錄: 2023-3-3

論壇贊助勳章

9^#

發表於 2020-10-10 14:18 | 只看該作者

回復 K0l1CHEN6

在Excel Home已發問好幾通, 無人回應,
應是沒人懂意思,

有數量欄, 所以"單價"依比 ...
准提部林發表於 2020-10-10 11:52

小弟成功嘗試略過組合折扣做加總，已經分離兩個數組
比較有嘗試不了的是如何將兩個陣列去做比對

Sub test1()
Dim arr, brr(), t
Set d = CreateObject("scripting.dictionary")
arr = [A1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2)), t(UBound(arr, 2))
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 2)) Then
k = k + 1
d(arr(i, 2)) = k
For j = 1 To UBound(arr, 2)
brr(k, j) = arr(i, j)
Next
Else
r = d(arr(i, 2))
For j = 6 To UBound(arr, 2)
If arr(i, j) < 0 Then
Else
brr(r, j) = brr(r, j) + arr(i, j)
End If
Next
End If
Next
For i = 1 To UBound(arr, 1) - 1
If arr(i, 4) <> "組合折扣" Then
m = m + 1
For j = 1 To UBound(arr, 2)
arr(m, j) = arr(i, j)
Next
End If
Next
With [K1]
.Resize(UBound(arr, 1), UBound(arr, 2)).ClearContents
.Resize(m).NumberFormatLocal = "yyyymmdd"
.Resize(m, UBound(arr, 2)) = arr
End With
[U2].Resize(k, 9) = brr
End Sub

複製代碼

TOP

K0l1CHEN6

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: WINDOWS10
軟體版本: office2019
閱讀權限: 10
註冊時間: 2020-8-30
最後登錄: 2023-3-3

論壇贊助勳章

8^#

發表於 2020-10-10 12:55 | 只看該作者

回復 K0l1CHEN6

在Excel Home已發問好幾通, 無人回應,
應是沒人懂意思,

有數量欄, 所以"單價"依比 ...
准提部林發表於 2020-10-10 11:52

提供的資料為先前練習的檔案，故數字有出入，讓大大誤解真的是非常抱歉！
因Excel Home裡已經有大大幫小弟解答最重要的部分
但針對同組分別計算的話，小弟的理解是不是就是要再產生一個陣列來去單獨計算？

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

7^#

發表於 2020-10-10 11:52 | 只看該作者

回復 6# K0l1CHEN6

在Excel Home已發問好幾通, 無人回應,
應是沒人懂意思,

有數量欄, 所以"單價"依比率扣是不符合邏輯的,
參考檔:

test1-1.rar (11.31 KB)

TOP

K0l1CHEN6

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: WINDOWS10
軟體版本: office2019
閱讀權限: 10
註冊時間: 2020-8-30
最後登錄: 2023-3-3

論壇贊助勳章

6^#

發表於 2020-10-10 10:25 | 只看該作者

回復 4# 軒云熊

拍謝寫得不清楚，小弟是想要呈現

先將組別654856的未稅單價、未稅總價、總稅額和含稅總金額屏除組合折扣的金額加總，
1. 以未稅單價那欄為例，整欄加總金額為28762
2. 分別計算單項占比，以F2為例，6238/28762=0.217就是21.7%
3. 然後用那欄的折扣金額-285*0.217=-61.845，就可以算出折扣金額占比
4. 再將還沒計算折扣的6238+(-61.845)=6176.155
5. 分別計算每項扣除折扣金額後，最後再將折扣金額那行刪除

TOP

K0l1CHEN6