[[20240425163735]]　『バージョン表示』（シエンタ）　ページの最後に飛ぶ

『バージョン表示』（シエンタ）

book1.xlsm
book2.xlsm
が、あります。
それぞれのファイルにマクロがあり
バージョンを表示したいのですが

const c_Ver as string = "1.0"
Private Sub Workbook_Open()

    Application.StatusBar = "Ver" & C_Ver 
End Sub

とすると

の両方が同じ値になったりエラーが出たりします。
ステータスバーではなくてもいいので
それぞれのファイルを開いたときにそれぞれの
バージョンを表示したいのですが
どうすればいいでしょうか？

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 ブックのタイトルバーに表示
 ThisworkbookWindowName
（tkit） 2024/04/25(木) 17:03:11

 ＞ThisworkbookWindowName
 ？？？

 Application.Caption
（SAM） 2024/04/25(木) 17:43:37

 そもそもバージョンとは何で、目的は何ですか？
 そこから説明されたほうが良いと思いますよ。
（xyz） 2024/04/25(木) 18:46:34

 ブック（ファイル）単位でバージョンは決まるようですが、
 それだと、ブックの「名前」が、それを果たすべき"入れもの"じゃないんですか？

 タスクバー上で、Excelのうえにマウスを置けば、開いている全ブックが名前とともに表示されます。
 それでアクティブブックの移動はできますよね。それではまずいのですか？

 第二の名前のような追加的情報ということであり、
 そのブックをアクティブにしたときに、結果として表示できるもの、ということあれば、
 Private Sub Workbook_Activate()  の中で、
 Application.StatusBarを設定するようにしておけば良いのでは？

 # 何か間違った方向の議論でしたら済みません、スキップしてください。
（xyz） 2024/04/25(木) 22:05:23

  ＞ThisworkbookWindowName
 以下に代入する変数名でした。

 Windows(ThisWorkbook.Name).Caption
 の間違いです。

（tkit） 2024/04/26(金) 07:59:32

皆さんありがとうございました。

タイトルバーって変更できるんですね
ファイル名だから変更できないものだと思っていました。

Windows(ThisWorkbook.Name).Caption を使用して
タイトルバーを変更することができました。
（シエンタ） 2024/04/26(金) 09:49:15

コメント返信：