- 締切済み
Excel VBAでセルの色塗りについて
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- xls88
- ベストアンサー率56% (669/1189)
こちらが参考になります。 セル色を、ある条件で自動的に色分けして塗りつぶしさせたい http://okwave.jp/qa3628390.html
関連するQ&A
- 【VBA】条件を満たしたセルを塗り潰し
VBAで下記のようにしたいのですが、どのようにすれば良いでしょうか？ A 1 100 2 110 3 120 4 130 5 140 6 150 7 160 8 170 9 180 【条件】この場合、A1:A9の範囲内でB1の値を超える値が入力されているセルを黄色で塗りつぶす ※前提として、B1に150と入力されているとします 上記のようなVBAを作成したいと思っています。 この場合、塗りつぶしの対象となるセルはA7,A8,A9となります。 条件付き書式で対応できるのですが、Excel2007で作成したファイルをExcel2003で開くと条件付き書式が反映しませんでしたので、VBAで対応しようと思いました。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA で色付きのセルの値を取得する
ExcelのVBAマクロで、For ～ Then構文で複数のセルを参照していき、 色付きのセル（塗りなしのセル）に入力されている値のみを取得する方法を教えてください。 Excel2007を使用しています。
- ベストアンサー
- Excel（エクセル）
- エクセルVBAでセル選択
エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAで・・・
VBA初心者です。。 Excelのある列のセルの値が全角文字の場合に、 隣の列に全角カタカナに変換した値を転送するVBAがあります。 変換元の列の中に空白セルがあった時は変換先のセルに 文字があっても空白に置き換えたいのですが、方法がわかりません・・・。 使用しているVBAの内容は下の通りですが、どういう風に 修正すれば実現できるかアドバイスを頂けないでしょうか？ よろしくお願い致します！ Dim C As Range For Each C In Range("E3", Range("E65536").End(xlUp)) If C.Value <> "" Then _ C.Offset(, 1).Value = Application.GetPhonetic(C.Value) Next
- 締切済み
- その他（プログラミング・開発）
- エクセルのVBAを使った条件付き書式
VBAの初心者です。というか使ったことがありません。 4つ以上の条件付き書式はVBAが必要になるようなので困惑中です。 下記の条件付き書式をVBA作りたいと思っています。 「1」を含む値の場合セルの背景を黄色に 「2」を含む値の場合セルの背景を緑色に 「3」を含む値の場合セルの背景を水色に 「4」を含む値の場合セルの背景を赤色に 例） 1北海道 → セルの背景を黄色 2山形 → セルの背景を緑 これを実現するVBAのコードを教えてください。 また、そのコードをどこに貼付ければいいのでしょうか？ まったくの初心者で申し訳ありません。
- ベストアンサー
- オフィス系ソフト
- 指定した背景色のセルの値を削除するVBAを作りたい
ご覧いただきありがとうございます。 VBA初心者です。 VBAを用いて指定し背景色のセルの値を全て削除したいと考えています。 シートには別の背景色のセルもあるため色のあるセルの値をすべて削除などは使えません。 For Eachを用いて以下のような数式を用いようと思ったのですが、Ineriorはセルを対象としていないといけないようで、シート全体を対象としたい場合どうしたらよいか分かりません。 また終わりのところもよくわかっていません。 ご教授よろしくお願い致します。 Dim ws As warksheet For Each ws In ActiveSheet If ws.Interior.ColorIndex = RGB(252, 228, 214) Then ws.ClearContents Next End Sub
- 締切済み
- Excel（エクセル）
- 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
- 締切済み
- オフィス系ソフト
- Excel VBAで保護されていないセルのクリアー
こんにちは。 Excel2002を使用しております。 例えば、A1:D20の範囲にいくつか保護されて いないセルがあるのですが、保護されていな いセルの値のみをクリアーすることは可能で しょうか？ ExcelのVBAは素人ですが、よろしくお願い いたします。
- ベストアンサー
- オフィス系ソフト
- エクセルvbaでインターネットの履歴を書き出したい
http://oshiete1.goo.ne.jp/qa5082258.html でも質問したものですが、 エクセルvbaでインターネットの履歴をシートに書き出すことは可能でしょうか？ For Each...Next ステートメントとかで 取得できそうな気もしないでもないような、、、 何かわかる方よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル VBAで色塗りについて教えてください
VBA初心者です。 例えばB列2行目から下に(1)～(7)までの番号を不規則に入力することにより F列11～17行目に1セルずつ右へ色塗りをしていくにはどうプログラムをかいたらよいでしょうか？ 番号によって、色塗りの行と色は決まっています。 (1)→11行目、黄色 (2)→12行目、青色 (3)→13行目、赤色 (4)→14行目、緑色 (5)→15行目、白色 (6)→16行目、黒色 (7)→17行目、茶色 また色塗りはF列からBD列までで終了です。 番号の入力回数の多いものが色塗りを早く終了できることになります。 VBAの本をみながら試行錯誤していましたが、うまくできず… どなたか詳しい方、お力を貸してください。
- ベストアンサー
- オフィス系ソフト
お礼
回答ありがとうございます。 参考ページで条件に合致しない時に"xlNone"でやると、元の色まで消えてしまいます。 元の色は残したいのですが。