変数の型を意識する

メルマガ発行内容

＜変数の型を意識する＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
型を意識してみる
です。

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

/*
 * １. ロングの固定値には＆を付けるんですよ
*/

1万５千円の品を２５個買った時の合計？（小学生の算数かい？）
をやろうと思い、

Sub aaa()
    MsgBox (15000 * 25)
End Sub

なんて、やると、エラーメッセージで、
オーバーフローです、、とでます。

まぁ、いいや、
気を取りなおして、Long型の変数に入れればいいんだろ、
Sub aaa()
    Dim kingaku As Long
    kingaku = 15000 * 25
    MsgBox kingaku
End Sub
とやってもダメで、

Sub aaa()
    Dim kingaku As Long
    kingaku = 15000
    kingaku = kingaku * 25
    MsgBox kingaku
End Sub
とやると、無事、375000と表示されます。

ヘルプをよく見ると、ｌｏｎｇの数値には＆を明示的に付けて、
Sub aaa()
    MsgBox (15000& * 25&)
End Sub
がお行儀の良い、正しい書き方みたいです。
MsgBox (10 / 3)
は、それなりに出るのにね。。。

/*
 * ２．変数宣言の書き方（C言語あがりのＶＢ使い？　）
*/

Ｃ言語は、ランタイムエラーでなくって、やられたことありますよね？
ＶＢは、ランタイムエラーが発生したからすぐに気が付くけど。
なんて言って無いで変数の型はいつも意識しましょうね。
例）Ｃ言語だと、10Lと書いてなかったり、(long)tankaなどしてなかったり、、、

ふと、C言語で思い出したこと、
Sub aaa()
    Dim a As Integer
    a = 10 / 3
    MsgBox a
End Sub
これを実行すると３と表示されますね。
＊勝手に整数にされてるのは今回は置いといて。

Sub aaa()
    Dim a, b As Integer
    a = 10 / 3
    b = 10 / 3
    MsgBox a
    MsgBox b
End Sub
と変数Ｂを追加しました。

さて、どうなるのでしょう？
ははは、３と３でしょ？

やってみてよ。

あれ？
３．３３３３と３
だぁ、なんでかなぁ。
同じＩｎｔｅｇｅｒ型にしたのに。

それは、したつもりになってて、
Dim a, b As Integer
の書き方だと、
ａは型指定なしのバリアント型、なので3.3333となって、
ｂは指定したInteger型なんで３です。

Sub ccc()
    Dim a As Integer, b As Integer
    a = 10 / 3
    b = 10 / 3
    MsgBox a
    MsgBox b
End Sub
と、Asを省略しないで書くとＯＫです。

Ｃ言語みたいに、int a, b;
や
Dim a, b As Integer
と一行に変数を書く
書き方になれていると、、たまにアイタタタとなることも。

そう言えば、ＶＢＡで変数宣言、
１行に１個のクセがついてるような気がする。

/*
 * ３．IsNumeric関数で変換前にチェックする
*/

オーバーフローは変数の型を意識して、
プログラムを組む前に考えるとして、
前回、ユーザーから入力された値をＣｉｎｔで変換してました。

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

ここで、問題だったのが、
10ABCと入力
XYZ123と入力
何も入力しないでキャンセルを押してみる。
の３パターンでした。

まぁ、数値へ変換しようとしているのに、
数値以外の値を入力されたので、
しかたないのですが、
誤入力の可能性はいくらでもあるので、
IsNumeric関数で変換前にチェックしてみます。

Sub test021()

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

    '(*3)文字列が数値として有効かチェックする
    If IsNumeric(strKINGAKU) = True Then
        '続いて、Cint関数で変換
        intKINGAKU = CInt(strKINGAKU) 'strkingakuを数値へ変換する
        MsgBox "CIntで変換すると[ " & intKINGAKU & " ]です"
    Else
        MsgBox "入力された[ " & strKINGAKU & " ]は、数値に変換できません"
    End If

End Sub

IsNumeric関数は、
渡された値が数値として評価できるかどうかを調べ、
True , False を返してくれるので、
Ｉｆ文で変換前に事前チェックをしてみました。

予期せぬ値が入る時は、チェック機能はしっかりと。

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

今回は、
・変数の型を意識する
・変数宣言を１行にまとめて書くと書き方によっては
・IsNumeric関数でチェック
でした。

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

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

ページフッター

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

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

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