spellnumber 썸네일형 리스트형 spellnumber_usd 사용자 적용함수 매크로 엑셀에서 alt+f11 누르고 아래 모듈로 추가하면 됨 '**************** ' Main Function * '**************** Function SpellNumber_USD(ByVal MyNumber) Dim DOLLARS, CENTS, Temp Dim DecimalPlace, Count ReDim place(9) As String place(2) = " THOUSAND " place(3) = " MILLION " place(4) = " BILLION " place(5) = " TRILLION " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if NONE... 더보기 이전 1 다음