坂道グループ別、平均身長を求めるVBAコード

坂道グループ別、平均身長を求めるVBAコードを公開

はじめに

坂道グループ別の平均身長を求めるVBAコードを実装しました。

ソースコード

ソースコードはこちらです。

Sub saka_heikin()
    '平均身長変数
    Dim nogizaka_avg As Double
    Dim hinatazaka_avg As Double
    Dim sakurazaka_avg As Double
    '人数変数
    Dim nogizaka_count As Integer
    Dim hinatazaka_count As Integer
    Dim sakurazaka_count As Integer
    nogizaka_count = 0
    hinatazaka_count = 0
    sakurazaka_count = 0
    '各グループ別身長の合計
    Dim nogizaka_tall As Integer
    Dim hinatazaka_tall As Integer
    Dim sakurazaka_tall As Integer
    nogizaka_tall = 0
    hinatazaka_tall = 0
    sakurazaka_tall = 0
    'エクセルの最終行を取得
    Dim max_row
    max_row = Cells(Rows.Count, 3).End(xlUp).Row
    Dim i As Integer
    'データ開始行変数
    Dim start_row As Integer
    start_row = 3
    
    '1行ごとにデータを読み込み、グループが「乃木坂46」、「日向坂46」、「櫻坂46」の身長を足す
    For i = start_row To max_row
        If Cells(i, 3).Value = "乃木坂46" Then
            nogizaka_tall = Cells(i, 4).Value + nogizaka_tall
            nogizaka_count = nogizaka_count + 1
        ElseIf Cells(i, 3).Value = "日向坂46" Then
            hinatazaka_tall = Cells(i, 4).Value + hinatazaka_tall
            hinatazaka_count = hinatazaka_count + 1
        ElseIf Cells(i, 3).Value = "櫻坂46" Then
            sakurazaka_tall = Cells(i, 4).Value + sakurazaka_tall
            sakurazaka_count = sakurazaka_count + 1
        End If
        
    Next i
    '各グループの平均身長を小数点以下第一位まで求める
    nogizaka_avg = Round(nogizaka_tall / nogizaka_count, 1)
    Cells(5, 7).Value = nogizaka_avg
    hinatazaka_avg = Round(hinatazaka_tall / hinatazaka_count, 1)
    Cells(6, 7).Value = hinatazaka_avg
    sakurazaka_avg = Round(sakurazaka_tall / sakurazaka_count, 1)
    Cells(7, 7).Value = sakurazaka_avg
End Sub

結果

結果は下記の通りです。

最後に

坂道グループに興味ある方は何かしら作ってみてはいかがでしょうか