[[20050524155749]]　『色つきの文字だけ』（auto）　ページの最後に飛ぶ

『色つきの文字だけ』（auto）
赤色のついた文字だけ計算したいのですが、どうもうまくいきません。
よろしくお願いします。

 これもユーザー関数です。
 Alt＋F11でVBEを開き
 「挿入」→「標準モジュール」を選択
 無傷のモジュールに下のコードをコピペ
 あとは=auto(a1:c500)といった塩梅に記入すると赤で書かれた数値の合計が
 算出されます、ハイ。
      （弥太郎）

 '-------------------------------
 Function auto(data)
    Dim tbl As Range
    Dim c
    Set tbl = Range(data.Address)
        For Each c In tbl
            If c.Font.ColorIndex = 3 Then
                totl = totl + c
            End If
        Next c
    auto = totl
 End Function

ありがとうございます。ＥＸＣＥＬではできないですか？？(auto)

 （マクロもExcelの機能なのだけど・・・）
せっかく色をつけたのだから、色を数えたいという気持ちは理解できるが、
基本的にExcel標準機能で「色を基準に」は出来ないと思ったほうがいい。
　
2002以降であれば、「書式」の置換を利用し、カウント用の列を
作成して、、という方法はあるにはある。
　
2002が手許にないのでうろ覚えだが、
カウントしたい列を複製して作業列に。
置換ダイアログで検索文字列にワイルドカード「*」、
検索書式で例えば、フォント赤、
置換文字列でカウント用のデータを指定。（例えば"これをカウント！"）
（書式設定は任意）
として置換。
=COUNTIF(作業列の範囲,"これをカウント！")
ただし、条件付書式での色は置換不可。
　
だが、色をつけている何か条件・基準があるはずだから、
普通はその条件・基準を元にカウントする。
（なんとなく色をつけてなんとなく数えてみたいというワケではあるまい？）
（みやほりん）

みやほりんさんありがとうございます。関数などを使ってでは難しいのですね。。。
遅くなりましたが、弥太郎さんの言っている、=auto(a1:c500)というのはどこに
入れるのですか？？(auto)

 こちらが参考になりませんか?　　(Hatch)
[エクセル・マイスター]ユーザー関数入門
http://www.excel.studio-kazu.jp/mag2/backnumber/mm20040629.txt

弥太郎さんの塩梅とは？？(ちなから)

 >塩梅とは？？
 こういうこと？　　(Hatch)
http://gogen-allguide.com/a/anbai.html

 みやはん、Hatchさん、フォローおおきに～。
 autoはん、=auto(範囲）はデータを抽出したいセルに書き込みます。
 マクロっちゅうて尻込みする事はおまへんでぇ。
 これは関数ですさかい、一般の関数と同じと解釈してもろても結構ですワ、えぇ。
 　　　　（弥太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20050524155749]] 『色つきの文字だけ』（auto） ページの最後に飛ぶ

[[20050524155749]]　『色つきの文字だけ』（auto）　ページの最後に飛ぶ