-PR-
解決済み

エクセルのプロパティの「タイトル」欄

  • 困ってます
  • 質問No.73628
  • 閲覧数113
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 60% (3/5)

「タイトル」欄は、本来は手入力する部分ですが、「名前を付けて保存」したときのファイル名が自動的にセットされる方法はありますか?
例えば「2001年4月売上明細.xls」ならば「2001年4月売上明細」となってほしいです。
WORD及びPPTはそうなりますが、EXCELは空白となってしまいます。
また、登録済みファイルを呼び出したあと、名前を変えて保存するときは、タイトルもその新しいファイル名に塗り変わってほしいです。WORD、PPTも前のままとなります。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル9

ベストアンサー率 64% (33/51)

回答ないようなので、作ってみました。
以下のマクロを個人マクロブックに登録して使ってみてください。

#Excelの名前を付けて保存と同じような機能で、プロパティを埋める
というマクロです。

Sub savewithTitleProperty()

Dim fname, prpTitle As String

fname = Application.GetSaveAsFilename(initialfilename:=fname, _
fileFilter:="Microsoft Excel ブック (*.xls), *.xls", _
Title:="ファイル名を付けて保存")

prpTitle = fname
While InStr(prpTitle, "\") <> 0
prpTitle = Right(prpTitle, Len(prpTitle) - InStr(prpTitle, "\"))
Wend
prpTitle = Left(prpTitle, Len(prpTitle) - 4)

ActiveWorkbook.BuiltinDocumentProperties(1) = prpTitle
ActiveWorkbook.SaveAs FileName:=fname

End Sub
関連するQ&A
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ