データの一括判定【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を勉強していくのなら必ず必要になってくるのはこの繰り返し処理です。初めての方には回数を自分で決めることができる【For〜Next】がおすすめですので今日は【For〜Next】で繰り返し処理を記述していきます。まずは基本の使い方を見ていきましょう。繰り返し処理の基本的な使い方【For〜Next】Sub sample()Dim 変数名 As LongFor 変数名= スタート値To ゴール値〜繰り返す処理〜Next 変数名End Subスタート値とゴール値に任意の数値を入れて処理をすることができ...

E-VBA

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

条件分岐【IFステートメント】プログラミングの基本といっても過言ではないこの条件分岐、【もしも〇〇だった場合〇〇を実行】という条件によって処理を変えるときに必要になるのがIFステートメント。IFステートメントの書式IFの書式には4つありすべての書式がよく使うので一通り覚えておくといいでしょう。書式1Sub sample()i = 1'変数iが1だったら〇If i = 1 Then MsgBox "〇"End Sub書式2Sub sample()i = 1If i = 1 Then'変数iが1だったら〇MsgBox "〇"End IfEnd Sub書式3Sub sample()i = 1If i = 1 ...

E-VBA

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

データのある最終行を取得する方法 データのある最終行を取得する方法もしVBAでデータを登録していくシステムを作りたいと思った場合、データがある最終行を取得してその下にデータを登録していくというプログラムが必要になってきます。実際にこのシートで試していきましょう。最終行を取得するコードではさっそく最終行を取得するコードをご紹介します。Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp)※このコードはこれからVBAを使う人にとっては暗記必須ですので必ず覚えてください。解説cells(Rows.count,1)...

サンプルコード

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