[[20210507171033]]　『マクロを使ってクリップボードの貼り付けが出来な』（棚卸人）　ページの最後に飛ぶ

『マクロを使ってクリップボードの貼り付けが出来ない』（棚卸人）

初めて質問させていただきます。
マクロは初心者です。
過去ログ検索・ネット検索もしたのですがいいのが見つかりません。
ご教授よろしくお願い致します。

エクセルで棚卸の管理をしています。

E列（前月残）　F列（今月残）の表があります。
F列にはE列と隣のセルと違う数字になった時は条件付き書式でセルに色がつくようになっています。
月替わりにこのブックごとコピーをして
F列をコピーしたらE列にクリップボードの表示をさせてから貼付けをさせると
条件付き書式は張り付かずに数値とセルの色（罫線も）張り付きます。
（これはネットで探して見つけました）

20～30シートあるのをマクロで何とかできないかと試行錯誤しています。
全シートじゃなくてもシートごとにショートカットを使ってできないかと思っています。

過去に同じ質問があったらすみません…。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

officeクリップボードは条件付き書式をコピーしないようですね。

普通にCtrl+Cでコピーし、Ctrl+Vで貼り付ける方法でコピーペイストしてください。
マクロは、そのマクロ記録を修正していけばできますね。
トライしてみてください。
途中で詰まったら、また質問して下さい。

（γ） 2021/05/07(金) 17:37

ちょっと言葉足らずですみません。
条件付き書式は貼り付けずにセルの色と値を貼り付けたいのです。
なのでOfficeのクリップボードを使っています。

マクロでもこのOfficeのクリップボードのように
条件付き書式は貼り付けずに
セルの色・数値・罫線を貼り付けたいと思っています。
（棚卸人） 2021/05/07(金) 18:24

失礼しました、読み抜けでした。
　
officeクリップボードの実行をマクロから操作できると思います（時間があれば後ほど）が、
別法として、
・通常のコピペをしたあと
・条件付き書式を削除しても良さそうですね。
　Selection.FormatConditions.Deleteのようにできますから。（対象Rangeは例示です）
（γ） 2021/05/07(金) 18:38

Officeクリップボードの実行は存外手間ですね。
http://www.ka-net.org/office/of56.html
を参考にしてみてください。
（γ） 2021/05/07(金) 18:42

Excelは会社じゃないと使えません。
週明けにまた頑張ってみます。

わからない時は...よろしくお願いします^^;
（棚卸人） 2021/05/07(金) 22:12

Yさん、色々とありがとうございました。

条件付き書式を削除してしまったら色が消えちゃいます。

リンク先を参考にやってみたのですが、
コンパイルエラー（64ビットではできない？）という感じのエラーが出てきました。
Officeクリップボードの操作は結構難しそうなので諦めようと思います…。
（初心者にはかなり難しいと判断）

助言頂きありがとうございました！
（棚卸人） 2021/05/10(月) 16:50

条件付き書式の結果である色だけ残すことはできません。
普通にそれを残したらいいんじゃないですか？
（γ） 2021/05/10(月) 17:09

いったんWordの表にコピーしてから、
再度Excelにコピーペイストすれば色は移すことができますが、
そこまで手をかける話なのかは不明です。
（γ） 2021/05/10(月) 18:37

時間がかるかもしれませんが

 Option Explicit

 Sub test()
    Dim ws As Worksheet
    Dim r As Range, c As Range

    For Each ws In Worksheets
        Set r = ws.Columns("F")
        For Each c In r.SpecialCells(xlCellTypeConstants)
            c.Offset(, -1).Interior.Color = c.DisplayFormat.Interior.Color
        Next
        r.Offset(, -1).Value = r.Value
    Next

 End Sub

（マナ） 2021/05/10(月) 20:23

Yさん、前々月残の欄がなくなるので条件付きとしては残せないのです。
パッと見で変動があったというのを知るために色を残したいのです。

マナさん、すごい！できました！！
しかも全シートやってくれるんですね！！！
1シートなら時間はかかっているかもしれませんが、全シートなら問題のない待ち時間です^^
（最初のシートだけはやらないんですが、そこは勉強してなんとかしてみます！）

お二人とも時間を割いていただき本当にありがとうございました！
（やっと寝れますｗ）
（棚卸人） 2021/05/11(火) 10:04

コメント返信：

[ 一覧(最新更新順) ]

[[20210507171033]] 『マクロを使ってクリップボードの貼り付けが出来な』（棚卸人） ページの最後に飛ぶ

[[20210507171033]]　『マクロを使ってクリップボードの貼り付けが出来な』（棚卸人）　ページの最後に飛ぶ