人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCELを使用していて、毎回ファイル名に”年度+当日の日付”を入力しています。
”年度+当日の日付”の入力を自動でできませんか?
もしくは
キーボード等で、Ctrl+Cがコピーのように、Ctrl+?でキーボードに割り当てることはできますか?

宜しくお願い致します。



1254984214
●拡大する

●質問者: bu77
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel キーボード コピー ファイル 入力
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● fut573
●35ポイント

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

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

◎質問者からの返答

ありがとうございます。


2 ● HALSPECIAL
●35ポイント

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

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)

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ