人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのマクロの背景色の参照
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/1件

▽最新の回答へ

1 ● 匿名回答1号
ベストアンサー
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
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ