[發問] 如何只讀取到篩選到的數量及金額

av8d

如何只讀取到篩選到的數量及金額.rar (18.41 KB)

下載次數: 8

2025-1-7 20:39

當滑鼠選取蘋果(第2列~第4列)
點數量的結果如何變成11
點金額的結果如何變成70

希望能只讀取篩選到的數量及金額
For Each Cell In Selection
       s = s + Cells(Cell.Row, "B")
Next Cell

感謝前輩們觀看。

catbears

雖然解法不太一樣，但嚐試一下

Private Sub CommandButton1_Click()
    Dim Cell As Range, s As Integer
   
    If Range("B2") <> "" Then
Range("B1").Select
suryou = ActiveCell.End(xlDown).Row
s = WorksheetFunction.Subtotal(9, Range("B2", "B" & suryou))
    MsgBox s
    End If
End Sub

Private Sub CommandButton2_Click()
    Dim Cell As Range, s As Integer
   
    If Range("C2") <> "" Then
Range("C1").Select
suryou = ActiveCell.End(xlDown).Row
s = WorksheetFunction.Subtotal(9, Range("C2", "C" & suryou))
    MsgBox s
    End If

End Sub

av8d

回復 2# catbears


謝謝前輩，受益良多，正是我要的，深刻學習了Subtotal函數的妙用。

解開了，謝謝前輩，如下
For Each Cell In Selection
    If Cell.EntireRow.Hidden = False Then
        s = s + Cells(Cell.Row, "B")
    End If
Next Cell

catbears

回復 3# av8d


感謝提供新的方式，我的方式恐怕會讓整體速度變慢，您的作法好很多
謝謝