- 帖子
- 9
- 主題
- 0
- 精華
- 0
- 積分
- 59
- 點名
- 5
- 作業系統
- Windows 10
- 軟體版本
- Office 365
- 閱讀權限
- 20
- 註冊時間
- 2022-4-20
- 最後登錄
- 2025-1-8
|
雖然解法不太一樣，但嚐試一下
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 |
|
發表於 
