[VBA기초] Round 함수

반올림하여 %로 결과를 알고 싶어서 찾아보니 역시나 엑셀에서 기본 제공하는 Application.Round(수식,자리수)를 이용하면 쉽게 해결할 수 있다. 

VBA 로 복잡한 수식을 코딩할 필요가 전혀 없다.

메시지 팝업창 하나에 여러줄의 내용을 표시하고 싶은 것도 표기할 수 있는 걸 적어둔다.

Sub 개수파악()
    Dim rngC, rngAll As Range
    Dim Msg As String
   
    Application.ScreenUpdating = False  
    Set rngAll = Range([A2], Cells(Rows.Count, "A").End(3))
    Msg = "Move 수 = " & Application.CountIf(rngAll, "*원본") & vbNewLine
    Msg = Msg & "Total 수 = " & rngAll.Rows.Count & vbNewLine
    Msg = Msg & Application.Round(Application.CountIf(rngAll, "*원본") * 100 / rngAll.Rows.Count, 2) & "%"
    MsgBox Msg
End Sub