[[20040123090500]] 『文字が赤色の場合の取出し表示』(はじめ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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


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

  (INA)


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


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

[[20021021140637]]

[[20020512232753]]


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

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

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


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

 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
使い方はこんな感じです。(ケン)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.