返回列表 上一主題 發帖

不同級別加總問題

不同級別加總問題

想請教各位..

如果有幾組數字,  >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

隨意窩 "EXCEL迷"  blog  或https://hcm19522.blogspot.com/ EXCEL函數

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

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題