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

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




【VBA】順位を指定した文字で表示するマクロを作成してみました。




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

 

今回はVBAで、順位を指定した文字で表示するマクロを作成してみました。

 

<元データ>

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

 

E列に順位を求めて、その数値をもとに「優勝」「準優勝」の文字を表示させます。

 

<マクロ実行後>

f:id:gorilla-strong:20200418050712p: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("E" & i) = WorksheetFunction.Rank(ws.Range("D" & i), ws.Range("D3:D" & lastrow))

ws.Range("F" & i) = Choose(ws.Range("E" & i), "優勝", "準優勝")


Next
End Sub

 

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