[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『絞り込まれた表のシート1枚だけを名前をつけて保存するには』(かな)
在宅勉強中の初心者です。よろしくお願いします。
シート1で作成した表の絞り込まれた結果だけを別なファイルとして名前をつけて保存したいです。
マクロの記録を使ってはみたのですが、イメージ通りの結果になりませんでした。
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
日付と時間がついたシート1だけのファイルの作成、すごいです!
単語単位で調べて自分のもの出来るよう、勉強したいと思います!
ちなみに可視セルだけというのは、やはり難しいのでしょうか?
プログラム知識が皆無な状態での質問なので、ごめんなさい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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.