エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.009 sec.)

フォーマット (1423), 自動 (14517), 印刷 (5709)

[[20120905161754]]: #score: 8137; @digest: 281ca1b8b2aad08b2ace01534de591d9; @id: 60110; @mdate: 2012-09-06T04:00:21Z; @size: 5027; @type: text/plain; #keywords: ヘッ (13932), xlhairline (13657), ッダ (12565), ー情 (11611), 御コ (8131), 線ra (7380), linestyle (6261), xlcontinuous (5954), xlautomatic (5425), borders (5053), ダー (5043), myf (3656), weight (3610), myrow (3336), 成日 (2495), 各ブ (2431), 書類 (2322), selection (2098), のヘ (2064), colorindex (1909), 取得 (1836), 題点 (1523), 情報 (1348), 制御 (1035), 前述 (1018), イパ (1015), ダ内 (915), 存在 (901), 都合 (888), ーリ (883), ファ (871), ーか (827); 『フォルダ内のファイルのヘッダー情報を取得』（なめこ）
どこか忘れましたが、フォルダー内のファイル名の一覧を書き出すソースがあって、便利なので使わせて貰っていたのですが、ヘッダー情報も書き足すように出来るでしょうか?（Excel2003 WindowsXP） B C D E No ハイパーリンクファイル名ヘッダー（右） ↑ ここに標準モジュール '--------------------------- Sub filName() Dim MyF As String '前回のデータをクリアー Range("A4:F200").Select Selection.Clear 'ファイル名の取得 Dim myRow As Long myRow = 4 MyF = Dir(ThisWorkbook.Path & "¥*") Application.ScreenUpdating = False If MyF <> "" Then Do Until MyF = "" Cells(myRow, "C").Select 'ハイパーリンク Cells(myRow, "B").Value = myRow - 3 Cells(myRow, "D").Value = MyF 'ファイル名 ActiveSheet.Hyperlinks.Add Anchor:=Selection, _ Address:=Cells(myRow, "D").Value, TextToDisplay:="●" MyF = Dir() myRow = myRow + 1 Loop End If '並べ替え Range("C4:D100").Select Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlStroke '罫線 Range("B4:D100").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With Range("D3").Select End Sub ---- 問題点1 「ファイルのヘッダー」というものは存在しません。ヘッダーは「シート」単位に設定するものだからです。「ファイルに含まれるSheet1のヘッダー」なら存在します。したがって、シートが複数あれば、ヘッダー情報は複数存在します。「特定の名前のシート」が対象となる全てのブックにあるのならば、シート名を指定して取得することは出来ますが、何らかの手段でそのブックを開く必要があります。シート名は各ブックで特定できますか? （各ブックにシートが必ずひとつ、ということなら問題にはなりません）問題点2 たとえば、次のようなコードでメッセージボックスに左ヘッダーを表示することは出来ます。 MsgBox ActiveSheet.PageSetup.LeftHeader ですが、ボタンで設定する「ページ数」や「シート名」などは制御コードで取得されるので、 &P とか、 &A とか一見何のことか判断しづらいものも含まれます。例えば「印刷枚数」をヘッダーから取得したい、というご希望でもヘッダー情報からは「&N」という制御コードしか取得できません。で、問題となるのは、「ヘッダーから得たいと思っている情報は何ですか」ということです。つまり、その情報がヘッダーから取得できるものとは限らない、ということです。（みやほりん） ---- みやほりんさまご回答ありがとうございます。書き方がまずかったですね、シートのヘッダーのことです。シート名を取得してとのことですが、ファイルを開かずに複数シートのヘッダー情報一括書き換えが出来るマクロが実際に存在するため、その逆の取得が出来るものかと思った次第です。ヘッダーから得たいと思っている情報は何かとのことですが、書類のヘッダーに作成日などを付けて、この日付で最新の版の書類かどうかを管理している私の台帳と照合しています。 フォーマットは多数の方が都合に合わせて書き換えて日付を更新しています。更新した場合は報告してくれるのですが忘れる方も多々いるため、確認作業が大変です。書類のフォーマットは一箇所のフォルダ内に保管されているので、前述のマクロに追加できたらいいなと思いました。（なめこ） ---- ＞その逆の取得が出来るものか書き換えの場合は均一にするのが目的ならば、同じ設定を繰り返し処理すればよいので、取得よりは単純かと。ヘッダーの取得の場合は、「どのシートのどのヘッダーがこういう情報だ」というのを確認できるような出力の仕様を考えないといけませんよね。そういうのも考えてほしい、というのが質問の本質なのかもしれませんが。＞書類のヘッダーに作成日などを付けてこれはユーザーが「ヘッダーに日付に相当する文字列」を直接入力している、ということですか? そういう作業をちゃんとやっているかどうか、確認をしたい、ということ? もし必ずやらなければいけないことなら、ヘッダーの設定自体を自動的、強制的にマクロで行ったほうが、後の心配が無いような気がします。「都合に合わせて書き換えて」っていうのがネックになるかもしれませんが。（みやほりん） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201209/20120905161754.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ