EXCEL VBA 表示形式の変更・操作 Number.FormatLocal（セルの書式設定）

EXCEL VBA 表示形式の変更・操作 Number.FormatLocal（セルの書式設定）

表示形式の取得（セルの表示形式を取得・セルのフォーマットを取得）

Sub Format01()

Dim Str As String
Dim i As Long


For i = 2 To 11  '2行目から11行目まで繰り返す。

    Str = Range("B" & i).NumberFormatLocal  'B列の表示設定（結果）をStrへ代入します。
    
    Range("C" & i) = Str  'Strへ代入した表示設定をC列に表示します。

Next i

End Sub

表示形式の設定（数値） Number.FormatLocal（セルの書式設定）

Sub Format02() '数値

    Range("C2").NumberFormatLocal = "####.#"
    
    Range("C3").NumberFormatLocal = "#,000"
    
    Range("C4").NumberFormatLocal = "#,000.###"
    
    Range("C5").NumberFormatLocal = "#,000.000"
    
    Range("C6").NumberFormatLocal = "???.???"
    
    Range("C7").NumberFormatLocal = "#,###"
    
    Range("C8").NumberFormatLocal = "#,"
    
    Range("C9").NumberFormatLocal = "#,###.0,"
    
    Range("C10").NumberFormatLocal = "#.0,,"
    
    Range("C11").NumberFormatLocal = "0_);[赤](0)"
    
    Range("C12").NumberFormatLocal = "0_);(0)"
    
    Range("C13").NumberFormatLocal = "0_ ;[赤]-0"
    
    Range("C14").NumberFormatLocal = "0;""▲ ""0"

End Sub

表示形式の設定（通貨）Number.FormatLocal（セルの書式設定）

Sub Format03() '通貨

    Range("C2").NumberFormatLocal = "####.#"
    
    Range("C3").NumberFormatLocal = "#,000"
    
    Range("C4").NumberFormatLocal = "#,000.###"
    
    Range("C5").NumberFormatLocal = "#,000.000"
    
    Range("C6").NumberFormatLocal = "???.???"
    
    Range("C7").NumberFormatLocal = "#,###"
    
    Range("C8").NumberFormatLocal = "#,"
    
    Range("C9").NumberFormatLocal = "#,###.0,"
    
    Range("C10").NumberFormatLocal = "#.0,,"

End Sub

表示形式の設定（日付）Number.FormatLocal（セルの書式設定）

Sub Format04()  '日付

    Range("C2").NumberFormatLocal = "yyyy/m/d"
    
    Range("C3").NumberFormatLocal = "[$-F800]dddd, mmmm dd, yyyy"
    
    Range("C4").NumberFormatLocal = "yyyy""年""m""月"";@"
    
    Range("C5").NumberFormatLocal = "m""月""d""日"";@"
    
    Range("C6").NumberFormatLocal = "[$-409]yyyy/m/d h:mm AM/PM;@"
    
    Range("C7").NumberFormatLocal = "yyyy/m/d h:mm;@"
    
    Range("C8").NumberFormatLocal = "[$-409]d-mmm;@"
    
    Range("C9").NumberFormatLocal = "[$-409]mmmm-yy;@"
    
    Range("C10").NumberFormatLocal = "[$-409]mmmmm;@"
    
    Range("C11").NumberFormatLocal = "[$-409]mmmmm-yy;@"
    
    Range("C12").NumberFormatLocal = "[$-411]ge.m.d"
    
    Range("C13").NumberFormatLocal = "[$-411]ggge""年""m""月""d""日"""

End Sub

表示形式の設定（時刻）Number.FormatLocal（セルの書式設定）

Sub Format05()  '時刻

    Range("C2").NumberFormatLocal = "[$-F400]h:mm:ss AM/PM"
    
    Range("C3").NumberFormatLocal = "[$-409]h:mm AM/PM;@"
    
    Range("C4").NumberFormatLocal = "[$-409]h:mm:ss AM/PM;@"
    
    Range("C5").NumberFormatLocal = "h""時""mm""分"";@"
    
    Range("C6").NumberFormatLocal = "h""時""mm""分""ss""秒"";@"

End Sub

表示形式の設定（標準・その他）Number.FormatLocal（セルの書式設定）

Sub Format06()  '標準・その他

    Range("C2").NumberFormatLocal = "G/標準"
    
    Range("C3").NumberFormatLocal = "@"
    
    Range("C4").NumberFormatLocal = "0%"
    
    Range("C5").NumberFormatLocal = "[<=999]000;[<=9999]000-00;000-0000"
    
    Range("C6").NumberFormatLocal = "[<=99999999]####-####;(00) ####-####"
    
    Range("C7").NumberFormatLocal = "[DBNum1][$-411]G/標準"
    
    Range("C8").NumberFormatLocal = "[DBNum2][$-411]G/標準"
    
    Range("C9").NumberFormatLocal = "[DBNum3][$-411]0"
    
    Range("C10").NumberFormatLocal = "[DBNum3][$-411]#,##0"

End Sub