[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『変わった色付け』(888)
お世話になります。
ちょっと変わった色の付け方なのですが対応できるでしょうか?
AK列の2行目から数字が約30000行あります。その間は空白行はありません。
その配下にある数字でA列からR列で黄色で色を付けたいのです。
A列からR列 AK列
Cells(2,X) 7=X
Cells(3,X) 1=X
Cells(4,X) 6=X
Cells(5,X) 4=X
Cells(6,X) 15=X
数字は1から18までです。
宜しくお願い致します。
< 使用 Excel:Excel2007、使用 OS:Windows7 >
Cells(2,X) ということはマクロで行いたいということか? 条件付き書式ではどうか? (ねむねむ) 2019/01/08(火) 15:31
マクロならこんな感じでどうでしょう。 AK列には数字のみ書かれているとしてます。 Sub Test() Dim i As Long For i = 2 To Range("AK" & Rows.Count).End(xlUp).Row Cells(i, Range("AK" & i).Value).Interior.Color = vbYellow Next i End Sub (ろっくん) 2019/01/08(火) 15:36
Dim i As Long For i = 1 To 18 If Not IsError(Application.Match(i, Columns(37), 0)) = True Then Cells(2, i).Resize(5).Interior.Color = vbYellow End If Next End Sub
(ピンク) 2019/01/08(火) 16:31
マクロで考えてみたのですがまだまだ勉強が足りずにいます。
考えは思いつくのですがコードがかけずに止まってしまいます。
ろっくん様のコードで正解でした。
あっと言う間に終わってしまいとても感謝しています。
ありがとうございました。
(888) 2019/01/08(火) 16:48
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.