[기초방] VBA 100제 #34 [ 상위5그룹 합계 ]

Sub 기초방34()

    Dim rngall As Range: Set rngall = [c4].CurrentRegion
    Dim rngX As Range
    Dim i&, j&, hSum&, Cnt&: Cnt = rngall.Cells.Count
    Dim vtemp
    
    
    Sheets("문제").[c4].CurrentRegion.Copy [c4]      '= 문제복사
    
    
    For i = 1 To Cnt - 1                             '= 버블정렬 / 기초방 34-1 문제 해법
    
        For j = i To Cnt
        
            If rngall(i) > rngall(j) Then
            
                vtemp = rngall(i)
                rngall(i) = rngall(j)
                rngall(j) = vtemp
                
            End If
        
        Next j
        
    
    Next i
    
    For i = 4 To 0 Step -1                           '= 상위 5개의 합을 구해라
    
        hSum = hSum + rngall(Cnt - i)                '= 기초방 34번문제해법
    
    Next i

    [j5] = hSum: MsgBox "완료하였습니다."

End Sub

기초방#34(HAJA).xlsm

0.03MB