차례:
비디오: ExcelSoCool 엑셀강의 #61 문자로 인식된 숫자를 숫자로 변환하기 2024
텍스트로 작성된 숫자를 표시해야하는 경우 Excel에서 이러한 기능을 제공하지 않는다는 것을 발견했을 것입니다. Excel이 제공되지 않으면 VBA를 사용하여 결함을 수정할 수 있습니다. 다음은 워크 시트 수식에 사용할 수있는 SPELLDOLLARS라는 VBA 함수입니다.
Excel 예제
다음은 스펠 랜드의 예입니다.
VBA 코드
이 코드를 사용하려면 Alt + F11 키를 눌러 Visual Basic Editor를 활성화합니다. 그런 다음 삽입 → 모듈을 선택하여 새 VBA 모듈을 삽입하십시오. 코드를 복사하여 새 모듈에 붙여 넣습니다.
함수 SPELLDOLLARS (셀) Variant로 단어로 쓰여진 값을 반환합니다. Dim Dollars As String, Cents As String Dim TextLen As Long으로 긴 Dim Temp을 String으로 희미하게합니다. iHundreds를 길게, iTens As Long 긴 희생자, 변형 된 십대, 변형 된 십대, 희미한 수위 (2에서 5) 문자열로 감추기 bHit 부울로 NegFlag 부울 '비 숫자 또는 빈 셀입니까? IsNumeric (셀) 또는 cell = ""이면 SPELLDOLLARS = CVErr (xlErrValue) Exit Function End If '음수입니까? If cell = 15 if SpellDOLLARS = CVErr (xlErrNum) Exit Function End If '센트 부분을 Cents = 오른쪽 (Dollars, 2) & "/ 100 Dollars"면 cell = Pos - 2 Then bHit = False If TextLen> = Pos Then iHundreds = 50 If iHundreds> 0 Then Temp = Temp & ""& Ones (iHundreds) & "Hundred"bHit = True End If If End If iTens = 0 iOnes (중간 $ (달러, TextLen - Pos + 1) = 0이면 TextLen> = Pos - 1 Then iTens = Asc (중간 $ (달러, TextLen - Pos + 2, 1)) - 48 End If If TextLen> = Pos - 2 그렇다면 iOnes = Asc (Mid $ (Dollars, TextLen - If End If If iTens = 1 그렇다면 Temp = Temp & ""& Teens (iOnes) bHit = True이면 iTens> = 2 Then Temp = Temp & ""& Tens (iTens) bHit = True End if IfOnes> 0 Then If iTens> = 2 Then Temp = Temp & "-"Else Temp = Temp & ""끝내기 Temp = Temp & Ones (iOnes) bHit = True End If If If If bHit And Pos > 3 다음 Temp = Temp & ""& Units (Pos 3) End If 다음 순위 If SPELLDOLLARS = Trim (Temp) & "and"센트 If NegFlag Then SPELLDO LLARS = "("& SPELLDOLLARS & ")"최종 기능