文字列を数値に変換、CIntで変換

メルマガ発行内容

＜文字列を数値に変換、CIntで変換＞
こんにちは、三流プログラマーＫｅｎ３です。

前回、文字列から数値の変換でＶａｌ関数を使用しました、
今回は、
ＣＩｎｔ関数を使ってみたいと思います。

いつものセリフで、そんなたいしたことじゃないので今回もご安心を。

/*
 * １. ありがたいご意見メール
*/

Val関数だと1,234とカンマ付きの文字列が変換できないよ
とメールをいただきました。

読者さんからのメール(昔の講座書いてた時のメールを流用)
In message "Re: Val関数",
A***さん wrote...
 >Val 関数について
 >
 >きっと あとで説明があるのでしょうが、型の変換や、丸めには一筋縄ではいかな
 >いものがありますね。
 >
 >　たとえば test3 で
 >
 >> Sub test3()
 >
 >　中略     
 >
 >>     '単価の入力
 >>     strWORK = InputBox("単価を入力して下さい")
 >>     lngTANKA = Val(strWORK)  '入力された文字列を数値に変換
 >
 >123,456 と入力されたら lngTANKA は 123 になってしまいますね。
----

あれれ、、、
Ｖａｌ関数だと，が付いているとダメみたいですね。
金額系の入力だと、１,２３４みたいに、入力したい人居ますよね。
また、元データが文字列で３桁区切りのカンマが付いてるとか。

さて、どうしましょう。。。

/*
 * ２．CInt関数を使ってみました。
*/

何か無いかなぁ、
"1,234"の文字列を"1234"に直してから変換も一つの手だけど、
そんな手間かけたくないしなぁ。

ヘルプを見ると、ＣＩｎｔなんて関数がある。
よし、これを使ってみるか。

Sub test1()

    '(*1)前準備で変数宣言
    Dim strKINGAKU As String   '文字列変数の定義
    Dim intKINGAKU As Integer  'INT型変数の定義
    
    '(*2)固定値を代入
    strKINGAKU = "1,234"  'カンマ付きで千２百３十４円の文字列を代入

    '(*3)Val関数で変換、数値表示
    intKINGAKU = Val(strKINGAKU) 'strkingakuを数値へ変換する
    MsgBox "Valで変換すると " & intKINGAKU
    
    '(*4)続いて、Cint関数で変換
    intKINGAKU = CInt(strKINGAKU) 'strkingakuを数値へ変換する
    MsgBox "CIntで変換すると " & intKINGAKU

End Sub

を実行してみます。
(*2)で
strKINGAKU = "1,234"
と文字列を代入した変数を、(*3)Val(*4)Cintで変換します。

結果は、
(*3)のＶａｌ関数は、１と表示され、
(*4)のＣｉｎｔ関数は、１２３４と表示されます。


/*
 * ３．プログラムの穴（欠陥）、テストはしっかりと（笑）
*/

さて、いつものテストはしっかりと系ネタ。

CInt覚えましたか？使ってくださいね。
じゃなくって、
もしも入力された文字がＸＸＸだったら、
と想像し、テストしてみると、

Sub test2()

    '(*1)前準備で変数宣言
    Dim strKINGAKU As String   '文字列変数の定義
    Dim intKINGAKU As Integer  'INT型変数の定義
    
    '(*5)ユーザーから入力を受けつける
    strKINGAKU = InputBox("金額を入力して下さい")

    '(*6)続いて、Cint関数で変換
    intKINGAKU = CInt(strKINGAKU) 'strkingakuを数値へ変換する
    MsgBox "CIntで変換すると[ " & intKINGAKU & " ]です"

End Sub

(*5)でＩｎｐｕｔＢｏｘを使用して入力します。
次に、
(*6)でＣＩｎｔ関数を使用して、変換します。

上記テストプログラムで、下記のテストを行います。
ア. 1,23 と入力
イ．1,23,4 と入力
ウ．10ABCと入力
エ．XYZ123と入力
オ.何も入力しないでキャンセルを押してみる。
すると？
アとイは無事に変換されます
が
ウ〜オは型変換エラーでプログラムがストップしてしまいます。





さて、さて、、、、

三流君へもう一つのクレーム言っていい？
いいよ、軽くね。

カ．１２００００と（１２万と）入力したらどうなるの？

あっ、オーバーフローだってさ、、、、



/*
 * ４．終わりの挨拶
*/

今回は、
Ｖａｌで数値に変換は、"1,234"などには、使用できない、
ＣＩｎｔ関数ってある
が、めちゃくちゃな文字を渡すと型変換エラーで止まってしまう。
と
覚えてもらえば、ＯＫです。

今回のテストサンプルを
http://www.ken3.org/vba/lzh/vba018.lzh
に
保存しました。動かしていろいろと確認（イタズラ）してください。


おっと、忘れてはいけないのが、
テストをしっかりしないと、バグ発生しますよ（ユーザーのせいにするな）
でしたね。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]