[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.009 Ｉｆ文で範囲のチェック

Ｉｆ文で範囲のチェック

メルマガ発行内容

＜Ｉｆ文で範囲のチェック＞
こんにちは、
回りくどい解説中の三流プログラマーＫｅｎ３です。

今回は、
If文とSelect Case文
で
範囲のチェックをやってみたいと思います。
そんなたいしたことじゃないのでご安心を。

/*
 * １.Ｉｆ文で範囲チェック
*/

Ｉｆ文で範囲チェックをやってみたいと思います。
複数条件のＩｆ文ですが、そんなたいしたことじゃないのでご安心を。

複数条件って言うと、何を思い浮かべますか？
えっと、お金持ちでカッコイイ男性、で、ジジ・ババ抜きなら最高
働くなら、労働時間が短い か 自宅から近くの職場
じゃなくって、（それもありだけど？）

１から100の乱数を発生させ、今日の運勢
最高　　　81～100
いい感じ  61～80
ふつう　　41～60
少し悪い　21～40
最悪　　　 1～20
とメッセージを出すプログラムを書いてみたいと思います。

If n = 2 Then
    MsgBox "チョキを出しました"
End If
と単独の条件は、やりましたね。

If文では、And 演算子 Or 演算子 を使用して、複数の条件を書くことが出来ます。
簡単に書くと、
If 評価する男性 = 金持ち And 評価する男性 = カッコイイ then
と書くと、男性が金持ちで なおかつ 男性がカッコイイ両方の条件を満たす時、
If 給料 = 高い Or 場所 = 近い then
と書くと、給料が高い か 場所が近い時 どちらかの条件がＯＫの時です。

ふざけてないで、真面目に解説しろ？って、
話を戻して、
１から100の乱数を発生させ、今日の運勢
最高　　　81～100
と表示なので、
数値が81より大きく、１００より小さい時なので、
If 乱数 >= 81 And 乱数 <= 100 then
If n >= 81 And n <= 100 then
となります。

ここから、簡単に書くと、
Sub test5()

    Dim n As Integer '値を格納する変数を定義する

    Randomize   ' 乱数発生ルーチンを初期化します。

    n = Int((100 * Rnd) + 1)  '(*1) 1 から 100 までの乱数を発生させます。

    '判断する
    If n >= 81 And n <= 100 Then  '(*2) nが81以上、nが100以下
        MsgBox n & "%、最高です"
    End If

    If n >= 61 And n <= 80 Then
        MsgBox n & "%、いい感じです"
    End If

    If n >= 41 And n <= 60 Then
        MsgBox n & "%、普通です"
    End If

    If n >= 21 And n <= 40 Then
        MsgBox n & "%、少し悪いです"
    End If

    If n >= 1 And n <= 20 Then
        MsgBox n & "%、最悪です"
    End If

End Sub

ポイントは、
    '判断する
    If n >= 81 And n <= 100 Then  '(*2) nが81以上、nが100以下
        MsgBox n & "%、最高です"
    End If
の場所です。
nが81以上、nが100以下と二つの条件を判断し、処理を行ってます。

不等号の意味は、そのままで、
if a = 1  aが1の時
if a > 5  aが5より大きい時、6,7,8....
if a >= 5 aが5以上（5含む） 5,6,7,8...
if a < 5  aが5より小さい時、4,3,2,1,0,-1,-2....
if a <= 5 aが5以下（5含む） 5,4,3,2...
if a <> 5 aが5以外の時、    3,4,6,7...
です。

一般的に、左側に変数、右側に定数・変数を書く人が多いです。
が、
逆に書くこともできます。

Sub test6()

    Dim n As Integer '値を格納する変数を定義する

    Randomize   ' 乱数発生ルーチンを初期化します。

    n = Int((100 * Rnd) + 1)  '(*1) 1 から 100 までの乱数を発生させます。

    '判断する
    If 80 < n And n <= 100 Then
        MsgBox n & "%、最高です"
    End If

    If 60 < n And n <= 80 Then
        MsgBox n & "%、いい感じです"
    End If

    If 40 < n And n <= 60 Then
        MsgBox n & "%、普通です"
    End If

    If 20 < n And n <= 40 Then
        MsgBox n & "%、少し悪いです"
    End If

    If 0 < n And n <= 20 Then
        MsgBox n & "%、最悪です"
    End If

End Sub

こんな感じでもＯＫです。
なんとなく、n > 10 より 10 < n が好きな三流君でした。

同じ処理結果のプログラムでも、いろいろな書き方が出来ます。

なんか、いろいろ書きましたが、
And と Or で複数条件が書けるです。（今回Ｏｒはやってませんが）
あまり気にしないで下さい、慣れると思います。

できる読者さんの心の中？
まだまだ、平気、余裕だね（ホントか？（笑））

/*
 * ２．Ｉｆ ～ ＥｌｓｅＩｆを使ってみよう
*/

自分では、あまりつかわない、
Ｉｆ ～ ＥｌｓｅＩｆ
を使ってみたいと思います。
えっ、自分で使わないものを人に教えるなって？
まぁまぁ、そんなこと言わないで、拾い読みして下さいよ。。。

少し上で（笑）、Ｉｆ文で範囲チェックを行うプログラムを作りました。

 >１から100の乱数を発生させ、今日の運勢
 >最高　　　81～100
 >いい感じ  61～80
 >ふつう　　41～60
 >少し悪い　21～40
 >最悪　　　 1～20
 >とメッセージを出すプログラムを書いてみたいと思います。

で、下記の長ったらしいプログラムを書きましたね。

Sub test6()

    Dim n As Integer '値を格納する変数を定義する

    Randomize   ' 乱数発生ルーチンを初期化します。

    n = Int((100 * Rnd) + 1)  '(*1) 1 から 100 までの乱数を発生させます。

    '判断する
    If 80 < n And n <= 100 Then
        MsgBox n & "%、最高です"
    End If

    If 60 < n And n <= 80 Then
        MsgBox n & "%、いい感じです"
    End If

    If 40 < n And n <= 60 Then
        MsgBox n & "%、普通です"
    End If

    If 20 < n And n <= 40 Then
        MsgBox n & "%、少し悪いです"
    End If

    If 0 < n And n <= 20 Then
        MsgBox n & "%、最悪です"
    End If

End Sub

ポイントは、
    If 80 < n And n <= 100 Then
        MsgBox n & "%、最高です"
    End If
で、
80より上で100以下、
60より上で80以下、
とAnd演算子を使用して、順順にチェックしていきました。

人間だったら、こんな考え？の人も居るかも。
５７って数字を目で見たら、
８１～じゃないな、
６１～じゃないな
４１～、、おっ、ここだ、でメッセージは普通を出力。

何が言いたいの？三流君、、、
えっとですね、
今回のメッセージ表示は、
８０以上だったら、
６０以上だったら、
４０以上だったら、
２０以上だったら、
それ以外
って考え方も出来て、
If文の構文に、ElseIfってのがあって、
プログラムで書くと、

Sub test7()

    Dim n As Integer '値を格納する変数を定義する

    Randomize   ' 乱数発生ルーチンを初期化します。

    n = Int((100 * Rnd) + 1)  '(*1) 1 から 100 までの乱数を発生させます。

    '判断する (*2)
    If 80 < n Then     '80より上か？
        MsgBox n & "%、最高です"
    ElseIf 60 < n Then '次に６０より上か？チェック
        MsgBox n & "%、いい感じです"
    ElseIf 40 < n Then
        MsgBox n & "%、普通です"
    ElseIf 20 < n Then
        MsgBox n & "%、少し悪いです"
    Else  '全ての条件にあてはまらない時。
        MsgBox n & "%、最悪です"
    End If

End Sub

となります、
なんか、見にくくなった？なんて感想もありですが、
ポイントは、
    If 80 < n Then     '80より上か？
        MsgBox n & "%、最高です"
    ElseIf 60 < n Then '次に６０より上か？チェック
        MsgBox n & "%、いい感じです"
の
ElseIf 60 < n Then
で、次の条件をチェックしています。

いろいろと試してみて下さい。

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

今回は、
軽めに、Ｉｆ文で範囲チェック
を少し書いてみました。

感想・質問などあったら、掲示板に書いてもらえるとうれしいです
＊質問に回答形式だとネタ考えないでいいので、ラクできます（笑）

三流プログラマーのＫｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・