エクセルのVBAでお願いします。エクセルのバージョンは2002です。

Question

anglar

38

37もっと見る

116pt

コンピュータ

エクセルのVBAでお願いします。エクセルのバージョンは2002です。

添付画像の通り、アクティブシートに教科名が入っているセルがあります。この任意セルの背景色を、２番目の画像の条件（設定シート）により変えて、一番右側のようなセル背景色にしたいと思っています。ただし、条件となる教科名は設定シートの通り、クラスにより変化しています。条件付き書式にならなくてもかまいません。よろしくお願いします。

回答の条件

1人2回まで

登録：2010/02/11 12:43:33
終了：2010/02/11 22:14:27

No.2

kn196729153012010/02/11 13:57:22

33pt

アクティブシートのＤ５からＩ２２までを選択しておいて、

条件付書式にて、

数式が =MATCH(D5,INDIRECT(CONCATENATE("設定!C",ROW()-2,":D",ROW()-2)),FALSE)

として、あとは「書式」で色を選択します。

この数式による条件付き書式もスゴイです。ありがとうございました。

2010/02/11 22:08:24

No.3

jccrh1111192010/02/11 14:15:18

33pt

VBAではなく条件書式で対応した方がシンプルだと思います。

手順は以下の通りです。

1.条件の範囲に範囲名を指定します。
　範囲　　 範囲名
　B3:B20　クラス
　C3:C20　条件1
　D3:D20　条件2

2.B5に条件書式を設定します。
　・「書式」メニュー→「条件書式」
　・「数式が」「=SUMPRODUCT((クラス=$A5)*(条件1=B5))」
　　書式を背景（ピンク等）に設定
　・追加
　・「数式が」「=SUMPRODUCT((クラス=$A5)*(条件2=B5))」
　　書式を背景（ピンク等）に設定
　・OKボタンを押す

3.B5をB5:Kn(nは時間割の最終行）に書式を複写する
　・B5をコピー
　・B5:Knを範囲指定
　・「編集」メニュー→「形式を選択して貼り付け」
　　「書式を選択」してOKボタンを押す

この数式もまたまたスゴイですね。勉強させていただきます。

2010/02/11 22:08:54

No.4

yuuya-5531102010/02/11 14:30:37

ポイントほしー

他の方と違って、こういう人もいるんですね。

2010/02/11 22:09:20

No.5

yuuya-5531102010/02/11 14:32:00

うごめもで通報するとグリひとつもらえるーー

できれば、回答しないでね。

2010/02/11 22:09:40

SALINGER 2010/02/11 14:37:01

yuuya-553さん、プロフィールみると１０さいってかいてますよね。
こういうところでのむせきにんなかきこみはやめてね。
kn1967 2010/02/11 20:56:01

私 kn1967 の回答は大きく間違ってます。申し訳ないです。
ゼロポイントにしておいてください。> id:anglar さん
anglar 2010/02/11 22:12:53

>id:kn1967さん、誠意を持って回答してくれていることに感謝です。悲しい方の回答にがっかりしている私をなぐさめてくれるかのようなコメントに再度、感謝。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

SALINGER · Accepted Answer · 2010-02-11T13:45:50+09:00

これは条件付書式だけでできます。

設定シートの表を選択し「設定」などと名前をつけます。

次に条件付書式を設定するセルをＦ５から右下に選択し

条件付書式から

数式が
=OR(F5=VLOOKUP($A5,設定,2,FALSE),F5=VLOOKUP($A5,設定,3,FALSE))

にして塗りつぶしパターンをピンクにすればいいです。

で、質問はExcelVBAでということなので上記の処理をするマクロはこちら。

Sub Macro()
    Dim lastRow As Long
    Dim lastColumn As Long
    lastRow = ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
    lastColumn = ActiveSheet.Cells(5, Columns.Count).End(xlToLeft).Column
    Worksheets("設定シート").Range("B2").CurrentRegion.Name = "設定"
    ActiveSheet.Range("F5").Select
    With Selection.Resize(lastRow - 4, lastColumn - 5)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OR(F5=VLOOKUP($A5,設定,2,FALSE),F5=VLOOKUP($A5,設定,3,FALSE))"
        .FormatConditions(1).Interior.ColorIndex = 7
    End With
End Sub

SALINGER · Accepted Answer · 2010-02-11T13:45:50+09:00

これは条件付書式だけでできます。

設定シートの表を選択し「設定」などと名前をつけます。

次に条件付書式を設定するセルをＦ５から右下に選択し

条件付書式から

数式が
=OR(F5=VLOOKUP($A5,設定,2,FALSE),F5=VLOOKUP($A5,設定,3,FALSE))

にして塗りつぶしパターンをピンクにすればいいです。

で、質問はExcelVBAでということなので上記の処理をするマクロはこちら。

Sub Macro()
    Dim lastRow As Long
    Dim lastColumn As Long
    lastRow = ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
    lastColumn = ActiveSheet.Cells(5, Columns.Count).End(xlToLeft).Column
    Worksheets("設定シート").Range("B2").CurrentRegion.Name = "設定"
    ActiveSheet.Range("F5").Select
    With Selection.Resize(lastRow - 4, lastColumn - 5)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OR(F5=VLOOKUP($A5,設定,2,FALSE),F5=VLOOKUP($A5,設定,3,FALSE))"
        .FormatConditions(1).Interior.ColorIndex = 7
    End With
End Sub

エクセルのVBAでお願いします。エクセルのバージョンは2002です。

ベストアンサー

SALINGER34549692010/02/11 13:45:50

その他の回答（4件）

SALINGER34549692010/02/11 13:45:50ここでベストアンサー

kn196729153012010/02/11 13:57:22

jccrh1111192010/02/11 14:15:18

yuuya-5531102010/02/11 14:30:37

yuuya-5531102010/02/11 14:32:00

コメント（3件)

この質問への反応（ブックマークコメント）