投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ ベーシック
残業時間がいちばん多い従業員の情報を出力する。Max関数、Min関数より便利なマクロ

金子　伊智郎さんの投稿

(投稿ID: 3449)

小川さん　お世話になっています。
時間を見つけてフォローアップを進めております。
問題[3]について列を移動していく際にどうしようか考えておりましたが
これまでの各動画のコメント欄でoffsetを使用している方がいらっしゃったので利用してみました。
Sub zangyo_syukei2()
    Dim gyo '行番号
    Dim col_num '列オフセット
    Dim target_month '該当月
    Dim saikou_name '最高値データの名前
    Dim saikou_month '最高値データの月
    Dim saikou_zangyo '最高値データの値
    Const retsu_start = "C" '開始列
    Const retsu_name = "B" '名前列
    Const month_gyo = "5" '月タイトル行
    
    '1月から６月まで列を移動しながらデータ走査
    For col_num = 0 To 5
        '該当月をセット
        target_month = Range(retsu_start & month_gyo).Offset(0, col_num).Value
        '行方向にデータ走査
        For gyo = 6 To 33
            If Range(retsu_start & gyo).Offset(0, col_num).Value > saikou_zangyo Then
                '最高値データが更新される毎に　名前、月、残業時間を更新
                saikou_name = Range(retsu_name & gyo).Value
                saikou_month = target_month
                saikou_zangyo = Range(retsu_start & gyo).Offset(0, col_num).Value
            End If
        Next
    Next
    
    Range("K4") = saikou_name
    Range("L4") = saikou_month
    Range("M4") = saikou_zangyo
End Sub

2017/09/25 23:11