”年度+当日の日付”の入力を自動でできませんか?
もしくは
キーボード等で、Ctrl+Cがコピーのように、Ctrl+?でキーボードに割り当てることはできますか?
宜しくお願い致します。
次のようなマクロを実行すると、ファイル名の先頭に日付を付加してダイアログを表示できます。
Option Explicit Public Sub 日付を付けての保存() Dim fname As String Dim iniFileName As String iniFileName = Format(Now, "yyyymmdd") & ActiveWorkbook.Name fname = Application.GetSaveAsFilename( _ InitialFileName:=iniFileName _ , FileFilter:="エクセルファイル(*.xls),*.xls" _ , FilterIndex:=1 _ , Title:="名前を付けての保存(日付情報付加)" _ ) If fname <> "False" Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
これを、
アドオン
http://takashixxx.blog88.fc2.com/blog-entry-37.html
として登録してあげれば良いと思います。
(または、PERSONAL.XLS)
ありがとうございます。解決しました。
ありがとうございます。