|
kein 様jaka様 有り難うございました、いつも素早いご回答感謝しています。
▼Kein さん:
>いちおう、フォントの色パレッを使って着色しているとするなら、以下のコードで
>合計を出せます。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
|
|