データの一括判定【IFと変数】

The following two tabs change content below.

• この記事を書いた人
• 最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

データの一括判定【IFと変数】

複数のデータの中で【○○だったら～】という条件を一括で判定するという作業をすることがあると思います。今回は今までご紹介してきた｢変数｣と「IF」そして「データのある最終行を取得する方法」を使用して複数あるデータの一括判定するプログラムを作成していきます。

今回はこのデータを使い、性別が男なら[1]女なら[2]をC列に記述するプログラムを書いていきます。

今までご紹介してきた｢変数｣と「IF」そして「データのある最終行を取得する方法」を使用して作成していきます。

E-VBA

変数について パート2 【繰り返し処理For〜Nextt】

変数で繰り返し処理For〜Next変数の花形といえば繰り返し処理です、VBAを勉強していくのなら必ず必要になってくるのはこの繰り返し処理です。初めての方には回数を自分...

E-VBA

条件分岐【IFステートメント】

条件分岐【IFステートメント】プログラミングの基本といっても過言ではないこの条件分岐、【もしも〇〇だった場合〇〇を実行】という条件によって処理を変えるときに必...

E-VBA

データのある最終行を取得する方法

データのある最終行を取得する方法 データのある最終行を取得する方法もしVBAでデータを登録していくシステムを作りたいと思った場合、データがある最終行を取得し...

サンプルコード

Sub Sample()

 Dim i As Long
 Dim row As Long
 
 row = Cells(Rows.Count, 2).End(xlUp).row
 For i = 2 To row
 
 If Cells(i, 2).Value = "男" Then
 Cells(i, 3).Value = "1"
 Else
  Cells(i, 3).Value = "2"
 End If
 
 Next i

End Sub

まずは変数を宣言をします。

Dim i As Long
 Dim row As Long
 
 row = Cells(Rows.Count, 2).End(xlUp).row
For i = 2 To row

まず今回宣言する変数iとrowは、rowでB列の最終行を取得し、iはrow回(最終行)まで繰り返す数値を格納していく変数ですので数値を格納できるLongを宣言します。

では条件付けをしてきます。

今回は性別判定なので男か女のどちらかしかないので簡単な条件付けです。

If Cells(i, 2).Value = "男" Then
 Cells(i, 3).Value = "1"
 Else
  Cells(i, 3).Value = "2"
 End If

男だったら【1】それ以外は【2】という条件付けです。なので【不明】などでも【2】と記載されます。

実行結果

実際に実行した結果がこちらになります、男なら【1】女なら【2】が反映されているともいます。

まとめ

今回は簡単なサンプルになりますが変数とIFを使用して一括で条件判定をするというプログラムを作成しました。

今回は【1】と【2】にしましたが、たとえば条件を80点以上なら○以下なら×などの条件にするなどによってさまざまな用途に使うことが可能になります。

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link