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」そして「データのある最終行を取得する方法」を使用して作成していきます。
サンプルコード
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以外についてのブログはこちら↓
https://yb-log.com/■Twitterフォロー
Follow @taka_pc1027■YouTubeチャンネル登録
コメントを残す