- 締切済み
excelおよびwordでヘッダーにユーザー名が入るようにするには?
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- imogasi
- ベストアンサー率27% (4737/17068)
Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveSheet.PageSetup.LeftHeader = Application.UserName End Sub ではどうでしょうか。エクセルで少数テスト済み。 ThisWorkbookのSheetActivateイベントに上記をコピペする。印刷する時はSheetをActivateすると思いますが 何か抜け道(もらしている点)があるかも知れず、自信なし。Printerオブジェクトを実行する時とかの、イベントが VBAにあればと思いますが・・。
- Taketoshi
- ベストアンサー率41% (23/56)
VBAが利用できると前提して回答します。 Windows APIも使っています。 ●ThisWorkbookに以下のコードをコピーします。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim strUserNameBuffer As String * UNLEN Dim lngUserNameLength As Long Dim lngResult As Long 'ユーザー名の長さを設定 lngUserNameLength = Len(strUserNameBuffer) 'ユーザー名を取得 lngResult = GetUserName(strUserNameBuffer, lngUserNameLength) With ActiveSheet.PageSetup .LeftHeader = "User : " & Left(strUserNameBuffer, InStr(strUserNameBuffer, vbNullChar) - 1) End With End Sub ●標準モジュールを作成し、以下のコードをコピーします。 ' ユーザー名を取得する関数の宣言 Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" _ (ByVal lpBuffer As String, _ nSize As Long) As Long ' ユーザー名の長さを示す定数の宣言 Public Const UNLEN = 256 + 1 印刷時に、ヘッダの左に、 User : xxxxxxxx(←ログインユーザ名) が表示されます。
関連するQ&A
- ワードのヘッダでファイル名を表示するには
エクセルではファイル名をヘッダに表示できますが、ワードでもできる方法はあるのでしょうか? どなたか教えてください。お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのヘッダとフッタ
Wordでは、プリンタが未接続でも、ヘッダ/フッタを設定 したり表示したりできますが、Excelではできません。 Excelの設定を変更する事により可能でしたら、教えて 下さい。 また、ヘッダ/フッタ以外でも、Excelのファイルに 埋め込まれている文字(普通に開いても見えない)を、 印刷しなくても確認する方法があれば教えていただければ 助かります。 尚、OSはWindowsXP(Pro)、Excel2000です。 宜しくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- Word2007のヘッダーで教えてください
いままでWord2002を使用していました。文章のヘッダとフッタについて使い方を教えてください。 フッタにページ番号を付けるのはなんとか解ったのですが、ヘッダにファイル名をつける方法が解りません。かなり複雑なメニューになっていて該当機能に到達していません。教えてください。
- ベストアンサー
- その他MS Office製品
- excel2002のヘッダについて
excel2002を使用しています。 ファイル名をシートのヘッダに付けているのですが、ファイル名の拡張子がヘッダには不要なので削除したいのですが、どのようにしたら拡張子をはずすことができるでしょうか? よろしくお願いします。
- 締切済み
- オフィス系ソフト
- word2007でヘッダーにファイル名をいれたい
word2007文書でヘッダーにその文書のファイル名を自動で挿入する方法を教えてください。2003までと随分と操作が変わってしまって面くらってます。
- ベストアンサー
- オフィス系ソフト
- ワードでヘッダーが表示されません
ワードのヘッダーで,ファイル名を表示させるようにしました。 ファイル名を変えれば,自然にヘッダーも変わると思うのですが,なぜか元のままで変わりません。 でも,他の人にファイルを送って見てもらったらちゃんとファイル名に変わっているというのです。 どうして,うちの画面では変わらないのでしょうか?
- 締切済み
- オフィス系ソフト
- Wordのヘッダーについて
Word2002でヘッダーとフッターを表示させ、ヘッダーとフッターのツールバーから「定型句の挿入」をクリックすると「ページ」「ファイル名」「ファイル名(パスを含む)」「ページ/総ページ数」「最終印刷日時」・・・とありますが「ページ」をクリックするとヘッダーにページが入りました。ところがその後、さらに「定型句の挿入」をクリックすると中国語のような表示になってしまいました。一度、ヘッダーとフッターのツールバーを閉じてもう一度やり直すと、今度は定型句の挿入をクリックして、「ファイル名(パスを含む)」と「ページ/総ページ数」を挿入したところで次に定型句の挿入をクリックするとなぜか英語表示になってしまいます。これはどうしてでしょうか?このような現象になるときとならないときがあるんです。 どうしてでしょうか? 教えてください。
- ベストアンサー
- オフィス系ソフト
- 2007ワード ヘッダーのみ印刷しない
ヘッダーを印刷したくないのですが、その設定方法が不明です ヘッダーには図を挿入しているので、隠し文字は使えません。 本文にも図を使用しているので、「描画オブジェクトを印刷する」のチェックを外す方法も使えません。 現在は、コピーしたワードよりヘッダーを削除して印刷していますが、操作が面倒です。 編集する場合にはヘッダーが表示されていて、印刷時のみヘッダーが印刷されない方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- Fineprint5でファイルのフルパス名をヘッダに印刷したいのですが
お世話になります。 現在、Fineprint5を使用しております。 印刷時にファイルのフルパス名をヘッダに印刷したいの ですが、ファイル名しか印刷できず困っております。 フルパス名を印刷する方法があれば 教えてください。 宜しくお願いします。
- ベストアンサー
- その他(ソフトウェア)
- Word ヘッダーの異なったファイルをひとつに
ワードで、違うヘッダの入った二つのファイルを ひとつにまとめて、通しのページ数をつけて印刷する方法って ありますでしょうか?? コピペでひとつにまとめると、ヘッダがひとつになってしまうので 困っています。。。 ちなみに、旧ワードと、2007ワード両方とも使える環境にあります。 なにかいい方法御存知でしたら、教えてください。
- ベストアンサー
- オフィス系ソフト