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