エクセルVBA（マクロ）講座③条件分岐(ヽ´ω`)｜不動産・一戸建て・マンション・土地ならハウスドゥ 塩尻

こんにちは！ハウスドゥ！塩尻店の井戸川です。

 

今日は覚えるとお仕事がちょっと楽になる、エクセルのVBA（マクロ）について紹介しようと思います٩(๑òωó๑)۶

エクセルを使っていると、関数だけじゃ処理できないことって出てきますよね(ヽ´ω`)

そんなときに便利なのが、VBAという機能です(・∀・)

条件分岐は、エクセルのIF関数と殆ど同じって考えてオッケーかもです(´ε｀ )

固定費or変動費の列に、固定費か変動費かをブチ込むコードです！

項目のところを参照し、『家賃』か『水道光熱費』だった場合は『固定費』、

それ以外だった場合は『変動費』がセルにブチ込まれます(´ε｀ )

 

---------------------------

Sub test()

 

Dim i

For i = 2 To 5
  If Cells(i, 1) = "家賃" Or Cells(i, 1) = "水道光熱費" Then
    Cells(i, 3) = "固定費"
  Else
    Cells(i, 3) = "変動費"
  End If
Next i
    
End Sub
----------------------------

 

一行ずつ説明していきますね(ヽ´ω`)

Dim i 

 変数 i を定義します。

 

For i = 2 To 5

 前回出てきた繰り返し処理です。今回は2行目から処理を行いたいので初期値を2にしました。

 i が2からカウントアップされ、5になるまでFotとNext間の処理が繰り返されます(´ε｀ )

If Cells(i, 1) = "家賃" Or Cells(i, 1) = "水道光熱費" Then

 (If)もし、(Cells(i,1) = )の中身が、家賃 (Or) 水道光熱費なら (Then)次の処理を行います。

 エクセルのIF関数と殆ど同じですね(´ε｀ )

Cells(i, 3) = "固定費"

 変数 i 行目の3列目に、文字列"固定費"をブチ込みます(ﾟ∀ﾟ)

Else

 もし、IFの条件に合致しなかった場合、次の処理を行います。

Cells(i, 3) = "変動費"

 変数 i 行目3列目に、文字列"変動費"をブチ込みます(´ε｀ )

 

End If

 条件分岐はここまでです(ヽ´ω`)

Next i 
 繰り返し処理のFor に戻ります！

 

実行結果はこんな感じになります(ヽ´ω`)

 

このくらいならまだまだエクセルの関数を使ったほうが早いですよね(´ε｀ )

でも、『変数』『繰り返し処理』『条件分岐』この3つを覚え、

組み合わせることで、もっと複雑な処理も出来ちゃうようになります(ﾟ∀ﾟ)

 

次回は、少し実践的なことを書きたいと思います(ヽ´ω`)