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

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

12^#

發表於 2018-11-30 14:49 | 只看該作者

回復 9# 准提部林

謝謝大大指導我試試看~

不會EXCALL的笨蛋

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

11^#

發表於 2018-11-30 14:48 | 只看該作者

回復 8# GBKEE

謝謝大大指導

不會EXCALL的笨蛋

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

10^#

發表於 2018-11-30 14:48 | 只看該作者

回復 7# faye59

非常感謝大大您的教導

不會EXCALL的笨蛋

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

9^#

發表於 2018-10-24 14:52 | 只看該作者

本帖最後由准提部林於 2018-10-24 17:42 編輯

Sub TEST()
Dim Arr, xD, i&, T$, U&, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([B1], [I65536].End(xlUp))
Arr(1, 2) = "點數加總"
For i = 2 To UBound(Arr)
T = Arr(i, 1): U = xD(T): Arr(i, 2) = ""
If U = 0 Then N = N + 1: U = N: xD(T) = N
Arr(U + 1, 1) = Arr(i, 1)
Arr(U + 1, 2) = Val(Arr(U + 1, 2)) + Val(Arr(i, 8))
Next i
[M:N].ClearContents
With [M1:N1].Resize(N + 1): .Value = Arr: .Borders.LineStyle = 1: End With
End Sub

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2018-10-24 06:29 | 只看該作者

本帖最後由 GBKEE 於 2018-10-24 06:32 編輯

Option Explicit
Private Sub CommandButton1_Click()
Dim Sh As Worksheet, Rng As Range
Application.ScreenUpdating = False
Set Sh = Sheets("10月") '**指定工作表
Set Rng = Sh.Range("B1", Sh.Range("B1").End(xlDown)) '**B欄的範圍: B1到最後一筆的資料
With Sh.Range("N1")
.CurrentRegion.Clear '**清除延伸範圍
Rng.AdvancedFilter xlFilterCopy, , .Cells, xlYes '**進階篩選將業務人員編號複製到 N1
'** xlYes 參數 -- 不選重覆資料
With .CurrentRegion.Columns(2) '**延伸範圍的第二欄
.Cells = "=" & "SUMIF(" & Rng.Address(, , xlR1C1) & ",RC[-1]," & Rng.Offset(, 7).Address(, , xlR1C1) & ")"
'** hcm19522 的公式 =IF(COUNTIF(B$2:B2,B2)=1,SUMIF(B:B,B2,I:I),"")
'**取 SUMIF(B:B,B2,I:I) 帶入公式
'**Rng.Address(, , xlR1C1) ** B:B 的 R1C1 樣式的參照
'**Rng.Offset(, 7).Address(, , xlR1C1) ** I:I 的 R1C1 樣式的參照
'**RC[-1] ** B2 的 R1C1 樣式的參照
.Value = .Value '** 將公式轉成值
End With
.Range("B1") = "點數加總" '**補上標頭
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

faye59

　暱稱: 温奇
　頭銜: 議論者

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

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

7^#

發表於 2018-10-23 20:16 | 只看該作者

回復 5# prince0413

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

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

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

faye59

　暱稱: 温奇
　頭銜: 議論者

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

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

6^#

發表於 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'結束程式

複製代碼

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

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

5^#

發表於 2018-10-21 14:52 | 只看該作者

本帖最後由 prince0413 於 2018-10-21 14:59 編輯

回復 2# faye59

非常感謝高手
這就是我想要的
請問可以解釋一下您撰寫的程式碼嗎?
因為每個禮拜都會更新資料進去
通常會多出好幾筆新的資料出來(有些業務人員都是快月底才會開始衝業績)
想說是哪段程式碼在控制計算範圍與結果的顯示呢
還是您寫給我的這段程式碼就已經足夠應付1000筆資料以內了呢??
麻煩您解惑了
非常感恩

不會EXCALL的笨蛋

　暱稱: 香澄

帖子: 108
主題: 23
精華: 0
積分: 140
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-11-2
最後登錄: 2019-12-31

4^#

發表於 2018-10-21 14:48 | 只看該作者

回復 3# hcm19522

謝謝您
但是我把公式貼上往下拉讓每個儲存格對應後
發現有些顯示的數字不一樣耶
請問大大是為什麼呢?

不會EXCALL的笨蛋