ExcelVBAです。
添付のように集計結果の各行や列に、色をつけたいのですが
どうすればよいでしょうか？
行（商品名の増）や列（年月の増）の数は毎回異なります。
↓商品名=A列は毎回変わらない
・A列に「*合計*」がある場合、その行の最終列まで任意の色をつける
・A列に「総計」がある場合、その行の最終列まで任意の色をつける
（列数は毎回異なるので、「F列まで」という範囲指定はできない）
↓タイトル名=１行目は毎回変わらない
・１行目に「計」がある場合、その列の最終行まで任意の色をつける
（行数は毎回異なるので、「何行まで」という範囲指定はできない）
「最終行・列を取得して、そこまで色をつける」がイマイチわからず、
困っています・・・・
すいませんが宜しくお願いします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
Mook
満足100pt
下記のようでどうでしょうか。
色に関して変更したい場合は、下記のページを参照ください。
http://www14.big.or.jp/~kawamura/color_table.htm
Sub PaintSumRow() Dim lastCol As Long Dim lastRow As Long Dim res As Range Set res = Rows(1).Find(what:="計", lookat:=xlWhole) If res Is Nothing Then MsgBox "1行目に""計""がありません" Exit Sub End If lastCol = res.Column lastRow = Range("A" & Rows.Count).End(xlUp).Row Dim i As Long For i = 1 To lastRow If InStr(Cells(i, "A").Value, "合計") > 0 Then Range("A" & i).Resize(1, lastCol).Interior.ColorIndex = 36 End If If Cells(i, "A").Value = "総計" Then Range("A" & i).Resize(1, lastCol).Interior.ColorIndex = 40 End If Next Cells(1, lastCol).Resize(lastRow, 1).Interior.ColorIndex = 38 End Sub問題があれば、コメントで対応します。
-
hananeko_0
-
hananeko_0その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2008-08-05 22:03:38
- 終了日時
- 2008-08-05 23:37:16
- 回答条件
- 1人5回まで
この質問のカテゴリ
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者2
-
内定してほしいポケモンはいますか？匿名質問者
VBA はパズルみたいな感じで回答できるので、こちらも半分楽しみながら
回答しています。
お役にたったようでなによりです。