Kubi

¦^´_ 1# peter95
µLÅv­­¤U¸ü¡A¤£ª¾¹ï§_¡H
Sub ­pºâ()
    For Each cell In [A1:G53]
        If cell.Interior.ColorIndex = xlNone Then
            wc = wc + 1
            wn = wn + cell.Value
        Else
            yc = yc + 1
            yn = yn + cell.Value
        End If
    Next cell
    msg = "µL©³¦â¼Æ¶q¡G" & wc & vbTab & "µL©³¦â¤º­ÈÁ`©M¡G" & wn & vbCr
    msg = msg & "¦³©³¦â¼Æ¶q¡G" & yc & vbTab & "¦³©³¦â¤º­ÈÁ`©M¡G" & yn & vbCr
    MsgBox msg
End Sub