ExcelVbaの色属性をもったセルをあるシートから別なシートにコピーするときの方法。

赤塗り●、青塗り●、黄塗り●　どれかを持つセルを別なシートにコピーするときは、range指定で１命令ですると色属性が反映されません。
仕方なく次の命令で実行していますが、検索結果の表示に使うのでシートがそのたびに変化してうるさいです。元のシートに戻らず、コピーはできないものですか？

Worksheets("TRNSLASION").select ←元のシート
Range("H" & k).select　　　　　　　←色〇データあり
selection.copy
Worksheets("検索結果").select
Range("I" & j).select　　　 ←表示したいセル
Activesheett.Paste

No.3 回答者： Qchan1962 回答日時： 2021/09/03 14:46

＃１です

＞range指定で１命令ですると色属性が反映されません。
確かに、でコピー、良いと思いますが、罫線やフォント書式などをコピーしたくない場合は、プロパティで参照する必要が出て来ると思います。
（このような使い方を必要とする場面もあるかも知れませんので）
コピーを使わない場合の例を挙げておきます。

With Worksheets("検索結果").Range("I" & j)
.Value = Worksheets("TRNSLASION").Range("H" & k).Value
.Interior.Color = Worksheets("TRNSLASION").Range("H" & k).Interior.Color
End With

No.2 回答者： fujillin 回答日時： 2021/09/02 11:58

こんにちは

変数の内容が不明ですけれど、適切な値が入っているものとして、ご提示のコードの内容ならば

Worksheets("TRNSLASION").Range("H" & k).Copy Worksheets("検索結果").Range("I" & j)

で、同じ処理ができると思います。
（表示シートの移動等は行いません。）

この回答へのお礼

すっきり早くできました。感激！！！
基本中の基本なのでしょうね。
他のマクロでもやっていそうなので、見直します。
ありがとうございました。

お礼日時：2021/09/02 12:30

No.1 回答者： Qchan1962 回答日時： 2021/09/02 11:57

こんにちは

＞元のシートに戻らず
selectしているからですね
こんな感じで
Worksheets("TRNSLASION").Range("H" & k).Copy _
Worksheets("検索結果").Range("I" & j)

この回答へのお礼

すっきり早くできました。感激！！！
基本中の基本なのでしょうね。
他のマクロでもやっていそうなので、見直します。
ありがとうございました。

お礼日時：2021/09/02 12:30