Format関数は書式設定のテッパン関数！実務の書式と重要5例

Sub Format関数テスト1()
    Dim MyVal As Variant
        MyVal = Worksheets("Sheet1").Range("B3")
        Worksheets("Sheet1").Range("D3") = _
            Format(MyVal, "ggge年oooodd日(aaaa)")
End Sub

Sub Format関数テスト2()
    Dim MyVal, Mylim As Variant
        MyVal = Worksheets("Sheet1").Range("B3")
        Mylim = Worksheets("Sheet1").Range("C3")
        Worksheets("Sheet1").Range("D3") = Format(MyVal + Mylim, _
            "ggge年oooodd日(aaaa)")
End Sub

Sub Format関数テスト3()
    Dim MyVal As Variant
        Worksheets("Sheet1").Range("B3") = Now()
        MyVal = Worksheets("Sheet1").Range("B3")
        Worksheets("Sheet1").Range("D3") = _
            Format(MyVal, "yymmdd-hhnn")
End Sub

Sub Format関数テスト4()
    Dim MyVal As Variant
    Dim i As Long
        With Worksheets("Sheet1")
            .Range("B3") = 1
            .Range("B4") = 23
            .Range("B5") = 155
            .Range("B6") = 1797
            .Range("B7") = 25791
        End With
        For i = 3 To 7
            MyVal = Worksheets("Sheet1").Range("B" & i)
            With Worksheets("Sheet1").Range("D" & i)
                .NumberFormatLocal = "@"
                .HorizontalAlignment = xlRight
                .Value = Format(CStr(MyVal), "00000")
            End With
        Next i
End Sub

Sub Format関数テスト5()
    Dim MyVal As Variant
        With Worksheets("Sheet1")
            .Range("B3") = 13
            .Range("C3") = 11
            MyVal = .Range("B3") * .Range("C3")
            .Range("D" & 3) = Format(MyVal, "0.00\c\㎡")
        End With
End Sub