銀嶺さんの日記 | ニコッとタウン

自由気ままに

友だち・お気に入り

VBAで一風変わった表を作ってみた～♫

カテゴリ：勉強
2013/07/01 14:33:07

VBAの奥深さに頭を抱えている銀です　＿ﾉフ○)))ｸﾞﾀﾘ

この4月から本格的にVBAを独学し始めて色々な構文を作っておりますが、今回はそのうちの一つ、通常では見られない表を作ったので紹介いたします

多分、VBAの記述では意味が分からないと思いますので、Gooブログにアップしております
説明文も載せておりますので興味のある方はご自由にお入りくださいませ

http://blog.goo.ne.jp/esupuresso1/c/e183b68b13a0a4bf2d674735fa02fc34

Sub 見出し行の文字を斜めに斜線の罫線を引く()
    With Range("a1:c1")
        .HorizontalAlignment = xlCenter
        .Orientation = 45
        With .Borders
            .LineStyle = xlDiagonalUp
            .LineStyle = thin
            .LineStyle = xlContinuous
        End With
        .Interior.Color = vbYellow
        .Font.Color = vbBlue
    End With
    Range("b2:b5").HorizontalAlignment = xlCenter
    Range("a2:c5").Borders.LineStyle = xlContinuous
    Range("c2:c5").NumberFormatLocal = "#,###"
End Sub