
こんなのが実現できるなら是非教えていただきたいのですが、
集計.xlsm というマクロブックがあるのですが、
行数が多いのと各シートに数式が設定されているせいでファイルサイズが大きくて、
配布に適していません。
配布した先では閲覧のみなので、マクロは要らないし数式も不要です。
そこで全シートのセルを値にして、集計(配布用).xlsx で別名保存すれば良いと思いました。
シート数やシート名が不明ですので、
具体的には、
すべてのシートを順番に、シート全選択(Alt+A以外にある?)して、
コピーして、値で上書きして、別名保存というロジックになるかと思うのですが、
複雑でないなら教えていただけないでしょうか?
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
値貼り付けを"除外"するシート名の頭に「★」を付けておく。
①シート名1文字目が「★」以外のシートを選択
②全セルコピー → 値貼り付け
③全セル選択解除、複数シート選択解除
④「.xlsx」で保存
こんな感じにしてみました。
Sub Macro1()
'シート1番目を選択(シート名1文字目が「★」から始まっていないと想定)
Sheets(1).Select
'シート名1文字目が「★」以外のシートを選択
For Each i In ThisWorkbook.Sheets
If Not i.Name Like "★*" Then
i.Select Replace:=False
End If
Next i
'全セル選択
Cells.Select
'コピー
Selection.Copy
'値貼り付け
Selection.PasteSpecial Paste:=xlPasteValues
'おまけ(複数シート、全セル選択状態で終わるのが気持ち悪いので解除)
Cells(1, 1).Select
Sheets(1).Select
'「.xlsx」で保存
Application.DisplayAlerts = Fals
ActiveWorkbook.SaveAs Filename:=Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1), _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
No.4
- 回答日時:
質問者さんの意図と反して、PDFで出力した物を配布すれば良いと思うのは自分だけでしょうか。
No.1
- 回答日時:
「開発」メニュー →「マクロの記録」
からざっくり作ってみました。
Sub Macro1()
'全シート選択
Worksheets.Select
'全セル選択
Cells.Select
'コピー
Selection.Copy
'値貼り付け
Selection.PasteSpecial Paste:=xlPasteValues
'おまけ(全シート、全セル選択状態で終わるのが気持ち悪いので解除)
Cells(1, 1).Select
ActiveSheet.Select
End Sub
ありがとうございます。
試してみたら一つ問題が発生しました。
ピボットテーブルのシートがあったのですが、そこまで値になってしまいました。
除外するシート名だけ分かるようにすれば回避できないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【VBA】全シートの計算式を全て値に変換したい
Visual Basic(VBA)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセルで複数のシートをまとめて一度にコピーし、一度に値を貼り付けることができますか
その他(パソコン・スマホ・電化製品)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
フォルダ内ブックの数式を全て値に変換するマクロ?
Excel(エクセル)
-
6
VBAで文字列を数値に変換したい
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
10
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
11
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
12
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
13
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
14
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
15
マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの
Excel(エクセル)
-
16
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
17
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
18
エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ
Excel(エクセル)
-
19
エクセル関数で日付かどうかの確認?
Excel(エクセル)
-
20
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】Worksheets().Act...
-
excelのマクロで該当処理できな...
-
SheetsクラスのSelectメソッド...
-
Excelマクロのエラーを解決した...
-
EXCELVBAを使ってシートを一定...
-
エクセルのマクロでアクティブ...
-
実行時エラー1004「Select メソ...
-
XL:BeforeDoubleClickが動かない
-
Excel VBA リンク先をシート...
-
【VBA】シート名に特定文字が入...
-
マクロを使って、シート印刷完...
-
Excel VBA 大量のレコードから...
-
Excelマクロ 全シートを対象に...
-
エクセルで特定のシートのみ自...
-
エクセルVBA Ifでシート名が合...
-
マクロのワイルドカードの使い...
-
vba 環境依存文字がListViewボ...
-
VBAで同じシート名のコピー時は...
-
VBAで指定シート以外の選択
-
【VBA】特定の文字で改行(次の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
実行時エラー1004「Select メソ...
-
特定の文字を含むシートだけマ...
-
XL:BeforeDoubleClickが動かない
-
【ExcelVBA】全シートのセルの...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【Excel VBA】Worksheets().Act...
-
エクセルVBA Ifでシート名が合...
-
Excel チェックボックスにチェ...
-
シートが保護されている状態で...
-
Excel VBA リンク先をシート...
-
ブック名、シート名を他のモジ...
-
ExcelのVBAのマクロで他のシー...
-
同じ作業を複数のシートに実行...
-
エクセルのシート名変更で重複...
-
VBA 検索して一致したセル...
-
【VBA】色のついたシート名を取得
-
VBAで指定シート以外の選択
おすすめ情報