Excel VBA 応用② プログラムを書いて自動入力する

Excel

環境:Office365 Windows10

今回は前回の続きです。

前回の記事はこちら

今日はさらに条件を追加していきます。

なので「地名」という列を追加しました。

ここでは

・「評価点数」7点以上、

・「地名」関東地方、

この二つの条件が揃った場合のみ、「合否」の列に「合格」と入力します。

追加した部分は、

・If Cells(i, 5) = “関東地方” Then

この部分ですね。

この場合、

・If Cells(i, 3) >= 7 Then

・If Cells(i, 5) = “関東地方” Then

二つの条件を同時に満たしている必要があります。

これは三つ、四つと増やしていくことも可能です。

ではこちらのプログラムを実行してみます。

実行結果は上記の通りです。

評価点が7点以上であり、地名が関東地方である二つの条件を満たしているのは神奈川だけですね。

次回は「For」文をダブルで使ってみたいと思います。

コメント

タイトルとURLをコピーしました