- ベストアンサー
Excel VBA セルの色の取得は可能？
VBAにて、お世話になっています。 指定したセルの色が何色か取得は可能ですか？ 例えばsheet1のC11の ColorIndex=○○ ○○ は 何番かわかりますか？
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- hana-hana3
- ベストアンサー率31% (4940/15541)
＞「教えて!goo」で聞いているので・・・ 普段から検索する癖を付けましょう。 回答を待つよりも何倍も早いですよ。
お礼
ご回答有難う御座います。 何故か解りませんが、＃1さんのご回答後、 「この質問は削除されました。」 との表示になりました。 なので、[Google]の名前がでたからなのかなぁ と、勝手に思ってしまいました。 それで返礼してしまいました。 しばらくたって、hana-hana3さんのご回答も 表示されました（＃2さんのご回答も）
- CXI00554
- ベストアンサー率27% (57/205)
「セルの色の取得」でGoogleで検索をかけてみたら、ヒットしますよ。 無責任な回答ですみません。
お礼
早速のご回答有難う御座います。 「教えて!goo」で聞いているので・・・ 有難う御座いました。
関連するQ&A
- EXCELで４色の色をつけるVBA（既存）を最後のシートまで実行するには？
エクセルのＶＢＡで質問です。 現在、下記のＶＢＡにて、エクセルに４色の色をつけています。 内容 ・処理範囲内（D5:AI50)の列の値が、 ・指定した行（4行目）の値から見て、 ・＋5、＋10、－5、－10の場合、それぞれ指定した色をつけています ・ただしＣ列の値が30未満の行は色付けなし 現状では、このマクロはアクティブシートのみで使えるため、 １００シートあれば、それぞれのシートにおいて そのつどマクロを実行しています。 これを、一度の実行で最終シートまで実行できるようにしたいのです。 ＶＢＡ初心者のため、見よう見まねでループを試してみたものの、 どうもうまく動きませんでした。 なにとぞご教授のほど、お願いいます。 ●以下、現在使用しているＶＢＡ Sub 条件付4色の標本数1() Dim 処理範囲 As Range Dim 先頭の行番号 As Long Dim 全体の行数 As Long Dim 各セル As Range Dim 差分 As Single Dim 標本数 As Single Set 処理範囲 = Range("D5:AI50") For Each 各セル In 処理範囲 標本数 = Cells(各セル.Row, "C").Value If 標本数 >= 30 Then 差分 = 各セル.Value - Cells(4, 各セル.Column).Value Select Case 差分 Case Is <= -10 各セル.Interior.ColorIndex = 37 'ペールブルー 各セル.Font.ColorIndex = 1 Case Is <= -5 各セル.Interior.ColorIndex = 34 '薄い水色 各セル.Font.ColorIndex = 1 Case Is >= 10 各セル.Interior.ColorIndex = 6 '黄37 各セル.Font.ColorIndex = 1 Case Is >= 5 各セル.Interior.ColorIndex = 19 '薄い黄 各セル.Font.ColorIndex = 1 Case Else 各セル.Interior.ColorIndex = xlNone '無色 End Select End If Next End Sub
- 締切済み
- オフィス系ソフト
- エクセルＶＢＡでセルの色を取得できますか？
エクセルＶＢＡについて教えてください。 セルの色のカラーコードを取得とかってできますでしょうか？ 「#000000」みたいに。
- ベストアンサー
- その他(業務ソフトウェア)
- エクセル VBA 色を変える
VBAさっぱり者です。 仕事で困ってます。 ・range("A1") の ｃolorindexが 5だったら 1に変えて塗りなおす。 ・range("A1:C5"）のうちｃolorindexが 5のセルだけ 1に変えて塗りなおす。 教えてパソコン大先生!!
- ベストアンサー
- オフィス系ソフト
- VBA セルの色を変更する
VBA（エクセル2007使用）で、セルの背景色を変更する場合についての質問です。 マクロを実行する度に、セルの背景色を変更するマクロを作成しました。 オレンジ→水色→緑→灰色→無色 という風に変わっていくところまでは できたのですが、これだとマクロを実行するのにセルの状態が無色か、指定した カラーコードで塗りつぶされていないと実行できません。 下記、コードの一番最初の Case で ”背景色がどんな色の場合でも”という条件に したいのですが、どのように記載したらわからずにいます。。。 ---------------------------- Sub 色チェンジ() n0 = ActiveCell.Interior.ColorIndex Select Case n0 Case xlNone ’ここを”どんな色の場合でも、、、という条件にしたいです。。” Selection.Interior.ColorIndex = 40 Case 40 Selection.Interior.ColorIndex = 34 Case 34 Selection.Interior.ColorIndex = 35 Case 35 Selection.Interior.ColorIndex = 15 Case 15 Selection.Interior.ColorIndex = xlNone End Select End Sub -----------------------------------
- ベストアンサー
- オフィス系ソフト
- vba 指定した日付範囲でセルの色を塗る
急遽、エクセルVBAを組んでくれと頼まれたのでわかる方、教えていただけますか？ 開始日時(A行)と終了日時(B行)があり、 開始と終了の範囲でC以降日付になっており 指定の範囲内でセルの色が塗られるいうものなのですが なにせ急ぎとVBAがほとんどわからないのでなるべくわかりやすく 教えていただけるとありがたいです。 ちなみにsheetにコードを記入するのとmoduleにコードを記入するのでは どう違うのですか？わからないまでも一応、色が塗られるところまでは できたのですがどうやってセルの時間を取得して範囲を指定すれば 良いのかなどがわかりませんどうかよろしくお願い致します。 下記は作成途中ですが・・・ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim row As Integer Dim line As Integer row = 5 line = 9 Set objR = Range("A1").Resize(1, 4).Offset(1, 2) objR.Interior.ColorIndex = 8 End Sub
- ベストアンサー
- Visual Basic
- Excel VBA で色付きのセルの値を取得する
ExcelのVBAマクロで、For ～ Then構文で複数のセルを参照していき、 色付きのセル（塗りなしのセル）に入力されている値のみを取得する方法を教えてください。 Excel2007を使用しています。
- ベストアンサー
- Excel（エクセル）
- エクセル2013VBA結合セルの間のセル位置取得
いつもお世話になってます。 エクセル2013VBAで質問です。 B3:B4セルが結合されています。また、C3:AG3セル（31セル分）も結合されています。 その時、C4:AG4セルを取得したいのですが位置がずれて思うように取得できません。 どのような指定をすればよろしいでしょうか？ お手数ですがお願いいたします。 下記は試してみてだめだったもののうちの一つです。 Sub test() Range("B3").Offset(0, 1).MergeArea.Select Range("B3").Offset(1, 0).Resize(1, 31).Select End Sub
- ベストアンサー
- Excel（エクセル）
- エクセルVBA 選択した値でセルの色を変える方法
エクセルのVBAです。 指定されたセルの値をプルダウンで選択し、入力（選択）された値によって同じ列の指定した範囲に色を付ける、という内容です。 これを、一つの列のみで行う場合は、以下のコードでOKでした。 わからないのは、列の範囲が5～40まであり、それぞれ値を選択した時にそのセルと同じ列の指定範囲に色をつけることです。 ちなみに、条件付き書式は、すでに条件がいくつかついているため 使用できないという前提でお願いします） ちょっと説明がわかりづらいですが、おわかりになる方いらっしゃいましたら教えてください。よろしくお願いします！！ ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ Private Sub Worksheet_Change(ByVal Target As Range) a = Cells(33, 5).Value Select Case a Case "A" Range("E6:E31").Interior.ColorIndex = 6 Case "B" Range("E6:E17").Interior.ColorIndex = 8 Range("E18:E31").Interior.ColorIndex = 2 Case "C" Range("E18:E31").Interior.ColorIndex = 8 Range("E6:E17").Interior.ColorIndex = 2 Case "" Range("E6:E31").Interior.ColorIndex = 2 End Select End Sub ・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・ Cells(33, 5)で A を選択した時は、E6:E31を黄色で。 B を選択した時は、E6:E17を水色かつE18:E31を白 C を選択した時は、E18:E31を水色かつE6:E17を白 値なしを選択した時は、色なし（白）
- ベストアンサー
- その他（ビジネス・キャリア）
- VBA セルに入力されている数値でセルを指定する
Excel VBA初心者です。 Sheet1のA1セルに10、A2セルに3を入力しています。 この入力したセルの数値を参照して、 Sheet2の「Cells(10,3)」(C10セル)を青(Interior.ColorIndex = 5)に 書式変更したいのですが、「Cells(”Sheet1.A1の値”,”Sheet1.A2の値”)」の 書き方がわかりません。 Excel2010を使用しています。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Macとの接続で製品選択後にPrint&Scan Push Toolのインストールが必要です。
- Macの場合、scanの際に製品選択後、Print&Scan可能と表示されますが、実際にはPrint&Scan Push Toolをダウンロードしてインストールする必要があります。
- MacBook AirのOSは12.6.2で、接続は無線LANです。関連するソフト・アプリは不明です。
お礼
なるほど わかりました。 ありがとうございました。