今回は罫線を引きましょう。一見すると、かなり複雑な線を引かないといけないように見えます。規則性を見つけて下さい。サブフォルダの縦の空白ばかり見ていると、どうして良いか解らなくなってしまいますよ。シンキングタイム順番に飲んで待ってます。「森を見て木を見ず」、「木を見て森を見ず」と言います。上図をぱっと見て、森を見たはずです。次は、木を見て下さい。適当な真ん中くらいの1行だけ(前後の行を隠しても良いでしょう)を見て下さい。これを2~3行比べて下さい。以下、思考の過程です。規則性は、1.どのセルも左には罫線がある2.文字(フォルダ名、ファイル名)のあるセルは、上にも罫線がある3.上罫線は、最後まで続いている4.サイズ、更新日時の左罫線は細線であるでは、どんな引き方をすれば良いか。左罫線と中央縦罫線を細線で引く4.全範囲を選択し、外枠四辺に罫線を引くこれをプログラミングすれば良いのです。最初は、上の手作業をマクロの記録したものを使用すれば良いでしょう。Selectionを変更すれば良いです。不要な部分を削除していけば出来上がります。以下、作成したプログラムです。Subまずは、一覧部分の罫線からです。引数で行番号、列番号を渡しています。左罫線と中央縦罫線を引くに相当します。1は現在列の左になります。左罫線と上罫線を引くに相当します。2は更新日時の列になります。xlNoneが複数記述されますが、これは罫線を引かない指定なので、もともと罫線が無いのですから不要です。マクロの記録を使用したら、このような不要な記述を消していきます。それだけでも、結構すっきりしたプログラムができあがります。残りの、見出し部分や、サイズ、更新日時の罫線です。以下のプログラムでは、サイズ、更新日時の文字を設定したり、また、外枠の罫線は、メリハリをつけて少し太くしています。Sub特段の解説は必要無いでしょう。罫線の種類、太さ等々は、マクロの記録で確認すれば、直ぐに分かります。プロパティも単語を見れば理解できるでしょう。これで罫線も引けて、ほぼ完成です。メインのモジュールは「森」です。細かいSubモジュールが「木」です。森も木も両方とも見易くしておく必要があります。「森」には、どのような「木」が、どのような配置にあるかが分かるようにします。大きな「木」は、さらに、「枝」の形毎に分類していきます。違いを見つけるのではなく、同じ部分を見つけるようすれば良いでしょう。その後に、違いを見つけて個別に対処します。一か所に集めておいた方が良いでしょう。罫線を変更したい場合は、それぞれが関与するので、まとめて見られるようにしておきます。最後の仕上げです、使えるマクロにする為には、重要な作業になります。Next)|VBA入門8.セルに文字を入れるとは(Range,Value)|VBA入門9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説10.ひらがな⇔カタカナの変換|エクセル基本操作ホームマクロVBAマクロVBAサンプル集ファイル一覧を作成エクセルでファイル一覧を作成.No9(罫線)このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。GASスプレッドシート入門スプレッドシート応用GAS入門GAS応用ホームマクロVBAマクロVBAサンプル集ファイル一覧を作成エクセルでファイル一覧を作成.No9このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。