＜Val関数で文字列を数値に変換してみた＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、 文字列を数値に変換する関数、 Ｖａｌ関数を使ってみたいと思います。 いつものセリフで、そんなたいしたことじゃないので今回もご安心を。 /* * １. Val関数で文字列を数値に変換 */ Val関数で文字列を数値に変換なんですが、 何言ってんだコイツと言う前に、 サンプルを。 Sub test() Dim n As Integer n = Val("1000") '(*1) 文字列"1000"を数値に変換 MsgBox n * 25 End Sub (*1) 普通に、 ｎ ＝ ｖａｌ（変換したい文字列）で数値に変換できます。 なんだぁ、簡単ですね。 Sub test2() Dim n As Long Dim strTANKA As String strTANKA = "120000" '12万 n = Val(strTANKA) '(*2)String型を数値に変換 MsgBox n / 250 End Sub (*2)もちろん、固定じゃなく、 n = Val(strTANKA) と 変数を渡し変換することができます。 Sub test3() Dim lngTANKA As Long '単価 Dim lngKAZU As Long '売上数量 Dim lngKINGAKU As Long '金額 Dim strWORK As String '文字列受け取り用 '単価の入力 strWORK = InputBox("単価を入力して下さい") lngTANKA = Val(strWORK) '入力された文字列を数値に変換 '数量の入力 strWORK = InputBox("販売数量を入力して下さい") lngKAZU = Val(strWORK) '入力された文字列を数値に変換 '金額の計算 lngKINGAKU = lngTANKA * lngKAZU '結果の表示 MsgBox "金額は、" & lngKINGAKU & "円です" End Sub こんな感じで、使用することも出来ます。 通常は、フォームで、 単価：999999 （テキストボックス） 数量：999999 （テキストボックス） 計算実行（ボタン） みたいな感じなので、InputBoxは使いませんが、 Valのサンプルなので、ご勘弁を。 /* * ２．あまり関係無いけど、配列変数の復習も兼ねて */ 前回やってた、グー、チョキ、パーの表示処理で、 配列変数と合わせて、 こんな使い方も出来ます。 Sub test4() Dim strNO As String '(*3)値を受け取るため文字型の変数を宣言 Dim strMSG(3) As String '(*4)結果メッセージの配列 0-3の4つ Dim n As Integer '(*5)番号変換用 '(*6)初期処理で使用するメッセージを代入する strMSG(0) = "正しい値を入力して下さいね" strMSG(1) = "グーを出しました" strMSG(2) = "チョキを出しました" strMSG(3) = "パーを出しました" '(*7) InputBoxで入力してもらう strNO = InputBox("１.グー ２.チョキ ３.パー", "アナタの手を入力で下さい") '(*8)入力値の文字をVal関数を使用して、数値に変換する n = Val(strNO) '(*9)変換された数値をチェックする、 '３以上なら０にする、４とか100とか違う数値が入力された時は０にする If 3 < n Then n = 0 '(*10)変数の値配列のｎ番目を表示する(strmsg(n)の中身)を表示する MsgBox strMSG(n) End Sub こんな感じにしてみました。 軽く解説すると、 Dim strMSG(3) As String '(*4)結果メッセージの配列 0-3の4つ まず、結果の文字列を配列で用意します。 '(*6)初期処理で使用するメッセージを代入する strMSG(0) = "正しい値を入力して下さいね" strMSG(1) = "グーを出しました" strMSG(2) = "チョキを出しました" strMSG(3) = "パーを出しました" ここで、メッセージを初期化してます。（事前にセットしておきます） '(*8)入力値の文字をVal関数を使用して、数値に変換する n = Val(strNO) で、”1”を１へ”８”なら8へ ふざけたユーザーが”ＴＡＫＯ”と文字列なら０となります。 n = Val("Ken3") とかやると、 数値に変換できないので、ｎは０となります。 '(*9)変換された数値をチェックする、 '３以上なら０にする、４とか100、123とか違う数値が入力された時は０にする If 3 < n Then n = 0 この処理はなぜ？か？ ５とか99とか数字に変換可能なので、 ３より上は全てエラーとしたいので０を代入してます。 ０にしておくと（タネを仕込んでおくと）、 下の配列のｎ番目のメッセージ表示で、 ０番目のstrMSG(0) = "正しい値を入力して下さいね"が表示されます。 '(*10)変数の値配列のｎ番目を表示する(strmsg(n)の中身)を表示する MsgBox strMSG(n) でｎ番目（添字のｎって言う人が多いかな）を表示してます。 ポイントは、 事前のメッセージのセットで、 strMSG(0) = "正しい値を入力して下さいね" エラーメッセージの処理かなぁ。 /* * ３．プログラムの穴（欠陥）、テストはしっかりと（笑） */ さて、このグー・チョキ・パー入力プログラム、 動いているように見えるけど、実は穴（欠陥）があります さて、どこでしょうか？ なんて、読者参加型のメールマガジンだと、これで１つ発行できるんだけど、 待ちきれないＫｅｎ３は、自分落しネタで攻めてみます。 問題の場所は、 −２とマイナスの数値を入力された時、 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'(*7) InputBoxで入力してもらう
strNO = InputBox("１.グー ２.チョキ ３.パー", "アナタの手を入力で下さい")
InputBoxは、当然マイナスの数値、例だと−２も入力可能です。
'(*8)入力値の文字をVal関数を使用して、数値に変換する
n = Val(strNO)
としたら、ｎは−２ですよね。
まぁ、普通の流れですよね。
'(*9)変換された数値をチェックする、
'３以上なら０にする、４とか100とか違う数値が入力された時は０にする
If 3 < n Then n = 0
３以上なら０にする、
そりゃぁ、１００とか、３以上の数が入力されたら、
０にして、エラーメッセージが表示されるけど、
−２の時は、エラーのチェックにひっかからなく、そのまま通ってしまうよ。
で、
'(*10)変数の値配列のｎ番目を表示する(strmsg(n)の中身)を表示する
MsgBox strMSG(n)
ここで、strMSGの−２番目を参照しに行くので、
インデックスの有効範囲エラーでプログラムはストップしてしまう。
あらら、−２なんか、入れんなよ、入力メッセージ見てないのかよコイツら。
頭イテ、ユーザーの入力ミスが悪いのかよ？
アナタのチェックが中途半端で、
マイナスの値をエラーで判断できなくて、逃してたんでしょ。
パット見、動いていても、いろいろなデータを想定して、テストしないとダメですよ。
いろいろなデータと言えば、
1.5 と入れても 2.5 と入れると、どうなるか、、、、
あっ、２のチョキが表示される。。。
これもなんか変だよね。
/*
* ４．終わりの挨拶
*/
今回は、
Val関数で文字列を数値に変換
と
テストをしっかりしないと、バグ発生しますよ（ユーザーのせいにするな）
を書いてみました。
拾い読みして、
１つでも何かの参考となれば幸いです。
Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。