返回列表 上一主題 發帖

不同級別加總問題

不同級別加總問題

想請教各位..

如果有幾組數字,  >2000可以成為獨立一個金額, 如果不夠就加總.

請看圖片及附件比較清楚..

請好心人幫忙

><

excel

19-10-2023 17-35-41excel.jpg

excel level commission.zip (6.89 KB)

本帖最後由 Andy2483 於 2023-10-20 12:57 編輯

回復 1# jomeow


    謝謝前輩發表此主題與範例
後學藉此帖練習VBA陣列,練習方案如下,請前輩參考

Option Explicit
Sub TEST()
Dim Brr, Crr, v&, Q%, i&, j%, R&, c%, M&, A%, K&
K = 2000: Brr = Range([A1], ActiveSheet.UsedRange.Offset(1, 0))
ReDim Crr(1 To UBound(Brr), 1 To UBound(Brr, 2))
For j = 2 To UBound(Brr, 2)
   c = c + 1: R = 0: Q = 0
   If Brr(2, j) Like "BM *" = False Then Exit For
   If Brr(3, j) = "" Then GoTo j01
   For i = 3 To UBound(Brr)
      v = v + Val(Brr(i, j)): A = A + 1
      If Trim(Brr(i + 1, j)) = "" Then Q = 1
      If (v = K And A > 1) + (v > K) + (Q = 1 And v > 0) < 0 Then
         R = R + 1: Crr(R, c) = v: v = 0: A = 0
      End If
      If Q = 1 Then Exit For
   Next
   If M < R Then M = R
j01: Next
If M = 0 Then Exit Sub
[J:Z].ClearContents
[J1].Resize(M, c - 1) = Crr
Erase Brr, Crr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

如圖//結果是什麼???
xx001.gif
2023-10-21 09:51

TOP

回復 3# hcm19522


抱歉,, 小妹太笨... 我用了你的公式, 但計算不成功.. 沒數字出現..><

請再指教我可以嗎

TOP

回復 2# Andy2483

你很厲害!!!!!!!!

成功了!!!!!!!

我用你的vba... 真的可以得到我想要的結果!!!!!!

感謝大大的出手幫助!!!!

m(_ _)m

TOP

本帖最後由 jomeow 於 2023-10-24 11:21 編輯

回復 2# Andy2483

大大.. 我可不可以訊息你嗎?

或者你訊息我可以嗎?

因為.. 我想把你的vba的結果的位置, 改到我現在excel的位置.. 可以再向你請教嗎?

先謝謝喔!

TOP

回復 7# jomeow


    在論壇上繼續做討論,後學知無不言
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# Andy2483


請幫忙看附件.. 因為我想把結果都放在 calculation這一頁...
comm Calculator-sample.zip (17.09 KB)
先謝謝你幫忙!!

TOP

回復 8# Andy2483


先謝謝你幫忙..

我上載了文件了...

TOP

        靜思自在 : 人事的艱難與琢磨,就是一種考驗。
返回列表 上一主題