[ExcelVBA] Val関数

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

■構文
Val(string)

■説明
文字列のうち連続する数字文字列を数字を返します。ただし、数字じゃない文字列を見つけた場合処理を中断します。
第一引数：文字列を指定します。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     'CInt or CDblと比較  
5.       
6.     Debug.Print Val("123  456") '123456(スペースは無視)  
7.     'Debug.Print CInt("123  456") 'エラー(スペースがある為)  
8.       
9.     Debug.Print Val("1,234")  '1(コンマの前まで)  
10.     Debug.Print CInt("1,234") '1234  
11.       
12.     Debug.Print Val("12.34")  '12.34  
13.     Debug.Print CDbl("12.34") '12.34  
14.       
15.     Debug.Print Val("\1234")  '0(\が数字じゃない為)  
16.     Debug.Print CInt("\1234") '1234  
17. End Sub  

Option Explicit

Sub SampleCode()
    'CInt or CDblと比較
    
    Debug.Print Val("123  456") '123456(スペースは無視)
    'Debug.Print CInt("123  456") 'エラー(スペースがある為)
    
    Debug.Print Val("1,234")  '1(コンマの前まで)
    Debug.Print CInt("1,234") '1234
    
    Debug.Print Val("12.34")  '12.34
    Debug.Print CDbl("12.34") '12.34
    
    Debug.Print Val("\1234")  '0(\が数字じゃない為)
    Debug.Print CInt("\1234") '1234
End Sub

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