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

エクセルのマクロで背景色を参照するには

Sheet1 A1.B1.C1 Sheet2 A1.B1.C1 Sheet3 A1.B1.C1
とあります。この場合Sheet1のA1.B1.C1をSheet2と3の各同セルに背景色を参照させるコードを教えて頂けませんか。何卒よろしくお願いします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/10/27 10:54:35
  • 終了:2013/10/27 12:23:20

ベストアンサー

匿名回答1号 No.1

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

Option Explicit

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

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

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

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

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

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