[[20050323162605]]　『文字、数字、記号などの赤い物だけをカウント』（疑問児）　ページの最後に飛ぶ

『文字、数字、記号などの赤い物だけをカウント』（疑問児）

[関数の再計算用ボタン作成方法？]

[文字、数字、記号などの赤い物だけをカウントしたい]

 教えて下さい・・・
1月16日・・・赤色
kk
東京・・・赤色
ｓA
京都・・・赤色
○
1
◆・・・赤色
みたいな時に赤色が４と表示出来るような・・・出来ますでしょうか？

 こちらが参考になりませんか？
[[20050222100822]]『色が塗られていたら※を出力するには？』（ババンギダ） 
（SoulMan）

参考に上記のを見ましたが判りません…それにチョット違う様な気もします
※も使わないで、ただ赤色の文字や記号をカウントしたいのですが？

 学校のライブラリにあるColor関数を参考にしらいかがでしょう？
 （純丸）(o^-')b
https://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html

 最近、多いからちょっと作ってみました。
http://ryusendo.no-ip.com/cgi-bin/upload/src/up0261.xls
（SoulMan）

 SoulManさん、すごいです。
 でも、上のリンク先にあった式に、+NOW()*0 が付け加えられていますが、
 これは何でしょうか。
 よかったら教えてください。
 (ひよっぴ)

 GET.CELLは後から追加したものには、反応しないから、
NOW(）を入れてエクセル君に「頑張れよ」と」言って、、、でも
時間がプラスされたらこまるから、「0」を掛けてゼロにしてるのね(;^_^A あせあせ･･･
こうすると後から色を塗ってもF9を押すだけで対応出来る？？？と、
思いまぁ～～す！どうでしょうか？？
久々にヒットしたかな？？サンプルに追加しとこぉ～～っと。。（独り言）
（SoulMan）

 >NOW(）を入れてエクセル君に「頑張れよ」と」言って、、、でも
 >時間がプラスされたらこまるから、「0」を掛けてゼロにしてるのね
 そうなんですか！
 NOW(）はおまじないなんですね！
 覚えておきます。
 私のような者に分かるように教えて頂いて、有難うございますm(__)m
 リンクのファイルは宝物に追加しました。
 これからも宜しくお願いいたします。
 (ひよっぴ)

皆さんありがとう御座いました・・・まだ覚えてませんが何とかやってみます・・・。いつ出来る事やら・・・。どうもでした・・・。☆（●^皿^●)ニッ！

学校のライブラリにあるColor関数を参考にやったら出来ました・・・練習は・・・しかし、自分のエクセルに置き換えてやったところ･･･出来ませんでした･･･再計算と言うボタンも無いと駄目なのですよね…コピーしようとしましたが出来ず…どうすればいいですか？

 どのようにうまくいかないのかはわかりませんが、少なくとも再計算の問題なら
 みやほりんさん流の裏技で、例えば下記のように +NOW()*0 を後ろに付けると
 普通に F9キーで再計算されます。
 （純丸）(o^-')b

 =UFClrCntcc(A1:A10,3)+NOW()*0

やはり駄目でした…Color関数を参考にやったら出来たのはマクロがセットになってた体と思います、私のはマクロ使ってないし使い方が判らなくて、で、上記のような式をコピーすれば使えるのかと思いまして…いまは+NOW()*0ですか付けてやったけど駄目で、これもマクロかなんか有るのですか？

 ユーザー関数はどないでっしゃろ？
 下のコードをコピペして
 =gimon(範囲)を入力してくらはい。
 標準モジュールへ
 '-------------------------------
 Function gimon(data)
    Dim tbl As Range
    Dim c
    Application.Volatile
    Set tbl = Range(data.Address)
        For Each c In tbl
            If c <> "" Then
                If c.Font.ColorIndex = 3 Then
                    gimon = gimon + 1
                End If
            End If
        Next c

 End Function

 'Sheet1のシートモジュールへ（使うシートデスヨ）
 '---------------------------------
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
 End Sub
 '試してみておくんなはれ（弥太郎）

 おひさデス。 　　（jun53）

やはり判りません…（~ﾍ~;)
（弥太郎）さんのも全然理解できなくて…（＞口＜*）///

 =UFClrCntfc(H19:H26,3)+NOW()*0　でやったのですが・・・

 >自分のエクセルに置き換えてやったところ･･･出来ませんでした･･
 ライブラリからダウンロードした UFClr0322.xla ファイルを
 アドインに設置したのでしょうか？
 （純丸）(o^-')b

アドインに設置って？何処でしょう？と言う事で設置はしてません（~ﾍ~;)

https://www.excel.studio-kazu.jp/DL/UFClr/UFClr.html

 ライブラリから UFClr0322.lzh ファイルをダウンロードして
 解凍すると、UFClr0322.xla と UFClr0322.xls ２つのファイルが
 出来ます。UFClr0322.xls を開くとアドイン設置方法シートが
 ありますので、よく読んで下さい。
 （純丸）(o^-')b

 あらっ？
 お分かりになりまへん？
 どの辺りが・・・（笑
 え～っと、ほんならテストしてみまひょか。
 新しいブックを開いて
 適当なセルに赤い文字や青い文字、空白セル、黒い文字を入力してください。
 Alt＋F11でVBEを開き、挿入「標準」を選択 
 そのモジュールに上記の一部をコピペ
 プロジェクト欄のSheet1をWクリック
 そこへPrivate　subのコードをコピペ

 エクセルへもどって
 どっかのセルに=gimon(範囲）・・・（あのぅ、言うときますけど範囲と書いてあるん 
 は赤文字をカウントする範囲、つまり例えば（A1:D300)とかと言う意味であって、
 そのまま漢字で（範囲）なんてかきこんだらあきまへんでぇ（笑）)
 と入力すればそれでOKなんですワ、えぇ。

 まあ、たいそがらずにいっぺん遊んでみなはれ（笑

 >おひさデス。 　　（jun53）
 いよっ、瞬間湯沸かし器のjunちゃん！（笑
 もうお子さんはとっくに小学校へ上がってまんのやろなぁ。
 三途の川をネタに遊んどった時代が懐かしい～っ！
      　ほなら、また（弥太郎）

 ?(゜_。)?(。_゜)?   (・_・) (*^o^*) (*＾-＾*)  @――――――∞C●~...ポイッ!! ☆…彡　　　（jun53）

あきらめていた私に…皆さんどうもサンクスですｍ（＿＿）ｍペコっ！
で・で・できました…
＞まあ、たいそがらずにいっぺん遊んでみなはれ（笑　
って言うお言葉で…
でも判りやすく書いて頂いて…出来たと思います…ありがとう～☆（●^皿^●)ニッ！
ではo(。＾‿＾。)〇"ぐっo(*＾‿＾。)ﾉ"ばぁい

追加で･･･教えて下さい

 +NOW()*0や=gimon(範囲)も判りましたが・・・
再計算のボタンの作り方も教えてもらえますか？（疑問児）

 ツール　ユーザー設定　コマンド　ツール　から
 再計算実行　や　すべて計算　をツールバーにドラッグし、
 自動記録してみてください。　　（jun53）

コメント返信：

[ 一覧(最新更新順) ]

[[20050323162605]] 『文字、数字、記号などの赤い物だけをカウント』（疑問児） ページの最後に飛ぶ

[[20050323162605]]　『文字、数字、記号などの赤い物だけをカウント』（疑問児）　ページの最後に飛ぶ