[µo°Ý] ¦p¦ó¥uŪ¨ú¨ì¿z¿ï¨ìªº¼Æ¶q¤Îª÷ÃB

av8d

¦p¦ó¥uŪ¨ú¨ì¿z¿ï¨ìªº¼Æ¶q¤Îª÷ÃB.rar (18.41 KB)

¤U¸ü¦¸¼Æ: 8

2025-1-7 20:39

·í·Æ¹«¿ï¨úÄ«ªG(²Ä2¦C~²Ä4¦C)
ÂI¼Æ¶qªºµ²ªG¦p¦óÅܦ¨11
ÂIª÷ÃBªºµ²ªG¦p¦óÅܦ¨70

§Æ±æ¯à¥uŪ¨ú¿z¿ï¨ìªº¼Æ¶q¤Îª÷ÃB
For Each Cell In Selection
       s = s + Cells(Cell.Row, "B")
Next Cell

·PÁ«e½ú­ÌÆ[¬Ý¡C

catbears

¦^´_ 3# av8d


·PÁ´£¨Ñ·sªº¤è¦¡¡A§Úªº¤è¦¡®£©È·|Åý¾ãÅé³t«×ÅܺC¡A±zªº§@ªk¦n«Ü¦h
ÁÂÁÂ

av8d

¦^´_ 2# catbears


ÁÂÁ«e½ú¡A¨ü¯q¨}¦h¡A¥¿¬O§Ú­nªº¡A²`¨è¾Ç²ß¤FSubtotal¨ç¼Æªº§®¥Î¡C

¸Ñ¶}¤F¡AÁÂÁ«e½ú¡A¦p¤U
For Each Cell In Selection
    If Cell.EntireRow.Hidden = False Then
        s = s + Cells(Cell.Row, "B")
    End If
Next Cell

catbears

ÁöµM¸Ñªk¤£¤Ó¤@¼Ë¡A¦ýÀ|¸Õ¤@¤U

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