[[20220916185240]] 『表示の改ページプレビューを標準にしてマクロを実』(黒ネコ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『表示の改ページプレビューを標準にしてマクロを実行したい』(黒ネコ)

シートを値貼付けするマクロで、表示が改ページプレビューになっているシートだけ実行されません。自動で標準にしてから実行するにはどの位置にどのようなコードを書けばよいか教えてください。

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 >


改ページプレビューで、独自に調整した幅等は元に戻せないと思う。
(微妙に標準と違う)
昔元に戻し方を知らなくて、戻せなくて作り直したので。
(2209) 2022/09/16(金) 19:18

>表示が改ページプレビューになっているシートだけ実行されません。
それは、WSを使っていないことが原因じゃないですか?
コードの問題ではないかと思います。
  
(γ) 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


お考えいただきありがとうございます。やはり改ページプレビューのシートは値貼付けできませんでした。全ワークシートの改ページを解除で検索したところ、「WS.Each sh In Worksheets」で解除とあり、

    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


間違えました!全ワークシートの改ページを解除で検索したところ、「WS.ResetAllPageBreaks」で解除とあり、
For Each WS In ActiveWindow.SelectedSheets
        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


解決されたそうで何よりです。
後学のために教えて頂きたいのですが、
私の手元では、「改ページが挿入されていると、値貼り付けができない」という事象が
再現できません。
値貼り付けができなかったというのは、
・エラーになったということですか?そうであれば、詳細なエラーメッセージを教えて下さい。
・その特定のシートに対して、確かに処理を行ったということはどうやって確認されましたか?
この2点、お手数をおかけしますが、教えて下さい。
  
(γ) 2022/09/17(土) 22:23

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.