□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[2]: 右隣のセルの書式(色)をコピーしたい | |
|---|---|
[196157] Re[2]: 右隣のセルの書式(色)をコピーしたい- ■  / 記事引用/メール受信=ON■
□投稿者/ C3PO -(2024/04/16(08:44)) □U R L/ 半平太さん、ありがとうございます。 こうやればいいのですね、助かりました！ | |
[196156] Re[1]: 右隣のセルの書式(色)をコピーしたい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2024/04/15(21:26)) □U R L/ こうじゃないですか？
＞Sheets("一覧").Cells(RNx, 2) = WS.Name '←ここの次の段階で右隣のセルの色をコピーしたい
Sheets("一覧").Cells(RNx, 2).Interior.Color = Sheets("一覧").Cells(RNx, 3).Interior.Color | |
[196155] 右隣のセルの書式(色)をコピーしたい- ■親トピック/記事引用/メール受信=ON■ □投稿者/ C3PO -(2024/04/15(18:11)) □U R L/ コードの一部ですが、どの部分に右隣のセルの色をコピーできますか？
わからないなりにみてみると、コメントアウトしてある部分だと思います。
Do While Sheets(WS.Name).Cells(RNp, 2) <> ""
If Sheets(WS.Name).Cells(RNp, 2) = Ex_date Then
Application.ScreenUpdating = False
Worksheets(WS.Name).Select
Worksheets(WS.Name).Range(Cells(RNp, 2), Cells(RNp, 20)).Copy
Worksheets("一覧").Cells(RNx, 3).PasteSpecial
Sheets("一覧").Cells(RNx, 2) = WS.Name '←ここの次の段階で右隣のセルの色をコピーしたい
RNx = RNx + 1
Worksheets("一覧").Select
Application.ScreenUpdating = True
End If
RNp = RNp + 1
Loop
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |