Home » エクセルマクロ・Excel VBAの使い方 » Dialogオブジェクト » 名前を付けて保存ダイアログにアクティブセルの値を表示するマクロ

名前を付けて保存ダイアログにアクティブセルの値を表示するマクロ

対象：Excel2000, Excel2002, Excel2003, Excel2007

「名前を付けて保存をしたときに、アクティブセルの値がファイル名になるようにできないのでしょうか？」
といったご質問をいただくことがあります。

お仕事の内容によっては、大量のExcelファイルを作成するなんていうことがあり、その保存作業時にいちいちファイル名を手入力するのが面倒と感じる方からいただくご質問です。

［スポンサードリンク］
VBA（Visual Basic for Applications）でマクロを作成して、［名前を付けて保存］のショートカットキー：［F12］で、そのマクロを呼ぶようにしてはいかがでしょう。
Sub DispSaveAsDlg_ActiveCellValue()
　Application.Dialogs(xlDialogSaveAs).Show Arg1:=ActiveCell.Value
End Sub

上記のようなマクロで、［ファイル名］にアクティブセルの値がデフォルト表示された状態で、［名前を付けて保存］ダイアログが表示されるようになります。

ポイントは
「Arg1:=ActiveCell.Value」
の部分です。

上記のマクロを作成してから、「Workbook_Open」イベントプロシージャに、下記のように記述すれば、［F12］キーを押したときに先のマクロが実行され、［ファイル名］欄にアクティブセルの値がデフォルト表示された状態で［名前を付けて保存］ダイアログを簡単に表示できるようになります。

▼DispSaveAsDlg_ActiveCellValueマクロをF12キーで実行されるようにするイベントプロシージャ

Private Sub Workbook_Open()
　Application.OnKey "{F12}", "DispSaveAsDlg_ActiveCellValue"
End Sub

このマクロと［F12］キーのセットを頻繁に利用するのならば、Personal.xlsファイルに記述しておくと便利でしょう。

関連語句
How to display the save as dialog box and active cell's value set the file name

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Dialogオブジェクト » 名前を付けて保存ダイアログにアクティブセルの値を表示するマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「Dialogオブジェクト」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.