匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

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

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回まで
  • 13歳以上
  • 登録:2013/10/26 21:03:47
  • 終了:2013/10/27 09:52:00

ベストアンサー

匿名回答1号 No.1

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

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

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません