セルの値を使用してExcelファイルを保存するにはどうすればよいですか？

ワークブックを使用しているとき、セルの内容に基づいてExcelファイルを保存したいと思ったことはありませんか？ 例えば、セルA1に「販売価格」という文字列があり、その名前でワークブックを保存したいとします。もちろん、名前を「名前を付けて保存」ダイアログに入力し、保存することもできます。しかし、これは作業量が多い場合、非効率的な方法です。今日は、それを解決するための簡単なテクニックについてお話しします。

VBAコードを使用して特定のセル値でExcelファイルを保存する

VBAコードを使用して特定のセル値でExcelファイルを保存する

次のVBAコードは、指定されたセル値でワークブックを保存するのに役立つかもしれません。以下の手順に従ってください：

1. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「 挿入」>「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: 特定のセル値でExcelファイルを保存する

Private Sub filename_cellvalue()
'Updateby Extendoffice
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. そして、F5キーを押してコードを実行すると、ワークブックがセルA1の内容で名前が付けられます。スクリーンショットをご覧ください：

注釈：

1. 上記のコードでA1を他のセル参照に変更することで、任意のセル値をファイル名として指定できます。

2. 現在のワークブックは、C:\Users\dt\Desktop\my information\（最後のスラッシュは置き換える際に必ず残してください）のフォルダに保存されます。必要に応じてパスを変更できます。

関連記事：

Excelで日付と時刻を含めてファイルを保存するにはどうすればよいですか？

Excelでタイトルバーまたはツールバーにファイルパスを表示するにはどうすればよいですか？