セルの表示形式(日付、%、前ゼロ表示など)を設定する。

VBAでセルに入力された文字の表示形式を%表示、前ゼロ詰め（ゼロパディング）、日付時刻表示、条件付き表示など指定の表示形式を設定するにはRangeオブジェクトのNumberFormatLocalプロパティを利用して文字の表示方向を設定することができます。
※NumberFormatLocalプロパティを利用は「セルの書式設定」→「表示形式」で指定できるものと同じ設定になります。

書式設定の標準、数値や通貨以外にユーザ―定義で設定した種類がそのまま設定できるので、自由にな表示形式の設定が可能です。

'******************************************************************
'　文字の表示形式を設定
'******************************************************************
Sub Main_NumberFormatLocal()
    
    '文字列（数字を文字列にすると文字が左寄せになる）
    Sheets("Sheet1").Range("A1").NumberFormatLocal = "@"
    
    '数値(指定した桁分の前ゼロ付与)
    Sheets("Sheet1").Range("A2").NumberFormatLocal = "00000000"
    
    '数値(3桁カンマ区切り)
    Sheets("Sheet1").Range("A3").NumberFormatLocal = "###,##0"
    
    'パーセント(小数第2位まで表示)
    Sheets("Sheet1").Range("A4").NumberFormatLocal = "0.00%"
    
    '日時
    Sheets("Sheet1").Range("A5").NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
    
    '日付
    Sheets("Sheet1").Range("A6").NumberFormatLocal = "yyyy""年""m""月""d""日"""
    
    '時刻
    Sheets("Sheet1").Range("A7").NumberFormatLocal = "hh""時""mm""分""ss""秒"""
    
    '和暦
    Sheets("Sheet1").Range("A8").NumberFormatLocal = "ggge""年""m""月""d""日"""
    
    '円、3桁カンマ区切り、プラス青文字／マイナス赤文字の条件付き表示
    Sheets("Sheet1").Range("A9").NumberFormatLocal = "[青]#,##0円;[赤]-#,##0円"
    
    '円、3桁カンマ区切り、プラス青文字／マイナス赤文字の条件付き表示
    Sheets("Sheet1").Range("A10").NumberFormatLocal = "[青]#,##0円;[赤]-#,##0円"
    
    
End Sub

　■実行結果