エクセルで「名前を付けて保存」をする時に自動的に名前を付けて保存が出来るように出来ないでしょうか。
エクセルで見積書を作成後に「名前を付けて保存」→「受注番号入力」をしているので、これを「名前を付けて保存」をクリックした時にファイル名を自動的に受注番号が入れば少しでも時間短縮が出来るかと思い、相談させていただきます。
自分なりに参考書などを読み、下記のようになると思ったのですが、出来ません。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SavaAsUI Then
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show _
Arg1:=Me.Path & Application.PathSeparator & Sheet(1).Range("A1").Value
Application.EnableEvents = True
Cancel = True
End If
End Sub
シート1に見積書があり、シート2、シート3はありません。
「A1」のセルに受注番号が入っています。
これのどこがダメなのか教えてもらえませんか。
もし、他に方法があるのであれば教えていただけませんか。
ご無理申します。
No.1ベストアンサー
- 回答日時:
こんにちは。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show _
Arg1:=Me.Path & Application.PathSeparator & Sheets(1).Range("A1").Value
End Sub
上記でどうでしょう
この回答への補足
htmcr さん
すみませんが教えてもらえませんか。
この通りに入力すると、上書き保存の時にも「名前を付けて保存」と出り、名前を付けて保存の時には2回出ます。
対処方法を教えてもらえませんか。
申し訳ありません。
No.3
- 回答日時:
既に解決しているかもしれませんがコモンダイアログを出さなくてもよいのではないでしょうか?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
On Error GoTo end0
MsgBox "このブックを" & Sheets("Sheet1").Range("A1").Value & ".xlsとして保存します"
ThisWorkbook.SaveAs Me.Path & Sheets("Sheet1").Range("A1").Value & ".xls"
end0:
Application.EnableEvents = True
Cancel = True
End Sub
No.2
- 回答日時:
たしかにそのままでは不便ですね
では、VBAをユーザー設定ボタンから読み込む方式にしては
いかがでしょう
'ボタンから呼び出すVBA
Public Sub SaveBook()
Application.Dialogs(xlDialogSaveAs).Show _
Arg1:=Me.Path & Application.PathSeparator & Sheets(1).Range("A1").Value
End Sub
これを記述して保存後、下記のサイトを参考にして
このプロシージャを呼び出すボタンを作成してください。
ボタンによるマクロの実行
http://www.officepro.jp/excelmacro/run/index2.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Word、Excelのファイル名に自動的に名前を付加する方法教えてください!
Excel(エクセル)
-
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
Excelでセル内の文字をファイル名にする方法と、下のSheet1タブを2列にする方法は?
Excel(エクセル)
-
-
4
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
-
5
エクセルで「ファイル保存名」を自動作成したい
Excel(エクセル)
-
6
セルの文字を「印刷時だけ非表示」にしたいです。
Excel(エクセル)
-
7
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
8
VBAでファイル名を指定して保存するとき
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
EXCELで保存する際に、必ず別名...
-
Excel に貼り付けた図形が、保...
-
エクセルが勝手に開く
-
メールでCADデータが送られまし...
-
アクセスVBAで既に開いているエ...
-
至急!教えてください!!「Mic...
-
ロータス1-2-3のファイルをエ...
-
VBA 新規ファイルを元ファイル...
-
EXCELを起動したとき120%の表...
-
pcゲームのセットアップが出来...
-
ExcelでVBA実行後×(閉じる)ボタ...
-
複数のエクセルファイルを一つ...
-
エクセルの表示サイズ変更(画...
-
エクセルファイルにあるシート...
-
Excel でテキストファイルを開...
-
DBANをCD-Rに書きましたがブー...
-
Windows Media Playerが起動直...
-
何も表示されないPowerPointフ...
-
yahooメールの送信メール→サン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
ACCESSからexcelブックを開いて...
-
エクセルで「名前を付けて保存...
-
エクセル マクロを使って同じ...
-
EXCELで保存する際に、必ず別名...
-
エクセルのワークシート上書き...
-
一太郎での上書き保存について
-
共有フォルダで上書き保存できない
-
ワードで保存先を指定する
-
Excelで書式やページ設定の既定...
-
パワーポイントの上書き保存が...
-
エクセル「名前を付けて保存」...
-
Office2013について
-
マイクロソフトのOffice Delve...
-
ドキュメントの回復について
-
フッター、ヘッター、印刷設定
-
エクセル シートのみ 保存
-
wordが保存できない
-
Excel起動時に漢字かなモードを...
-
[保存されていないブックの回復...
おすすめ情報