No.1
- 回答日時:
私も先ほど同じ問題でハマりました。
最初のセルをA1、隣のセルをB1として、
・A1: A1の値が0より大きければA1の色を赤にする(条件付き書式)
・B1: A1の値が0より大きければB1に1を表示する
・A1に1を入れる
私はこの方法で妥協することにしました。
この回答への補足
自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。
で、ご回答いただいたないようですが、
私と目的が異なっているように思えるのですが、それは私の理解力が不足しているだけでしょうか?
すみませんが、追記いただけると助かります。
No.2ベストアンサー
- 回答日時:
過去の質問を検索していただくと、たくさんの事例がありますが、結論から言うとVBAを使用しないとセルの色は取得できません
>セルの色がxx(例えば赤等)ならば、隣のセルに1を代入する
VBAを使用すればもちろんできますが、これは「例えば」の質問であって、このコードを書いても意味はないのでは?
ですから汎用的に使えるユーザ定義関数にしました。以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。
ワークシート画面に戻って、適当なセルに
=CellColor(A1)
と入力してみて下さい。A1セルの色番号が表示されます。(背景色なしの場合は0が返ります)
この戻り値判定して、関数などでセルに値をセットすればよいでしょう
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
で強制再計算させる必要があります。
自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。
確かに、もう少し具体的な質問をしないとサンプルコードも書けないかもしれませんね。
しかし、zap35さんのご回答、参考になりました。
強制再計算はボタンクリックに変更し、ほぼ目的にあった動作をさせることができました。
ありがとうございました!
No.3
- 回答日時:
自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。
ありがとうございます。こういうやり方もあるんですね。
しかし、ちょっと私にはソースが高度かな?って感じですが、
今後のためにも勉強になります。
No.4
- 回答日時:
何の理由もなしに色をつけているとは思えませんので、
その理由付けになっている条件を取得できないでしょうか。
また、そのように仕組むべきです。
ご質問の内容だと、
「セルの色が赤ならば、隣のセルに1を代入する」ではなく、
「隣のセルが1なら、セルの色を赤にする」というアプローチに変更します。
エクセルの関数は他のセルをどうこうする機能はありません。
「隣のセルに1を代入する」という考え方ではなく、「他のセルの内容によって『1』になるような数式をセットしておく」という考え方です。
自宅にはOffice2003の環境がないため、コメントが遅くなりましたことまずお詫び申し上げます。
おっしゃることはわかります。
ただ、今回は既にある特定のセルが着色されたデータをもらい、
それに対して集計を行うのが任務だったので。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
色つき行の一括削除は?
Word(ワード)
-
Excel 書式を関数で判断。
Excel(エクセル)
-
エクセル:文字色を認識して○×で判定する。
Excel(エクセル)
-
-
4
条件付き書式で色をつけたセルを判断して他のセルの色をつけることは可能でしょうか?どの様な方法がありま
Excel(エクセル)
-
5
セルに特定の色が付いていたら計算式を発動したい
Excel(エクセル)
-
6
セルの色によって条件文をつけることはできますか?
その他(Microsoft Office)
-
7
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
8
エクセルで文字色がついているセル数をカウント
Windows Vista・XP
-
9
VBAで色の付いているセルの行削除
Excel(エクセル)
-
10
エクセルで隣(右or左)のセルと同じ文字色にしたい
Excel(エクセル)
-
11
エクエルで隣のセルの文字が赤色だった場合は指定するセルも赤色にしたい
Excel(エクセル)
-
12
EXCEL関数での文字の色での判別
Excel(エクセル)
-
13
エクセルの色も=イコールできますか?
Windows Me・NT・2000
-
14
特定の色のついたセルを削除
Visual Basic(VBA)
-
15
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
16
あるセルに色を付けた時、別のセルにも同じ色が付く
Excel(エクセル)
-
17
エクセルでセルの色番号を表示する方法
Excel(エクセル)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB
Visual Basic(VBA)
-
20
別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで数式内の文字色を一部だ...
-
貼り付けで複数セルに貼り付けたい
-
(Excel)数字記入セルの数値の後...
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
エクセルで指定したセルのどれ...
-
エクセルの書式設定の表示形式...
-
セルをクリック⇒そのセルに入力...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
【Excel】 セルの色での判断は...
-
エクセルで住所と建物名を分け...
-
セルの高さ(行高)を求めるには?
-
excelの特定のセルの隣のセル指...
-
Excel2003 の『コメント』の編...
-
エクセル オートフィルタで絞...
-
エクセル 足して割る
-
エクセルの一つのセルに複数の...
-
EXCEL VBA セルに既に入...
-
Excelで教えてください。 バー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
Excelで数式内の文字色を一部だ...
-
エクセルで指定したセルのどれ...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excel for Mac使用中ポインタが...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
おすすめ情報