1254984214 EXCELを使用していて、毎回ファイル名に”年度+当日の日付”を入力しています。

”年度+当日の日付”の入力を自動でできませんか?
もしくは
キーボード等で、Ctrl+Cがコピーのように、Ctrl+?でキーボードに割り当てることはできますか?

宜しくお願い致します。

回答の条件
  • 1人2回まで
  • 登録:2009/10/08 15:43:35
  • 終了:2009/10/15 15:45:02

回答(2件)

id:fut573 No.1

fut573回答回数195ベストアンサー獲得回数542009/10/08 16:06:25

ポイント35pt

エクセルのマクロでの実行により、ファイル名に日付を入れて保存できますか? - Yahoo!知恵袋

こちらのYahoo知恵袋に類似質問があり、そのものズバリのマクロが紹介されています

id:bu77

ありがとうございます。

2009/10/08 19:23:24
id:HALSPECIAL No.2

HALSPECIAL回答回数407ベストアンサー獲得回数862009/10/08 16:20:30

ポイント35pt

次のようなマクロを実行すると、ファイル名の先頭に日付を付加してダイアログを表示できます。

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)

id:bu77

ありがとうございます。解決しました。

2009/10/08 19:23:14

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません