[[20040612104022]]　『同じ値のセルに同じ色をつけたい』（まゆ）　ページの最後に飛ぶ

『同じ値のセルに同じ色をつけたい』（まゆ）

別シートからリンクでひっぱってきた列があります。

そこには「にんじん」とか「大根」とかの値が表示されています。

同じ値のセルに同じ色をつけるにはどうしたらいいですか？

行は80あります。

条件付書式では３つしかできないし、関数でもできないとか・・・。

VBAは全くの初心者なんです。

よろしくお願い致します。

 誰も答えないのも分かる気がします。
 まゆさんの質問の仕方が悪いのではなく、質問の内容が難しいというか
 面倒な内容なんです。

 VBAを実行して一括で処理するんなら、誰か答えてくれると思います（汗）。
 （ramrun）遅レスですが...

 ↓どこかのラウンジ

あたかも関数でできたかのように、セルに色をつけたい: http://www.keep-on.com/excelyou/1999lng4/199910/99090340.txt

仕方ないので、自分の目で見て色をつけています（笑）
時々、ここをチェックして勉強しています。
またよろしくお願いします。
（まゆ）

 同じ方で、似た内容なのでこちらに統合しました。
 （kazu）

『色のついたセルの数値を合計したい』（まゆ）

以前に同じ質問が出ていて、その答えをコピーして作った
のですが、

初めはうまく計算されたのに途中からエラーが
でるようになってしまいました。

どなたか教えて下さい。
お願いします。

 いくつか方法があるので、どの方法で試されたのでしょう。
実際に試されている内容を書いていただかないと・・・。
(KAMIYA)

Function FCIS(adrs, clr)

 Dim sm As Integer, ad As Range, fci As Variant

 sm = 0

 For Each ad In adrs

    If ad.Interior.ColorIndex = clr Then

        sm = sm + ad.Value

    End If

 Next

 FCIS = sm

 End Function

 Function FCB(adr)

 FCB = adr.Interior.ColorIndex

 End Function

こういうのです。（まゆ）

 エラーの種類やどのような場面でエラーになるのかも情報が
ほしいところですが、推測。
以下を変更してください。
 Dim sm As Integer
　↓
 Dim sm As Double
合計数が32767を越えたあたりから#VALUE!エラーになるということだと思います。
　
「整数型 (Integer) の変数は、16 ビット (2 バイト) の変数で、
 -32,768 ～ 32,767 の範囲の値をとります。」
ということなので、オーバーフローを起こしているのではないでしょうか。
詳しくはVBAヘルプ「データ型の概要」を参照してください。
はずしていたらもう少しどのように使っているのかも含めて
追加書き込み願います。
(KAMIYA)

 [KAMIYA]さん面目ないです。
（FCISの作者・kazu）

 色を付けることに関しては、こちらが応用できるかもしれませんね。
 （ramrun）休憩～

[[20031112110645]]『ある値の時そのセルと同じ書式を適用したい』（まーちん）

できました！！ありがとうございます！

KAMIYAさんが言われるように合計金額が少ないうちはできてた気がします。

VBAは初心者ですので、また質問させていただきます。

嬉しいです～！

（まゆ）

コメント返信：

[ 一覧(最新更新順) ]

[[20040612104022]] 『同じ値のセルに同じ色をつけたい』（まゆ） ページの最後に飛ぶ

[[20040612104022]]　『同じ値のセルに同じ色をつけたい』（まゆ）　ページの最後に飛ぶ