エクセルのマクロの背景色の参照

Question

匿名質問者

エクセルのマクロの背景色の参照

Sheet1のA1,B1,C1とSheet2のA1,B1,C1の背景色を
A1はA1で参照させB1はB1でと参照させる場合、
Sheet2.Range("A1").Interior.ColorIndex =
Sheet1.Range("A1").Interior.ColorIndex
Sheet2.Range("B1").Interior.ColorIndex =
Sheet1.Range("B1").Interior.ColorIndex
Sheet2.Range("C1").Interior.ColorIndex =
Sheet1.Range("C1").Interior.ColorIndex
この方法よりもっとスマートな方法を教えて頂けませんか？
何卒よろしくお願いします。

回答の条件

1人5回まで

登録：2013/10/26 21:03:47
終了：2013/10/27 09:52:00

コメントはまだありません

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

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

リクエスト送信済

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

Accepted Answer · 2013-10-27T03:42:29+09:00

Option Explicit

Sub c()
    Dim r As Range
    For Each r In Worksheets("Sheet2").Range("A1:C1")
        r.Interior.ColorIndex = Worksheets("Sheet1").Cells(r.Row, r.Column).Interior.ColorIndex
    Next
End Sub

エクセルのマクロの背景色の参照

ベストアンサー

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら2013/10/27 03:42:29

コメント（0件)

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

エクセルのマクロの背景色の参照

ベストアンサー

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。詳しくはこちら2013/10/27 03:42:29

コメント（0件)

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

匿名回答1号「匿名質問」を利用した質問に回答すると「匿名回答○号」と匿名で表示されます。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら2013/10/27 03:42:29