ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】偶数か奇数かで処理を分けるマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、偶数か奇数かで処理を分けるマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200419025001p:plain

 

D列にIsEven関数で偶数か奇数かを判定し、その値をもとにC列にチーム名を入力します。

 

<マクロ実行後>

f:id:gorilla-strong:20200419025258p:plain

 

動作としては以上です。

 

ソースコード 

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lastrow

ws.Range("D" & i) = WorksheetFunction.IsEven(ws.Range("B" & i))


If ws.Range("D" & i) = False Then
    ws.Range("C" & i) = "紅組"
ElseIf ws.Range("D" & i) = True Then
    ws.Range("C" & i) = "白組"
End If


Next

End Sub

 

以上、ゴリラストロングでした。