[[20040123090500]]　『文字が赤色の場合の取出し表示』（はじめ）　ページの最後に飛ぶ

『文字が赤色の場合の取出し表示』（はじめ）

文字（数値）が赤色の場合、全部の数値を合計を別のシートに表示するようにしたい。
お願いします。

 >文字（数値）が赤色の場合
 これは何で設定しているのでしょうか？
 それによって回答が変わりますので、具体的に説明をお願い致します。

  (INA)

ただ単に、数値を入力したところの分が文字の色を赤にして、その部分を合計するだけです。

「なお」です。下記に似たような質問がありました。その回答が参考になるかと思います。

[[20021021140637]]

[[20020512232753]]

 「フォントの色」設定で赤くしており、条件付き書式などではありませんね？

 数値を合計するセル範囲と、合計結果を出力するセルはどこになりますか？

  (INA)
条件付書式ではありません。
A1:I16がセルの範囲で合計出力は別のシート２です。
お願いします。

 出力先のセルが分からないので、Ａ１にしてあります。

 Sub sample()
 Dim c As Range
 Dim myTotal As Double

    For Each c In Worksheets("Sheet1").Range("A1:I16")
        If c.Font.Color = vbRed Then
            myTotal = myTotal + c.Text
        End If
    Next c

    Worksheets("Sheet2").Range("A1").Value = myTotal
 End Sub

  (INA)

 ユーザー関数で考えてみました。
標準モジュールに貼り付けて下さい。
 Function ColorSum(data As Range, col As Range)
    Dim myVal As Range
    Dim cot As Long

    For Each myVal In data
        If myVal.Font.ColorIndex = col.Font.ColorIndex Then
            cot = cot + myVal.Value
        End If
    Next
    ColorSum = cot
 End Function
使い方はこんな感じです。（ケン）

コメント返信：

[ 一覧(最新更新順) ]

[[20040123090500]] 『文字が赤色の場合の取出し表示』（はじめ） ページの最後に飛ぶ

[[20040123090500]]　『文字が赤色の場合の取出し表示』（はじめ）　ページの最後に飛ぶ