Ｐａｇｅ 74 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼表に罫線を引きたい 学 02/9/12(木) 16:23 ┗Re:表に罫線を引きたい SHUN 02/9/12(木) 21:34 ┗Re:どうせなら・・・ SHUN 02/9/12(木) 21:43 ┗Re:どうせなら・・・ 学 02/9/13(金) 10:42 ─────────────────────────────────────── ■題名 ： 表に罫線を引きたい ■名前 ： 学 ■日付 ： 02/9/12(木) 16:23 -------------------------------------------------------------------------
| みなさん、こんにちわ。 表を自動作成して、最後に表内に罫線を付けるマクロを組もうとしているのですが、 どうもやり方がわかりません。 列は一定(A〜Zまで26項目)で、見出し部分(2行)には罫線が元から引かれていて、 行はデータごとに不定の表です。これのデータセル全部に罫線(細実線)を引きたい のですが、良い方法がありましたら教えてください。 宜しくお願いします。 学 |
| ▼学 さん：こんばんわ >表を自動作成して、最後に表内に罫線を付けるマクロを組もうとしているのですが、 >どうもやり方がわかりません。 >列は一定(A〜Zまで26項目)で、見出し部分(2行)には罫線が元から引かれていて、 >行はデータごとに不定の表です。これのデータセル全部に罫線(細実線)を引きたい >のですが、良い方法がありましたら教えてください。 >宜しくお願いします。 Sub test() Range("A1").CurrentRegion.Select Selection.Offset(2).Resize(Selection.Rows.Count - 2).Select With Selection .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin End With End Sub で、いかがでしょうか |
| 先程のコードで間違いという訳ではありませんが、 With ステートメントを使うなら Sub test() Range("A1").CurrentRegion.Select Selection.Offset(2).Resize(Selection.Rows.Count - 2).Select With Selection.Borders .LineStyle = xlContinuous .Weight = xlThin End With End Sub とすべきでしたね。 |
| SHUN さん ご丁寧に色々とありがとうございます。 お陰様でうまくいきました。 ありがとうございました。 学 |