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

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

HYATOさんの投稿

(投稿ID: 5284)

1回目は解説を見ながら何とか完成することができましたが、今回は何も見ず、思い浮かんだやり方でやってみました。
わかりにくいコードですが、一応、動きました （＾＾）　
Sub test3()
    Dim i As Long
    Dim j As Long
    Dim Tmax_R As Long '残業時間の一番多いセルの行
    Dim Tmax_C As Long '残業時間の一番多いセルの列
    
    Range("K4:M4").ClearContents ’入力部分を空白状態にする。
    
    Tmax_R = 6 '初期値６（行目）に設定する。
    Tmax_C = 1 '初期値１（1月）に設定する。
    
    For j = 1 To 6
        For i = 6 To 33
            If Range("C" & i).Offset(0, j - 1).Value > Range("C" & Tmax_R).Offset(0, j - 1).Value Then
                Tmax_R = i
                Tmax_C = j
            End If
        Next
    Next
    
    Range("K4").Value = Range("B" & Tmax_R).Value
    Range("L4").Value = Range("C5").Offset(0, Tmax_C - 1).Value
    Range("M4").Value = Range("C" & Tmax_R).Offset(0, Tmax_C - 1).Value
End Sub

2022/06/21 22:19