返回列表 上一主題 發帖

[發問] 數儲存格顏色數目。

  1. Sub test()
  2. Dim sum As Long, Count As Long


  3. sum = 0
  4. Count = 0

  5. For i = 1 To 10

  6. For j = 1 To 10

  7. If Cells(i, j).Interior.ColorIndex = 6 Then

  8. sum = sum + Cells(i, j).Value

  9. Count = Count + 1

  10. End If

  11. Next j

  12. Next i


  13. MsgBox Count & "  different Finds"

  14. End Sub
複製代碼
回復 1# stephenlee

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題