同筆訂單計算加總 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 同筆訂單計算加總

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

[發問] 同筆訂單計算加總

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2018-10-20 22:14 | 顯示全部帖子

回復 1# prince0413

這樣?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
[N2:O10000] = ""
For Each aa In Range([B2], [B2].End(xlDown))
For i = 1 To Application.CountA(Range("N:N"))
If aa = Cells(i, 14) Then
Cells(i, 15) = Cells(i, 15) + aa.Offset(, 7)
ElseIf Cells(i + 1, 14) = "" Then
Cells(i + 1, 14) = aa.Offset(, 0)
Cells(i + 1, 15) = aa.Offset(, 7)
End If
Next
Next
End Sub

複製代碼

複本金牌推薦王測試.rar (67.61 KB)

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2018-10-23 19:30 | 顯示全部帖子

回復 5# prince0413

我寫得好像沒有上限值(至少能到65536筆)
這段程式碼沒有很活
所以有如人名Key錯、欄位不對、切換頁不對...等都可能造成程序錯誤
需要修正再給多點資訊及可增加

Private Sub CommandButton1_Click()'開始按鈕程式
Application.ScreenUpdating = False'關閉刷頻
[N2:O10000] = ""'清除範圍資料
For Each aa In Range([B2], [B2].End(xlDown))'迴圈人員名單
For i = 1 To Application.CountA(Range("N:N"))'迴圈統計業績總點數
If aa = Cells(i, 14) Then'當名子重覆時執行
Cells(i, 15) = Cells(i, 15) + aa.Offset(, 7)'名子欄位往右一格填入For Each取得的點數，並加總
ElseIf Cells(i + 1, 14) = "" Then'當名子不重覆時後一筆資料為空白時執行
Cells(i + 1, 14) = aa.Offset(, 0)'新建立名子
Cells(i + 1, 15) = aa.Offset(, 7)'新建立該員點數
End If'結束如果
Next'下一個For i迴圈
Next'下一個For Each迴圈
End Sub'結束程式

複製代碼

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-10-23 20:16 | 顯示全部帖子

回復 5# prince0413

還有程序中只有寫當前Sheet的資料統計，
沒有區分月份，
如果要月份需要再加入A欄位的判讀，
否則你當前Sheet就放入當月份就好。
(當時簡易寫寫而已，沒想太多)

如果需要修改再提出問題，
一次幫你做修正。

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

靜思自在 : 受人點水之恩，須當湧泉以報。

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