Hiển thị Số là từ trong Excel - núm vú

Nếu bạn cần phải hiển thị một số được viết ra dưới dạng văn bản, có thể bạn đã phát hiện ra rằng Excel không có chức năng như vậy. Khi Excel không phân phối được, thường có thể khắc phục sự thiếu hụt bằng cách sử dụng VBA. Dưới đây là một hàm VBA, có tên SPELLDOLLARS, mà bạn có thể sử dụng trong công thức bảng tính.

Ví dụ về Excel

Dưới đây là một số ví dụ về SPELLDOLLARS.

Mã VBA

Để sử dụng mã này, nhấn Alt + F11 để kích hoạt Visual Basic Editor. Sau đó chọn Insert → Module để chèn một mô-đun mới VBA. Sao chép mã và dán mã vào mô-đun mới.

Chức năng SPELLDOLLARS (cell) Như biến thể 'Trả về một giá trị, được đánh vần bằng các từ Dim Dollars Như String, Cents Như String Dim TextLen As Long, Pos Như Long Dim Tem Như Như Dài Ihundreds Như Long, iTens Như Long, iOnes Như Các Dim Long Như Các biến thể, Teens như Variant, Hàng chục Là Các biến đổi của Dim Units (2 đến 5) Như String Dim bHit Như Boolean, NegFlag Như Boolean 'Là một tế bào không phải số hoặc rỗng? Nếu không IsNumeric (cell) Hoặc cell = "" Sau đó SPELLDOLLARS = CVErr (xlErrValue) Thoát Chức năng Kết thúc Nếu 'Là nó tiêu cực? Nếu cell = Pos - 2 Sau đó bHit = False Nếu TextLen> = Pos Sau đó iHundreds = Asc (Giữa $ (Dollars, TextLen - Pos + 1, 1)) - 48 Nếu iHundreds> 0 Temp = Temp & "" & Ones (iHundreds) & "Hundred" bHit = True Cuối Nếu kết thúc If iTens = 0 iOnes = 0 Nếu TextLen> = Pos - 1 Sau đó iTens = Asc (Mid $ (Dollars, TextLen - Pos + 2, 1)) - 48 Kết thúc Nếu Nếu TextLen> = Pos - 2 Sau đó iOnes = Asc (Mid $ (Dollars, TextLen - Pos + 3, 1)) - 48 Cuối Nếu Nếu iTens = 1 Sau đó Temp = Temp & "" & Teens (iOnes) bHit = True Else Nếu iTens> = 2 Then Temp = Temp & "" & Tens (iTens) bHit = True End Nếu Nếu iOnes> 0 Sau đó Nếu iTens> = 2 Then Temp = Temp & "-" Else Temp = Temp & "" End If Temp = Temp & Ones (iOnes) bHit = True Cuối Nếu Cuối Nếu Nếu bHit Và Pos > 3 Sau đó Temp = Temp & "" & Units (Pos 3) Kết thúc Nếu Kết thúc Nếu Tiếp theo Pos SPELLDOLLARS = Trim (Temp) & "và" & Cents Nếu NegFlag Sau đó SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Chức năng Kết thúc