システムwiki

Excel-VBAを使用して自動的にドロップダウンリストでコンテンツを選択して別のファイルとして保存する方法

Michael 解決済 最終更新日:2021-06-14 18:12

みんな、私は毎月の報告書を多くのクライアントのデータ

を含む必要があります.

下の写真を見てください、それは私のすべてのクライアントを表示するためにドロップダウンリストを採用する一般的な方法であるべきです.

そしてそれらの販売データは、ドロップダウンリストで選択した会社に基づいて自動検索を行います.
会社ごとに、私は独立したExcelファイルに分離する必要があります.私はドロップダウンリストから各会社1を選び、最後の会社まで別のファイルとして保存する必要があります.
本当に時間がかかり、愚かな.

上記のプロセスを自動的に終了できるVBAコードはありますか?

ありがとうございました~

返信リスト(回答:7)

6 #
Vijay

私はあなたの問題に特有の解決策をあなたに提供するためにあなたのブックを見ている必要があります.
サンプル/ダミーファイルの準備をしてアップロードして、OneDriveに秘密/機密データをアップロードしてアップロードしてリンクを共有しますか?それは私が迅速かつ正しい解決策を与えるのを助けるでしょう.

応答6# ->にスキップ
7 #
Michael

Excel、

のためのこんにちはE

下のリンク

を見つけてください

https://OneDrive.live.com/edit.aspx?cid= 0CE3C7BF64B89F49&PAGE&RESIVE= CE3C7BF64B89F49！104&PARID= CE3C7BF64B89F49！103&App= Excel

応答7# ->にスキップ
5 #
Vijay

エラーを与える
このアイテムが存在しないか、もう利用できません

応答5# ->にスキップ
4 #
Michael

この

を試してみてください

たくさんありがとう、error~

応答4# ->にスキップ
2 #
Vijay

基本的にあなたはあなたがドロップダウンを準備し、あなたがファイルをドロップダウンする瞬間を作成することを言っています
または
ドロップダウンのすべてのエントリのファイルを作成します.
また、各ファイルの出力は何ですか?それは生データから切り取られますか?

応答2# ->にスキップ
3 #
Michael

はい、「ドロップダウンを準備し、ファイルをドロップダウンを選択する瞬間を作成する」

を使ってやりたいです.

そして出力は生データからのものです

それはサンプルファイルであるので、私の本当のものに他の多くの情報があります

応答3# ->にスキップ
1 #
Vijay 2

コードを作成し、サンプルファイルを

にアップロードしました

コード内のあなたのディレクトリにTopathを変更する必要があります.コードは以下のように開くことができます.

あなたがあなた自身の

でやりたいのなら

1.ブックのバックアップを作成します.
2.ワークブックとALT + F11を開きます 3.Project Explorerwindows でワークブック名を見つけます.
4.毎月のレポートシートをダブルクリックします 5.コピー貼り付けマクロコードを下に示すマクロコードを貼り付けます 6.ファイルを.xlsm

として保存します.

プライベートサブワークシート(範囲としてのBYVALターゲット)
Extron ExitSub
IF交差(ターゲット、Me.Range( "C3"))は何もジャンプExitSubに何もないです. application.enableEvents= false
薄暗いTOPATH
ワークシートとしてDIM WS
ワークブックとして薄暗いjpK
application.ScreenUpdating= false
Application.DisplayAlerts= false
TOPATH= "c:\junk \"
右(topath、1)<>""\"で
TOPATH= TOPATH&「\」

の場合は終了 WS=ワークシートを設定します( "RAWデータ")
set twk= workbooks.add
ws.autofilterMode= false
ws.usedRange.AutoFilterフィールド:= 2、Criteria1:= Me.Range( "C3")
ws.autofilter.range.copy
Worksheets( "Sheet1")範囲( "A1").PRESSESPECIAL(XLPasteAll)
jpK.SAVEASファイル名:= Topath&Me.Range( "C3")&"_"&format(現在、 "mmddyyyyyhmmss")、fileformat:= 51
jpK.CLOSE
ws.autofilterMode= false
Application.cutCopyMode= false
Application.DisplayAlerts= true
application.ScreenUpdating= true
exitsub:
application.enableEvents= true
終了SUB

√

関連質問