|
いちおう、フォントの色パレッを使って着色しているとするなら、以下のコードで
合計を出せます。AA列を作業列にします。
Sub MyFontColor_Sum()
Dim Nm As String
Dim GetNum As Long
If WorksheetFunction.Count(Range("A:A")) = 0 Then
MsgBox "A列に数値データがありません", 48: Exit Sub
End If
On Error Resume Next
Names("Check色").Delete
On Error GoTo 0
Range("AA:AA").ClearContents
Nm = ActiveSheet.Name & "!"
ThisWorkbook.Names.Add "Check色", RefersToR1C1:= _
"=IF((GET.CELL(24," & Nm & "RC[-26])+NOW()*0)=3,0,""a"")"
With Range("A:A").SpecialCells(2, 1)
.Offset(, 26).FormulaR1C1 = "=Check色"
GetNum = WorksheetFunction.SumIf(.Offset(, 26), "a", .Cells)
.Offset(, 26).ClearContents
End With
MsgBox "文字色が赤以外の数値の合計 = " & GetNum
End Sub
|
|