[ExcelVBA] Format関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])

■説明
日付/時刻、数値/通貨、文字列を指定したフォーマットに変換し返します。
第一引数：変換したいデータを指定
第二引数：(省略可能)変換したいフォーマットを指定。フォーマットについてはサンプルコード参照。
第三引数：(省略可能)週の初めの日を何曜日にするか指定。省略した場合は日曜日

定数	値	内容
vbUseSystem	0	NLS APIの設定値を使います
vbSunday	1	(規定値)日曜
vbMonday	2	月曜
vbTuesday	3	火曜
vbWednesdasy	4	水曜
vbThursday	5	木曜
vbFriday	6	土曜
vbSaturday	7	日曜

第四引数：(省略可能)年の始めの週を何周目にするか指定。省略した場合1月1日を含む週

定数	値	内容
vbUseSystem	0	NLS APIの設定値を使います
vbFirstJan1	1	(規定値)1月1日を含む週を年度の第一週とします。
vbFirstFourDays	2	7日のうち少なくとも4日が新年度に含まれる週を年度の第一週としてます。
vbFirstFullWeek	3	全体が新年度に含まれる最初の週を年度の第一週とします。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Debug.Print (Format(Now, "Long Date"))   '2011年12月4日  
5.     Debug.Print (Format(Now, "Medium Date")) '11-12-04  
6.     Debug.Print (Format(Now, "Short Date"))  '2011/12/04  
7.     Debug.Print (Format(Now, "Long Time"))   '21:30:27  
8.     Debug.Print (Format(Now, "Medium Time")) '09:30 午後  
9.     Debug.Print (Format(Now, "Short Time"))  '21:30  
10.       
11.     Debug.Print (Format(123456789, "Currency"))   '\123,456,789  
12.     Debug.Print (Format(123456789, "Fixed"))      '123456789.00  
13.     Debug.Print (Format(123456789, "Standard"))   '123,456,789.00  
14.     Debug.Print (Format(123456789, "Scientific")) '1.23E+08  
15.   
16.     '0の時スラッシュの右側を返す。それ以外はスラッシュの左側を返す  
17.     Debug.Print (Format(123456789, "Yes/No"))     'Yes  
18.     Debug.Print (Format(0, "Yes/No"))             'No  
19.     Debug.Print (Format(123456789, "True/False")) 'True  
20.     Debug.Print (Format(0, "True/False"))         'False  
21.     Debug.Print (Format(123456789, "On/Off"))     'On  
22.     Debug.Print (Format(0, "On/Off"))             'Off  
23.   
24.     '桁揃え  
25.     Debug.Print (Format(12, "000"))         '012  
26.     Debug.Print (Format("a", "@@@") & ":")　'  a:  
27.     Debug.Print (Format("a", "!@@@") & ":") 'a  :  
28. End Sub  

Option Explicit

Sub SampleCode()
    Debug.Print (Format(Now, "Long Date"))   '2011年12月4日
    Debug.Print (Format(Now, "Medium Date")) '11-12-04
    Debug.Print (Format(Now, "Short Date"))  '2011/12/04
    Debug.Print (Format(Now, "Long Time"))   '21:30:27
    Debug.Print (Format(Now, "Medium Time")) '09:30 午後
    Debug.Print (Format(Now, "Short Time"))  '21:30
    
    Debug.Print (Format(123456789, "Currency"))   '\123,456,789
    Debug.Print (Format(123456789, "Fixed"))      '123456789.00
    Debug.Print (Format(123456789, "Standard"))   '123,456,789.00
    Debug.Print (Format(123456789, "Scientific")) '1.23E+08

    '0の時スラッシュの右側を返す。それ以外はスラッシュの左側を返す
    Debug.Print (Format(123456789, "Yes/No"))     'Yes
    Debug.Print (Format(0, "Yes/No"))             'No
    Debug.Print (Format(123456789, "True/False")) 'True
    Debug.Print (Format(0, "True/False"))         'False
    Debug.Print (Format(123456789, "On/Off"))     'On
    Debug.Print (Format(0, "On/Off"))             'Off

    '桁揃え
    Debug.Print (Format(12, "000"))         '012
    Debug.Print (Format("a", "@@@") & ":")　'  a:
    Debug.Print (Format("a", "!@@@") & ":") 'a  :
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧