- ベストアンサー
Excel ページ設定-ヘッダーの編集でファイル名の拡張子を出力しないようにするには?
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 自動的に入れるのでしたら、以下のようなVBAのコードしかありません。 そうでなければ、ご自分で入れるしかないと思います。 ツール-マクロ-Visual Basic Editor を開いたら、左上のプロジェクト・エクスプローラーの中から、ThisWorkbook をダブルクリックして開きます。後は、以下を貼り付けて、 Alt + Q で閉じます。 Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet If .Name = "Sheet1" Then 'シート名を入れます .PageSetup.LeftHeader = Mid$(ThisWorkbook.Name, 1, InStr(ThisWorkbook.Name, ".") - 1) 'プロパティの種類は以下のとおり 'LeftHeader,CenterHeader,RightHeader End If End With End Sub
その他の回答 (3)
- wisemac21
- ベストアンサー率39% (171/429)
コントロールパネルを開き、フォルダーオプションの「表示」タブの詳細設定で「登録されている拡張子は表示しない」にチェックをいれて、OKをクリックする。 これで拡張子はファイル名に付かないようになります。
お礼
回答ありがとうございました。 #3へのお礼と入れ違いのようでした^^; ありがとうございました。
- imogasi
- ベストアンサー率27% (4737/17068)
>「.xls」のようにファイル拡張子が出力されてしまいます。 私がやって(ヘッダーに&[ファイル名]を設定して印刷して)みると、拡張子は印刷されませんでした。 エクセル2002. オプションなどの設定も見てみましたが、影響を与えそうな箇所が見つかりませんでした。
お礼
回答ありがとうございました。 Excelの設定以外で拡張子が印刷されなくする方法が分かりました。 エクスプローラのフォルダオプションで 「登録されている拡張子は表示しない」をチェックすればいいみたいです。 ただ、私はエクスプローラで拡張子を表示したいので、 チェックを外してありました。
- chairwarmer
- ベストアンサー率41% (163/393)
基本的には#1の方のご回答と同じで、VBAのコードが違うだけですが... Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.PageSetup.CenterHeader = Replace(ThisWorkbook.Name, ".xls", "") End Sub 左上、中央、右上のどこに表示させたいかによって、「ActiveSheet.PageSetup.」の後を LeftHeader, CenterHeader, RightHeader のいずれかにすれば良いわけです。 LeftFooter, CenterFooter, RightFooter を使えばもちろんフッターにも印字できますよ。
お礼
回答ありがとうございました。 ソースを参考に入れてみたいと思います。 詳しい説明をありがとうございます。
関連するQ&A
- EXCELでヘッダーにブック名を設定したい
EXCEL97です。 「ページ設定」→「ヘッダーの編集」でブック名を設定したいのですが 拡張子の".xls"は出したくありません。 Left関数などを使って文字列を編集したいのですがヘッダーを手設定するとき 関数は使用できるのでしょうか。 すみませんがご指導をお願いします。
- 締切済み
- オフィス系ソフト
- Excelのヘッダーに拡張子なしのファイル名を表示させたい
WinXPでExcel2002を使ってます。 EXCELのヘッダーにファイル名を挿入したいのですが、拡張子を入れたくありません。 フォルダオプションで拡張子を表示しない設定にすれば入らないのは確認できましたが、普段拡張子を表示させておきたいので、その方法はなるべく使いたくありません。 Windowsではなく、EXCELの機能で拡張子をはずすことは出来ないのでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルでパスを含んだファイル名
エクセルのヘッダー・フッター編集で ワードのように"パスを含んだファイル名"(またはシート名)を 自動?で挿入することはできるでしょうか。 例えば、Cドライブの「あ」と言うフォルダーに保存してある テスト.xlsの「い」と言うシート名をヘッダーに挿入したい 場合、 C:\あ\テスト.xls\い と言うようにです。 ご教授をお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのページ設定
エクセルのページ設定で1つのファイルの中でいくつもタブがあって各タブ毎に連番でページを設定したいのですが・・・ ヘッダー/フッターで ページ&[ページ番号]+ページ と書くと連番で印刷可能なのですが、タブ1つ1つ設定しないといけないので時間が掛かってしまいます。 あと、1ページ目のページ設定をし一括で印刷するやり方も見つけたのですが各タブ毎に印刷すると全て1ページからの表示になってしまいます。 一括で設定する方法はありませんか?
- ベストアンサー
- その他(ビジネス・キャリア)
- エクセルのヘッダー編集について
エクセル2007のヘッダーの編集について教えてください。 メニューの「ページレイアウト」の「余白(ユーザ設定の余白)」→「ヘッダー・フッター」からヘッダーの編集するときに、ダウンリストから選べるようにしたいのですが、どうすれば良いのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELのヘッダーとフッター
エクセルでのページ設定でヘッダー・フッターの設定についてなんですが。 エクセルでヘッダーフッターを編集で設定すると 今使っているブック(ファイル)に設定され保存という形になります。 同じヘッダーフッターを違うブック(ファイル)に設定しようとするには もう一度ページ設定のヘッダーフッターで設定しなくてはなりません。 どのブック(ファイル)でも共通して使えるように設定することは できないんでしょうか? よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- Excelでヘッダ、フッタ設定を共有
Excelで1ファイルにシートが複数枚ある時、1つのシートに設定したヘッダ、フッタ情報を すべてのシートに反映させることはできるのでしょうか。 ex.A~Eの5つのシートがある時、Aのシートのヘッダにシート名(A)、フッタにファイル名を設定。 残りのB~Eは印刷時に自動的にAシートと同様のヘッダ、フッタが印字される。
- ベストアンサー
- オフィス系ソフト
- エクセルのヘッダとフッタ
Wordでは、プリンタが未接続でも、ヘッダ/フッタを設定 したり表示したりできますが、Excelではできません。 Excelの設定を変更する事により可能でしたら、教えて 下さい。 また、ヘッダ/フッタ以外でも、Excelのファイルに 埋め込まれている文字(普通に開いても見えない)を、 印刷しなくても確認する方法があれば教えていただければ 助かります。 尚、OSはWindowsXP(Pro)、Excel2000です。 宜しくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- Excelのヘッダー
Excel2002 SP-1を使っています。 ヘッダーにタイトルをいれているのですが、 ファイル-ページ設定-ヘッダー/フッターで入力する 以外にヘッダーを設定する方法はありますか? 入力要求がでて、設定すると自動で入力される・・・ とか無理でしょうか?
- ベストアンサー
- オフィス系ソフト
- 10ページ中8ページにヘッダーを付けるには?
Word&Excel2002です。 ヘッダーとを付けたのですが、欲しいのは、10ページ中8ページのみです。 あとの2ページはヘッダーは不要です。 ヘッダーは、文書全枚につくものであると思うので、8ページは文書1に、2ページは文書2に分けて印刷しています。 ヘッダーを特定のページのみに付ける事は可能なのでしょうか? 可能であれば、Excel・Wordの両操作を教えてください。 お願いします。
- ベストアンサー
- オフィス系ソフト
お礼
回答ありがとうございました。 ソースを参考に入れてみたいと思います。