[[20230925142924]]　『勤務予定表の前月末と今月初めを即座に比較するマ』（明宏）　ページの最後に飛ぶ

『勤務予定表の前月末と今月初めを即座に比較するマクロ』（明宏）

Sub 予定表比較()

    Sheets("Ｒ5-10").Select
    Range("A5").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 18
    Selection.ShapeRange.IncrementTop 0.75
    Range("A1").Select
End Sub

Ｒ5-1、Ｒ5-2、Ｒ5-3、、Ｒ5-4、Ｒ5-5、Ｒ5-6、、Ｒ5-7、Ｒ5-8、Ｒ5-9、Ｒ5-10、Ｒ5-11、Ｒ5-12、と令和5年1月～12月までの勤務予定表が書かれております。
上記のマクロは前月の月末4日分をWindows]キー＋[Shift]キー＋[S]キーで「切り取り＆スケッチ」でR-5-1の月初めに貼り付けたものを開発のマクロ記録で出したものですが、
を書きかえていかなる場合でも、一つ前のシーﾄの前月末4日分を一つ後の今月初めの Range("A5")へ貼り付けるには、 ActiveSheet.Paste

    Selection.ShapeRange.IncrementLeft 18
    Selection.ShapeRange.IncrementTop 0.75
をどの様に書き換えなければいけないでしょうか？
ご指導お願いいたします。

＜使用 Excel：Microsoft365、使用 OS：Windows7 ＞

＞上記のマクロは前月の月末4日分をWindows]キー＋[Shift]キー＋[S]キーで「切り取り＆スケッチ」で

　「切り取り＆スケッチ」というのは 365 だからなんでしょうが（当方 2016 なもんで。ところで 365 って Windows 7 で動くの？！）、肝心の Copy 文が記録されていないので、どうしたらいいか正しい答えは示せませんね。

　それと、Selection.ShapeRange.IncrementLeft 18 とかオートシェイプの移動まで記録されてますが、Range("A5").Select してるのになんでこんなコードが記録されてる？？
（higejee） 2023/09/25(月) 14:59:55

 切り取り＆スケッチって Windows7で使えるんですか？

 切り取り＆スケッチ はExcelとは別のアプリなので、Excelのマクロの記録では記録されません
 コピーの「図としてコピー」を使えば、記録されます
 画像として貼り付けて何がうれしいのかわかりませんが...
（´・ω・`） 2023/09/25(月) 15:40:40

　なんと別アプリ？！
（higejee） 2023/09/25(月) 15:49:43

　Snipping Toolの後継ツールか（だったら 7 にはないはずだが）。だから ActiveSheet.Paste の後に Selection.ShapeRange とか記録されてる訳か？！　で、何がしたいん？？
（higejee） 2023/09/25(月) 15:54:59

コメント返信：

[ 一覧(最新更新順) ]

[[20230925142924]] 『勤務予定表の前月末と今月初めを即座に比較するマ』（明宏） ページの最後に飛ぶ

[[20230925142924]]　『勤務予定表の前月末と今月初めを即座に比較するマ』（明宏）　ページの最後に飛ぶ