728x90
반올림하여 %로 결과를 알고 싶어서 찾아보니 역시나 엑셀에서 기본 제공하는 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
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 병합된 셀에서 원하는 데이터 찾아서 가져오기 (0) | 2015.06.22 |
|---|---|
| [VBA기초] 현재 폴더명, 상위폴더명 표시하기 (0) | 2015.06.22 |
| [VBA기초] GetOpenFilename (1) | 2015.06.13 |
| Error Trapping with Visual Basic for Applications (0) | 2015.06.09 |
| [VBA기초] 날짜 표시 (0) | 2015.06.06 |
Link2Me