![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcbYeo4Utxg7-TEt1CNG9JBhphPOgiCjSuzbMZa-bugs8qFyXWwAhnmyr4bSSDZoYJ5FwXbvaYGfmmzc-hRwtAZTgYh9A6pgHItIC10mc4bc8Pv-wCBHUBK9CN7D3SKic0qg09Qm8sFhFr/s1600/xls-icon-3385-2.png)
外枠の罫線を引くには、BorderAroundメソッドを使います。
例
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5YsgXQQfNxVhn683SmRoE-nBZtIj0P0jiXrnIbasuC5jRJVgmJNFf0Eqzw6HHJQfWJEzd8OrohpNnsOlH9-eFgGEDi6fSZ8xB1nyGjP5GOmBESFcHdGBIZ38Lc_G56qLaqjFApqMNRnsv/s1600/excel_vba_border_around_line_001.png)
たとえば、このような罫線がひかれた表の外枠に中太線を引くには次のように記述します。
Sub AroundLine() Range("B3:E9").BorderAround Weight:=xlMedium End Sub
実行結果
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjxTU9ebFSIS-fLG8Z9zxxswXbMZ0vivRp9tWK8P9grzn12CFtXC_j2xPbMU4qNZLJYt4ZcyY513GqjFdPuX6NUGBpmu_fw87GOwO4f79M7PDHrF1pZY5FuzrIeK_6la39EMLhQ1hgp0R3S/s1600/excel_vba_border_around_line_002.png)
comments powered by Disqus
スポンサーリンク
2017年6月23日 (金) 22:47 in Excel , VBA
Sub AroundLine() Range("B3:E9").BorderAround Weight:=xlMedium End Sub
スポンサーリンク