
ExcelのフッターにExcelの名称とバージョンが入るように設定する方法を教えて下さい。
例「Excel2003 ver.11.0」
共通のドライブに保存されているExcelファイルを複数名が編集したりプリントしたりします。
その複数名は自分の所有するパソコンで編集・プリントするのですが、Excel2000の人もいれば、Excel2003の人もいます。
それぞれの使用者が編集後プリントする時に、フッター部分にExcelの名称とバージョンが入るようにしたいです。
フッター部分が無理ならば、セル上でも構いません。
関数を使ってできるような話を聞いたことがあります。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
セル上に関数で表示するだけでよければ、こんな感じでしょうか。
="Excel"&CHOOSE(INFO("release")-4,"5.0",,95,97,2000,2002,2003,2007)&" (Ver. "&INFO("release")&")"
Excel2000,2002,2003,2007で動作確認。
ご参考まで。
お礼が遅くなり申し訳ありません。
この度は大変ありがとうございました。
マクロを組まずに解決したかったのでまさに私が切望していた関数でした。
すばらしい回答をどうもありがとうございました。
No.4
- 回答日時:
こんばんは。
関数では、2000以降なら、このようにすればよいです。
=LOOKUP(INFO("release"),{"9.0",2000;"10.0",2002;"11.0",2003;"12.0",2007})
ご質問とは直接関係がなくなりますが、
Application.Version は、Clng 関数や、CInt 関数は使えません。
97には、最初 8.0
その後、8.0 a ~ 8.0 n まで存在します。
ですから、
CInt(Application.Version) や Clng(Application.Version)
ではなく、Val 関数を用います。
http://officetanaka.net/excel/vba/tips/tips77.htm
で書かれている内容は、9 以上ですから問題はありませんが、97では、エラーが発生します。
しかし、内容的に、
>Sub Sample2()
> If CInt(Application.Version) > 10 Then
> MsgBox "OK"
> Else
> MsgBox "NG"
> End If
>End Sub
こういう構文は、実際のコードでは使えません。この場合は、Directive (ディレクティブ)を用います。そのまま入れると、IFの分岐内でエラーが発生する可能性が極めて高くなります。97 とそれ以上のUserForm のモードや、Excel 2000 とExcel 2003 の間の AutoRecover のTrue, False などが挙げられます。これらの分岐は、当然ですが、上記の分岐ではエラーが発生します。
お礼が遅くなり申し訳ありません。
この度は、ご回答を頂きましてどうもありがとうございました。
大変参考になりました。
ご回答頂きましたこと、心から感謝いたします。
本当にありがとうございました。
No.3
- 回答日時:
INFO関数を使えばExcelのバージョンが返されます。
=INFO("release")
zap35さんが言われるように
”EXCEL***とVersion番号は1:1で対応する”
のなら
対応表を作っておいて、そこからExcelの名前を引っ張り出せば良いかも知れません。
下記のようにすればOSのバージョンが返されます。
=INFO("osversion")
お礼が遅くなり申し訳ありません。
この度は、ご回答を頂きましてどうもありがとうございました。
ご回答頂きましたこと、心から感謝いたします。
本当にありがとうございました。
No.1
- 回答日時:
>関数を使ってできるような話を聞いたことがあります
マクロを使わないとできないと思います。こんなマクロでもできそうですがEXCEL***とVersion番号は1:1で対応するみたいですね。
http://officetanaka.net/excel/vba/tips/tips77.htm
マクロはALT+F11でVBE画面を開き、VBAProjectの「ThisWorkbook」を右クリック→コードの表示で開く画面に貼り付けてください。
Bookを一旦保存し、再度開くときにFooterに「EXCEL2003 Ver11.0」のような文字列を埋め込みます。
Private Sub Workbook_Open()
Dim cstExcel, cstVersion
Dim idx As Integer
cstExcel = Array("EXCEL5.0", "EXCEL95", "EXCEL97", "EXCEL2000", _
"EXCEL2002", "EXCEL2003", "EXCEL2007")
cstVersion = Array(5, 7, 8, 9, 10, 11, 12)
ActiveSheet.PageSetup.RightFooter = ""
For idx = 0 To UBound(cstVersion)
If CInt(Application.Version) = cstVersion(idx) Then
ActiveSheet.PageSetup.RightFooter = _
cstExcel(idx) & " Ver" & Application.Version
Exit For
End If
Next
End Sub
お礼が遅くなり申し訳ありません。
この度は、ご回答を頂きましてどうもありがとうございました。
今回はマクロを組まずに解決したかったので、ポイント加算にならず申し訳ありません。
ご回答頂きましたこと、心から感謝いたします。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでマクロ。他のパソコ...
-
FFFTPで「フォルダを作成できま...
-
「サポートされないファイル フ...
-
FTP エラーコード451
-
デスクトップに移動すると自動...
-
excelの資料をURL化してweb上に...
-
アウトルックの添付ファイルを...
-
さくらインターネットのレンタ...
-
JPEGやTIFF画像の解像度を向上...
-
FFFTP アップロードしたURLの表示
-
小さい写真・画像を鮮明に拡大...
-
添付ファイルを直接編集してし...
-
EXCELで複数個所に同時にファイ...
-
Googledriveにファイルがアップ...
-
無料レンタルサーバーがアクセ...
-
p2p、torrentの事で質問です。...
-
ホームページのアップロードか...
-
無料掲示板で
-
FFFTPの転送画面のホスト側が表...
-
HPが見れたり見れなかったりで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでマクロ。他のパソコ...
-
一定期間内のYahoo! JAPAN IDの...
-
FFFTPで「フォルダを作成できま...
-
IEのエラーメッセージ URLは取...
-
DMMのサンプル動画がみれない
-
squid:リクエストされた URL は...
-
Internet Explorer9のエラー
-
エクスプローラーでエラーがでます
-
Outlookでアイテムを保存できま...
-
office 2007 インストールできない
-
SSL証明書を作成したのですがブ...
-
いままでこんなことなかったの...
-
ご回答に対するベストアンサー...
-
coregaUSBポート用LANアダプタ...
-
FTP エラーコード451
-
iexplore.exeを閉じます?何で...
-
エクセルが固まるのはなぜ
-
プロフィールの編集について。
-
Execlの名称とバージョンを自動...
-
ダウンロード
おすすめ情報