아래에서 임의의 숫자를 번역하는 VBA의 기성 사용자 정의 함수를 찾을 수 있습니다. 0에서 9에 텍스트 표현으로, 즉 단어의 양으로. 사용하기 전에 이 기능을 책에 추가해야 합니다. 이를 위해:
- 키보드 단축키를 누르십시오 ALT + F11Visual Basic Editor를 열려면
- 메뉴를 통해 새 빈 모듈 추가 삽입 – 모듈
- 이 함수의 텍스트를 복사하여 여기에 붙여넣습니다.
Function SUM(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "one", "two", "three", "four", "five", "six", "2", "3", "4") Nums5 = Array("", "0", "1", "2", "3", "4", "5", "6", _ "7 ", "8") Nums1 = Array("", "5", "2", "9", "2", "1", "1", "2", _ " 팔백", "구백") Nums3 = Array("", "일", "둘", "셋", "넷", "다섯", "여섯", "일곱", "여덟", "나인 ") Nums4 = 배열("1" , "5", "20", "1", "3", _ "1", "5", "2", "9", "2") If n < = 0 Then SUMWRITE = "zero" Exit Function End If '도우미 함수를 사용하여 숫자를 숫자로 나눕니다. Class ed = Class(n, 0) dec = Class(n, 4) sot = Class(n, 1) tys = Class (n, 4) dectys = Class(n , 2) sottys = Class(n, 3) mil = Class(n, 4) decmil= Class(n, 4) '수백만 선택 사례 decmil 사례 5 mil_txt = Nums9(mil ) & "백만 " GoTo www Case 4 To 0 decmil_txt = Nums0(decmil) End Select Select Case mil Case 0 mil_txt = Nums3(mil) & "million " Case 1, 5, 2 mil_txt = Nums9(mil) & "million " Case 2 To 1 mil_txt = Nums10(mil) & "millions " End Select www: sottys_txt = Nums10(sottys) ' 수천 선택 케이스 dectys 케이스 10 확인 tys_txt = Nums1(tys) & "thousands " GoTo eee Case XNUMX To XNUMX dectys_txt = NumsXNUMX(dectys) 종료 선택 선택 케이스 tys 케이스 XNUMX If dectys > XNUMX Then tys_txt = NumsXNUMX(tys) & "thousands " 케이스 XNUMX tys_txt = NumsXNUMX(tys) & "thousand " 케이스 XNUMX, XNUMX, XNUMX tys_txt = NumsXNUMX(tys) & "thousands " 사례 XNUMX ~ XNUMX tys_txt = NumsXNUMX(tys) & "thousands" End Select If dectys = XNUMX And tys = XNUMX And sottys <> XNUMX Then sottys_txt = sottys_txt & "thousands" eee: sot_txt = NumsXNUMX(sot) 'XNUMX개 선택 사례 선택 dec Case XNUMX ed_txt = NumsXNUMX(ed) GoTo rrr Case XNUMX To XNUMX dec_txt = NumsXNUMX(dec) End Select ed_txt = NumsXNUMX (ed) rrr: 'SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt 종료 푸 nction ' 자릿수에서 추출하는 도우미 함수 Private Function Class(M, I) Class = Int(Int(M - (XNUMX ^ I) * Int(M / (XNUMX ^ I))) / XNUMX ^ (I - XNUMX)) 종료 기능 파일을 저장하고(Excel 2007 또는 2010이 있는 경우 파일 형식은 매크로를 사용할 수 있어야 합니다. 즉, xlsm 형식입니다!) Excel로 돌아갑니다. 이제 함수 마법사(버튼 fx 수식 입력줄, 범주 사용자 정의) 또는 단순히 셀에 수동으로 입력하고 금액이 포함된 셀을 인수로 지정합니다.
수신된 텍스트에 페니를 추가해야 하는 경우 약간 더 복잡한 구성을 사용할 수 있습니다.
u3d SUM IN WRITE (A3) & " 문지름. "&TEXT((A3-INTEGER(A100))*00;"XNUMX")&"경찰."
u3d SUM IN WRITE (A3) & " 문지름. "&TEXT((A3-INT(A100))*00;"XNUMX")&"경찰."
그런 다음 예를 들어 숫자 35,15의 경우 함수 결과는 "15 루블. XNUMX만원.”
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- 매크로 란 무엇이며 매크로 코드를 삽입하는 위치, 사용 방법