記録のマクロを編集して再利用
マクロを編集して再利用
![マクロを編集して再利用](gazo/2013_macro_06b.png)
![マクロを編集して再利用](gazo/2013_macro_06b.png)
マクロをコピーして編集、再利用
コピーしたマクロを編集
記録したマクロをコピーして再利用する手順を解説しています。 前ページでは、コピーして不要なコードを削除しました。ここからは、コードの一部分を変更します。
マクロコードの編集結果
マクロのコードは、下図のようにかなり、すっきりしました。
パターンの設定は不要なので、コードを削除しましたが、もとのマクロと同じ動作をします。
![](gazo2013/macro/2013_macro_039.png)
パターンの設定は不要なので、コードを削除しましたが、もとのマクロと同じ動作をします。
![](gazo2013/macro/2013_macro_039.png)
Sub セルの背景応用() Range("B5:B10").Select With Selection.Interior .ThemeColor = xlThemeColorAccent1 .TintAndShade = 0.799981688894314 End With Range("C4:F4").Select With Selection.Interior .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0.799981688894314 End With End Sub
セルの背景の色を変えるには、「lnteriorオブジェクト」に用意されている各種プロバティで指定します。
「ThemeColorプロパティ」と「TintAndShadeプロパティ」です。![](gazo2013/macro/2013_macro_041.png)
「ThemeColorプロパティ」と「TintAndShadeプロパティ」です。
![](gazo2013/macro/2013_macro_041.png)
色を指定する時のコードを、「ThemeColorプロパティ」と「TintAndShadeプロパティ」から、考えてみましょう。
![](gazo2013/macro/2013_macro_042.png)
![](gazo2013/macro/2013_macro_042.png)
コードのアクセントカラーを変えるだけでも、違ってきますよ。
TintAndShadeは、マクロの記録で入力された値は、厳密には、0.8ではないですが、コードで指定する時は、そこまでの精度は必要なく、0.8でいいですね。
![](gazo2013/macro/2013_macro_043.png)
TintAndShadeは、マクロの記録で入力された値は、厳密には、0.8ではないですが、コードで指定する時は、そこまでの精度は必要なく、0.8でいいですね。
![](gazo2013/macro/2013_macro_043.png)
マクロを実行すると、下図の色になりました。
![](gazo2013/macro/2013_macro_044.png)
![](gazo2013/macro/2013_macro_044.png)