[[20200506193516]]　『絞り込まれた表のシート１枚だけを名前をつけて保』（かな）　ページの最後に飛ぶ

『絞り込まれた表のシート１枚だけを名前をつけて保存するには』（かな）

在宅勉強中の初心者です。よろしくお願いします。

シート１で作成した表の絞り込まれた結果だけを別なファイルとして名前をつけて保存したいです。

マクロの記録を使ってはみたのですが、イメージ通りの結果になりませんでした。

Sub Macro2()
'
' Macro2 Macro
'

    Range("テーブル1[#All]").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Sheets("Sheet1").Copy
End Sub

表の絞り込み方法は色々ある為、マクロ化は考えていないのですが、
結果だけ（可視セル？）を別なファイルに書き出したいです。

ファイル名は、集計表.xlsmにしたいです。
※可能なら保存した日付と時間_集計表.xlsmに

よろしくお願いします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 >ァイル名は、集計表.xlsmにしたいです。 
 >可能なら保存した日付と時間_集計表.xlsmに

    Range("テーブル1[#All]").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Sheets("Sheet1").Copy

    ActiveWorkbook.SaveAs _
    Filename:=ThisWorkbook.Path & "\" & Format(Now, "mmddhhmm") & "_集計表.xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close
    MsgBox "保存、終了しました。", vbInformation

（ピンク） 2020/05/07(木) 08:49

ピンクさん、お忙しいところありがとうございます！

日付と時間がついたシート１だけのファイルの作成、すごいです！

単語単位で調べて自分のもの出来るよう、勉強したいと思います！

ちなみに可視セルだけというのは、やはり難しいのでしょうか？

プログラム知識が皆無な状態での質問なので、ごめんなさいm(__)m

いただいたプログラムだけでも、充分助かっていますので、大丈夫です＾＾
（かな） 2020/05/07(木) 17:29

 >ちなみに可視セルだけというのは、やはり難しいのでしょうか？

 此方からは、どのシートの可視セルかは見えないので当てずっぽうですが

    Range("テーブル1[#All]").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet1").Range("A1")
    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs _
        Filename:=ThisWorkbook.Path & "\" & Format(Now, "mmddhhmm") & "_集計表.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close
    MsgBox "保存、終了しました。", vbInformation

（ピンク） 2020/05/07(木) 19:05

ピンクさん、ありがとうございます！

よくよく見返すと、めちゃくちゃ言葉足らずでした・・・汗　ごめんなさい＞＜

1．使用しているファイル名は「集計表.xlsm」

2．シート名は、「Sheet1」と「Sheet2」の2つのシートで名前は変えていません。

3．Sheet1に入力されているデータは、A1からはじまるテーブルのみでテーブル外にはデータはありません。

4．上記テーブル名は「テーブル1」でテーブルを作成したときの名前から変えていません。

5．テーブル1の項目はA1から列ごとに日付、名前、商品名、価格、数量などが入力されているのですが、JANコード等、不必要な項目やデータは「列を非表示」にしています。

6．月をまたいで連続で入力している為、必要なデータだけを抽出する為に日付で絞り込み、2020年4月のデータといった絞り込み表示をして、加えて名前で絞り込んだりしています。

ご提供いただいたプログラムを実行したところ、エラーが出た為、原因を探ったところ、列が全て表示されている状態だと実行できる事が分かったと同時に、5番目の「列を非表示」にしている事にまったく触れておらず書き漏れている事に気づきました。

お恥ずかしい・・・

キチンと詳細を伝えずに質問してしまい、すみませんでした＞＜

ご提供いただいたプログラム、しっかり勉強したいと思います！

お忙しいところ、何度も時間を使って下さって、本当にありがとうございました＾＾
（かな） 2020/05/07(木) 21:06

コメント返信：

[ 一覧(最新更新順) ]

[[20200506193516]] 『絞り込まれた表のシート１枚だけを名前をつけて保』（かな） ページの最後に飛ぶ

[[20200506193516]]　『絞り込まれた表のシート１枚だけを名前をつけて保』（かな）　ページの最後に飛ぶ