ファイル名を半自動から自動化に

質問

いつも御世話になります。
現在は下記のようにしてファイル名を半自動で保存しています。

ご指導をいただきたいのは可能ならばもう一歩進めて完全に自動化できないかを仰ぎたく考えています。
全然無知な私が考えるに、マクロを何らかに変えれば可能性があるような気がするのですが如何でしょうか。
もしなんらかの方法で可能ならばご教授いただければ幸です。

現在の半自動とは　　A4　にある値を　

コピー
編集
形式を選択して貼り付け
値

A1(FUのところに)に貼り付けるとそのままファイル名てとして保存されます。
当然「シートFU」にも名前がつきます。

シート「FU」には次のように
マクロ
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
ActiveSheet.Name = Target.Value
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value
End If
End Sub

数式
A4 = A5 & " " & B5
A5 =IF(A7="","",TEXT(A8,"mm")&A7)
A7 =納請書１!A2
A8 =納請書１!G4
B5 =納請書１!B6

回答No.2

akina_line · ベストアンサー

こんにちは。#1です。

　>マクロでテストをしましたがなにも反応しませんでした。
　Excelのメニューから、
　　[ツール]→[マクロ]→[マクロ]→Auto_Saveを選択し、[実行]ボタンを押す。
　という手順で何も動作しませんでしたか。
　私の環境(Excel2003)では動作したのですが。。。
　もしかして、既存の関数を修正したのであれば、元に戻して、VBAエディタで標準モジュールを追加してマクロを貼って実行してみてください。

では

お礼

ご指導のマクロで色々と試していい方法を見つけました。

結果は下記します。
表示
ツールバー
VISUAL BASIC　にチェックを入れて
発行して保存時に「マクロの実行」をクリックする。

殆ど完全に近い方法になりスピード　アップします。

本当に有難うございました。
今後ともご指導の程よろしく御願いします。

補足

[ツール]→[マクロ]→[マクロ]→Auto_Saveを選択し、[実行]ボタンを押す。
で動作をし　シート　ファイル名　もつきました。
でもこれならいちいち　ツール　マクロ・・・と半自動なんですが。

ご指導を仰ぎながら勝手をいわさせていただくと従来の私のやり方とは変わらないのですが。

従来とは
A4　にある値を　

コピー
編集
形式を選択して貼り付け
値

A1(FUのところに)に貼り付けるとそのままファイル名てとして保存されます。
当然「シートFU」にも名前がつきます。

申し訳ありません。
わがままをお許し下さい。
完全に自動化する方法がないか再度ご指導いただけないでしょうか。

回答No.1

akina_line

こんにちは。

　「完全に自動化」を貴方がどうイメージしているのか分かりませんが、「Auto_Saveというマクロを実行するとA4の値をシート名称とファイル名称に使用して保存する」という方法でよいのでしょうか。
Option Explicit
Sub Auto_Save()
ActiveSheet.Name = Range("A4").Value
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("A4").Value
End Sub

では。

補足

A7 顧客番号
A8 発行日
B5 顧客名

これらは「納請書１」で入力された物を参照しています。
それを最終的に組み立てて　A4　に表示されています。
この　A4　の値を　コピーして値のみを　「A1」　に貼り付けると

シート　FUが　A4 と同じ名前
ファイル名も　A4　と同じ名前で保存されます。

ご指導いただいたマクロでテストをしましたがなにも反応しませんでした。
よろしければ再度ご指導いただけませんか。
よろしく御願いします。