お奨め本の目次を見るだけでも勉強になったり
＜変数の型を意識する＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、 型を意識してみる です。 いつものセリフで、そんなたいしたことじゃないので今回もご安心を。 /* * １. ロングの固定値には＆を付けるんですよ */ 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関数でチェック でした。 拾い読みして、 １つでも何かの参考となれば幸いです。 Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |