【Excel】　セルの色での判断はできますか？

解決済

質問者：motsu2006
質問日時：2007/08/10 16:06
回答数：4件

使用環境：Office2003

条件付書式を使用して、セルの値がxxならばセルを着色する・フォントを変える、というのは可能ですが、

逆に

セルの色がxx（例えば赤等）ならば、隣のセルに1を代入する

ということは可能でしょうか？
※VBAを使わなければそれにこしたことはないですが、
　必要ならばコーディングも教えてください

よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「意味 alt」に関するQ&A： ALTの意味とは

さらに表示

「フォントコーディング」に関するQ&A：コーディングに使用しているフォントは何ですか？

「if関数色」に関するQ&A：ＥＸＣＥＬ（ＩＦ関数）でＣＥＬＬの色を変える。

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： zap35
回答日時：2007/08/10 16:29

過去の質問を検索していただくと、たくさんの事例がありますが、結論から言うとＶＢＡを使用しないとセルの色は取得できません

＞セルの色がxx（例えば赤等）ならば、隣のセルに1を代入する
ＶＢＡを使用すればもちろんできますが、これは「例えば」の質問であって、このコードを書いても意味はないのでは？

ですから汎用的に使えるユーザ定義関数にしました。以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。
ワークシート画面に戻って、適当なセルに
=CellColor(A1)
と入力してみて下さい。A1セルの色番号が表示されます。（背景色なしの場合は０が返ります）
この戻り値判定して、関数などでセルに値をセットすればよいでしょう

Function CellColor(ByVal rng As Range)
With rng.Cells(1, 1).Interior
If .ColorIndex = xlNone Then
CellColor = 0
Else
CellColor = .ColorIndex
End If
End With
End Function

ただしセルの背景色を後から変えても、ユーザ定義関数の戻り値は自動的には変わりません。式を入力した後で背景色を変更した場合は
　ALT＋Ctlr＋F9
で強制再計算させる必要があります。

- 7
- 件

通報する

この回答へのお礼

自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。

確かに、もう少し具体的な質問をしないとサンプルコードも書けないかもしれませんね。
しかし、zap35さんのご回答、参考になりました。
強制再計算はボタンクリックに変更し、ほぼ目的にあった動作をさせることができました。

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

通報する

お礼日時：2007/08/13 11:47

No.4

回答者： noname#79209
回答日時：2007/08/11 12:35

何の理由もなしに色をつけているとは思えませんので、

その理由付けになっている条件を取得できないでしょうか。
また、そのように仕組むべきです。
ご質問の内容だと、
「セルの色が赤ならば、隣のセルに1を代入する」ではなく、
「隣のセルが1なら、セルの色を赤にする」というアプローチに変更します。

エクセルの関数は他のセルをどうこうする機能はありません。
「隣のセルに1を代入する」という考え方ではなく、「他のセルの内容によって『１』になるような数式をセットしておく」という考え方です。

- 2
- 件

通報する

この回答へのお礼

自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。

おっしゃることはわかります。
ただ、今回は既にある特定のセルが着色されたデータをもらい、
それに対して集計を行うのが任務だったので。

通報する

お礼日時：2007/08/13 11:50

No.3

回答者： WWolf
回答日時：2007/08/10 16:35

参考にして下さい

http://okwave.jp/qa3233066.html

- 1
- 件

通報する

この回答へのお礼

自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。

ありがとうございます。こういうやり方もあるんですね。
しかし、ちょっと私にはソースが高度かな？って感じですが、
今後のためにも勉強になります。

通報する

お礼日時：2007/08/13 11:48

No.1

回答者： shirayukix
回答日時：2007/08/10 16:28

私も先ほど同じ問題でハマりました。

最初のセルをA1、隣のセルをB1として、
・A1: A1の値が0より大きければA1の色を赤にする(条件付き書式)
・B1: A1の値が0より大きければB1に1を表示する
・A1に1を入れる

私はこの方法で妥協することにしました。

この回答への補足

自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。

で、ご回答いただいたないようですが、
私と目的が異なっているように思えるのですが、それは私の理解力が不足しているだけでしょうか？
すみませんが、追記いただけると助かります。

補足日時：2007/08/13 11:43

通報する

- 2
- 件

通報する

このQ&Aに関連する人気のQ&A

「if関数色」に関するQ&A：エクセル・・色の着いたセルの個数を数える関数はある？

さらに表示

「意味 alt」に関するQ&A：突然マウスカーソルが動かなくなる

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcel 書式を関数で判断。

Excelで、「もしA1が緑色ならば」などと、書式を関数で判断させるにはどうすればよいのでしょうか。

Aベストアンサー

#1の回答通り関数はありません。マクロでなら可能です。

ここでは「色の付いたセルを合計」という質問が結構出ています。
http://okwave.jp/kotaeru.php3?q=2000523

他の回答も見る

QＥＸＣＥＬ（ＩＦ関数）でＣＥＬＬの色を変える。

例えば、ＩＦ関数で真ならセルの色を赤色にしたり、文字の色を変えたりする関数とかはあるのでしょうか？わかりません・・・知ってる方いらっしゃれば教えて下さい。

Aベストアンサー

こんばんは。

関数ではありませんが‥

＜条件付き書式＞ではダメなのでしょうか？

メニュー＜書式＞－＜条件付き書式＞です。

どのような条件を想定していらっしゃるのかわかりませんが、
＜条件付き書式＞については↓の参考URLをご覧ください。

▽条件付き書式・その1
http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu4.htm

▽条件付き書式・その2
http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu5.htm

参考URL：http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex_ks_syokyu4.htm

他の回答も見る

Qエクセル・・色の着いたセルの個数を数える関数はある？

エクセルの表内で塗りつぶしされているセルだけを数える様な関数はありますか？
セルには文字や数値は入力されておらず、塗りつぶしているだけです。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

ユーザー定義関数で作ってみました。Ver4 マクロ関数で十分だと私は思いますが、Ver 4 マクロ関数ではケシカランというような方？は、以下のようなVBAでの解決方法が便利かなって思います。

VB Editor の標準モジュールに貼り付けてください。（挿入－標準モジュール）

なお、一般のブックの標準モジュールのユーザー定義関数に、Public キーワードをつけたところで、グローバル関数になるわけではありませんので、もしその点に不安のある方は、マニュアル等で、確認されたほうがよいかもしれませんね。

なお、以下は、引数のインデックスに0を入れると、配列出力するようにしてあります。

'------------------------------------
Function ColorCellCount(範囲 As Range, Optional インデックス As Integer = 1, Optional パターン As Integer = 0)
　 Dim myRng As Range
　 Dim myIndex As Integer
　 Dim myPattern As Integer
　 Dim myColor() As Integer
　 Dim Ret() As Double
　 Dim c As Range
　 Dim i As Long
　 Dim j As Long
　 Set myRng = 範囲
　 myIndex = インデックス
　 myPattern = パターン
For Each c In myRng
　　　On Error Resume Next
　　　If myPattern = 0 Then
　　　　 i = WorksheetFunction.Match(c.Interior.ColorIndex, myColor, 0)
　　　Else
　　　　 i = WorksheetFunction.Match(c.Font.ColorIndex, myColor, 0)
　　　End If
　　　If i = 0 Then
　　　　 ReDim Preserve myColor(j)
　　　　 ReDim Preserve Ret(j)
　　　　　　If myPattern = 0 Then
　　　　　　　myColor(j) = c.Interior.ColorIndex
　　　　　　Else
　　　　　　　myColor(j) = c.Font.ColorIndex
　　　　　　End If
　　　　　　Ret(j) = 1
　　　　 j = j + 1
　　　　 On Error GoTo 0
　　　　 Else
　　　　　　Ret(i - 1) = Ret(i - 1) + 1
　　　End If
　 Next
　 If myIndex <= 0 Then
　　　ColorCellCount = Ret()
　 ElseIf myIndex > UBound(Ret) + 1 Then
　　　ColorCellCount = Ret(UBound(Ret()))
　　　Else
　　　ColorCellCount = Ret(myIndex - 1)
　 End If
　 Set myRng = Nothing
End Function

ワークシート上での使い方は、

A列
色付き
色なし
色なし
色付き
色付き

=ColorCellCount(A1:A5, 1 )

とすれば、上から数えて、1番目の色のセルの数が出ます。

=ColorCellCount(A1:A5, 2 )
を入れれば、色なしのセルの数が出ます。

=SUMPRODUCT(ColorCellCount(A1:A5, 0 ))

とすれば、全部の合計が出ます。

なお、
=ColorCellCount(A1:A5,1,1)

とすれば、文字の色を数えます。

他の回答も見る

QエクセルのＩＦ関数で、文字が入力されていたならば～

エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またＩＦ関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか？

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列>　<B列>　<C列>
7/1　りんご　100円
7/2　ぶどう　200円
7/2　すいか　300円
7/3　みかん　100円

このような表があって、100円を含む行をそのままの形で、
別のセル（同じシート内）に抜き出したいのですが。

7/1　りんご　100円
7/3　みかん　100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は５００行までとしていますが、必要に応じて変更して下さい

他の回答も見る

Q【Excel】色の一致するセル数をカウントしたい。

こんにちは。

ある条件にあてはまるセルに、書式でセルの色を設定してあります。
いくつかの条件で色分けしてあるのですが、これらのセルの色が「赤」は幾つ、「青」は幾つというふうに、
カウントすることは出来るのでしょうか。

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

Aベストアンサー

繰り返し何度も出てくる質問です。関数でと考えているなら、直接はできません。
VBAで中身たった１行のユーザー関数を作ればできます。
http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html
など
Googleで「エクセル　セル　色　カウント」などで照会すると似た質問が出る。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1225959
にはCELL関数のことも載っているが、旧いバージョンの関数なので
私は、除外して言ってます。

他の回答も見る

QＥＸＣＥＬの関数でセルに色を設定

ＥＸＣＥＬの関数を使用して、セルに色を付けることはできるのでしょうか？
できるのであれば、どういった関数を使用するのでしょうか？
よろしくお願いします。

Aベストアンサー

こんにちは

　以下のページがご参考になるのでは？

【エクセル技道場】－条件付き書式
http://www2.odn.ne.jp/excel/waza/cformat.html

参考URL：http://www2.odn.ne.jp/excel/

他の回答も見る

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For　～　To　～
　　Worksheets("シートＡ").Activate
　　シートＡの値取得
　　　　　　　：
　　Worksheets("シートＢ").Activate
　　シートＢの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください！

Aベストアンサー

Worksheets("シートＡ").Range("A1")

みたいな感じでできませんか？

他の回答も見る

Qエクセルで条件に一致したセルの隣のセルを取得したい

下のような「得点」という名前のシートがあります。
（「田中」のセルがA1です。）

　[ 田中 ][ 10 ][ 200 ]
　[ 山田 ][ 21 ][ 150 ]
　[ 佐藤 ][ 76 ][ 250 ]
　[ 鈴木 ][ 53 ][ 350 ]

別のシートのA1セルに、「佐藤」と入力すると、

　[ 佐藤 ]

「得点」シートから「佐藤」の列を見つけて、B1、C1に

　[ 佐藤 ][ 76 ][ 250 ]

のように表示させたいのですが、B1、C1にはどのような式を書けば良いのでしょうか。
「得点」シートでは氏名が重複する事はありません。
IF文を使うと思うのですが、いまいち良く分かりませんでした。

よろしくおねがい致します。

Aベストアンサー

こんにちは！
VLOOKUP関数で対応できます。
IF関数と併用すればエラー処理が可能です。

Excel2007以降のバージョンであれば
B1セルに
=IFERROR(VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0),"")
としてC1セルまでオートフィルでコピー！
そのまま下へコピーすると行が2行目以降でも対応できます。

Excel2003までの場合は
=IF($A1="","",VLOOKUP($A1,得点!$A:$C,COLUMN(B1),0))

としてみてください、m(_ _)m

他の回答も見る

ページトップ