FC2ブログ

ブックの名前を選択するマクロ

2017–06–05 (Mon) 09:47
Sub ブックの名前を選択するマクロ()
Set Insatsu_Cell = Application.InputBox(Prompt:="ブックの名前を選択してください", Type:=8)
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range(Insatsu_Cell.Address).Value
End Sub

Sub ブックの名前を今日の日付和暦にするマクロ()
Hizuke = Date
Hizuke = Format(Hizuke, "ge.m.d")
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Hizuke
End Sub

日付


Sub ブックの名前を日付にするマクロ()
Hizuke = Date
Hizuke = Format(Hizuke, "yyyy/m/d")
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Hizuke
End Sub
日付

スポンサーサイト



« 式作成アドイン | HOME |  Σ オートSUMを使いこなす »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク