라이브 VBA 잘 설명해주셔서 숫자 단위 표현 수정했어요

BpsConversion 함수는 일괄적으로 단위를 똑같이 표현할 때 쓰구요.

셀 숫자 내용 : 1000000 > 1M

100000 > 0.1M

BpsConversion2 함수는 숫자에 따라서 자동으로 단위가 표현됩니다.

셀 숫자 내용 : 1000000 > 1M

100000 > 100K

라이브에서 많은 도움 받았습니다.

감사합니다!!

Function BpsConversion(Rng, Unit As String)
'=vlookup(셀,범위,열번호...)
'=BpsConversion(셀,단위)
Dim Val As String

Select Case Unit
Case "K"
Val = Rng.Value / 1000 & "K"
Case "M"
Val = Rng.Value / 1000 / 1000 & "M"
Case "G"
Val = Rng.Value / 1000 / 1000 / 1000 & "G"
End Select

BpsConversion = Val

End Function

Function BpsConversion2(Rng)
'=BpsConversion2(셀)
Dim Val As String

If Rng.Value >= 1000000000 Then
Val = Rng.Value / 1000000000 & "G"

ElseIf Rng.Value >= 1000000 Then
Val = Rng.Value / 1000000 & "M"

ElseIf Rng.Value >= 1000 Then
Val = Rng.Value / 1000 & "K"

ElseIf Rng.Value >= 0 Then
Val = Rng.Value

End If

BpsConversion2 = Val

End Function