[[20190108151912]] 『変わった色付け』(888) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『変わった色付け』(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

こんな事?
Sub Test()
    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.