『勤務予定表の前月末と今月初めを即座に比較するマクロ』(明宏)
Sub 予定表比較()
Sheets("R5-10").Select Range("A5").Select ActiveSheet.Paste Selection.ShapeRange.IncrementLeft 18 Selection.ShapeRange.IncrementTop 0.75 Range("A1").Select End Sub
R5-1、R5-2、R5-3、、R5-4、R5-5、R5-6、、R5-7、R5-8、R5-9、R5-10、R5-11、R5-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 >
「切り取り&スケッチ」というのは 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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.