
エクセルで「名前を付けて保存」をする時に自動的に名前を付けて保存が出来るように出来ないでしょうか。
エクセルで見積書を作成後に「名前を付けて保存」→「受注番号入力」をしているので、これを「名前を付けて保存」をクリックした時にファイル名を自動的に受注番号が入れば少しでも時間短縮が出来るかと思い、相談させていただきます。
自分なりに参考書などを読み、下記のようになると思ったのですが、出来ません。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで「ページレイアウト...
-
Wordで作成したものをUSBに保存...
-
イラストレーターのプリントに...
-
ACCESSからexcelブックを開いて...
-
Excel に貼り付けた図形が、保...
-
至急!教えてください!!「Mic...
-
Macで作成したファイル(Word)を...
-
ロータス1-2-3のファイルをエ...
-
メールでCADデータが送られまし...
-
EXCELを起動したとき120%の表...
-
jtrim 1.53cが正常な動きをし...
-
Outlookでメールが送信できない。
-
アクセスVBAで既に開いているエ...
-
VBによるEXCELの書き込み
-
メールソフトThunderbirdに関して
-
エクセルが勝手に開く
-
ワードの拡張子で
-
SXFデータトランスレータ2007の...
-
Atok に詳しい方。お願いします。
-
エクセルファイルをクリックし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで「ページレイアウト...
-
Wordで作成したものをUSBに保存...
-
ACCESSからexcelブックを開いて...
-
エクセル マクロを使って同じ...
-
イラストレーターのプリントに...
-
EXCELで保存する際に、必ず別名...
-
HPからWord文書が開けない
-
エクセル「名前を付けて保存」...
-
テンプレート使用文書の保存先...
-
エクセルのワークシート上書き...
-
一時フォルダからのファイルの...
-
エクセルで「名前を付けて保存...
-
どういった意味があるのかわか...
-
word excel 空白のファイルを新...
-
Excelの初期設定
-
エクセルでCSV形式で保存するマ...
-
Wordのテンプレートdotが変わり...
-
「名前を付けて保存」のデフォ...
-
フッター、ヘッター、印刷設定
-
Excel起動時に漢字かなモードを...
おすすめ情報