[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『表示の改ページプレビューを標準にしてマクロを実行したい』(黒ネコ)
シートを値貼付けするマクロで、表示が改ページプレビューになっているシートだけ実行されません。自動で標準にしてから実行するにはどの位置にどのようなコードを書けばよいか教えてください。
Dim WS As Worksheet
For Each WS In ActiveWindow.SelectedSheets If WS.Name Like "matome*" Then
'処理したい内容 Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
End If Next WS
< 使用 Excel:Office365、使用 OS:Windows10 >
(γ) 2022/09/16(金) 22:55
For Each WS In ActiveWindow.SelectedSheets If WS.Name Like "matome*" Then WS.Cells.Copy WS.Cells.PasteSpecial Paste:=xlPasteValues End If Next WS
(マナ) 2022/09/17(土) 08:39
For Each WS In ActiveWindow.SelectedSheets If WS.Name Like "matome*" Then WS.Each sh In Worksheets WS.Cells.Copy WS.Cells.PasteSpecial Paste:=xlPasteValues End If Next WS
としたところ、値貼付けできるようになりました。ありがとうございました。
(黒ねこ) 2022/09/17(土) 20:05
If WS.Name Like "matome*" Then WS.ResetAllPageBreaks WS.Cells.Copy WS.Cells.PasteSpecial Paste:=xlPasteValues End If Next WS
としたところ、値貼付けできるようになりました。ありがとうございました。
(黒ねこ) 2022/09/17(土) 20:08
(γ) 2022/09/17(土) 22:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.