CÔNG THỨC ĐỌC SỐ TIỀN BẰNG CHỮ TRONG EXCEL
Lập công thức số tiền bằng chữ trong Excel với VBE, phương pháp tạo hàm đổi từ dạng số thanh lịch chữ, phương pháp lưu file Excel có hàm SpellNumber và các nhược điểm rất cần phải biết.
Bạn đang xem: Công thức đọc số tiền bằng chữ trong excel
Trong luật pháp Excel không có hàm hay công dụng mặc định nào có thể giúp chúng ta chuyển tự dạng số sang chữ. Vậy làm bí quyết nào để rất có thể lập phương pháp số tiền bằng văn bản trong Excel? Để hoàn toàn có thể trả lời được câu hỏi này hãy cùng cửa hàng chúng tôi tìm hiểu bài viết dưới đấy.
Có lập phương pháp số tiền bằng chữ trong Excel được không?
Câu trả lời cho thắc mắc này là “Có” với “Không”. Không ở đây có nghĩa là không có hàm hay chức năng mặc định làm sao trong cơ chế Excel thực hiện được việc đổi từ số thanh lịch chữ. Còn “Có” thì tức là lập công thức số tiền bằng chữ trong Excel là điều có thể, và để triển khai được thì bọn họ sẽ đề xuất sử dụng ngữ điệu VBD để tạo thành hàm để đổi khác từ số sang chữ.
Có nên mọi tín đồ nghĩ rằng đây là một việc rất khó?. Đúng vậy, bài toán này tương đối khó đối với người nào không nối tiếp về kiến thức lập trình. Nhưng các bạn đừng vượt lo lắng, sau đây của chúng tôi chỉ gợi ý cho các bạn cách chế tạo ra hàm để đổi số quý phái chữ sống trong Excel thôi. Còn bài toán sử dụng ngôn từ lập trình nhằm viết code thì công ty chúng tôi đã viết sẵn cho chúng ta rồi. Hãy bài viết liên quan nội dung bên dưới để thực hiện nhé.
Lập bí quyết số tiền bằng chữ trong Excel cùng với VBE
Dùng ngôn từ VBA để có thể tạo ra một hàm thực hiện việc đổi từ dạng số quý phái chữ ở toàn bộ các phiên phiên bản Microsoft Excel (Khả năng có thể tương ưng ý ở phiên bản mới mang lại phiên bản cũ là câu hỏi khó hoàn toàn có thể thực hiện, vì chưng vậy các bạn phải lưu ý lúc gửi file Excel tới tín đồ khác).
Những bước tạo lập cách làm số tiền bằng chữ trong Excel sẽ tiến hành thao tác tiện lợi hơn nhờ vào sự giúp sức của VBE:
Bước 1: Mở VBE (Visual Basic Editor) bằng cách nhần tổ hợp phím Alt + F11.
Các bạn có thể mở Visual Basic theo cách sau: nhấn vào tab Developer nằm tại thanh Menu. Nếu như tab Developer không có trên thanh menu thì các bạn làm quá trình như sau: Vào File => lựa chọn Option => chọn vào Customize Ribbon => tại Main Tabs nhấp vào Developer => tiếp nối nhấn OK.
Bước 2: Sau khi bạn đã mở VBA tại đây các bạn nhấn chọn tab Insert => chọn vào Module.
Bước 3: Tiếp theo chúng ta hãy copy đoạn code ở dưới rồi ốp lại trong Module vừa mở. Đoạn code auto sẽ tiến hành việc đổi dạng số quý phái chữ sinh sống trong Excel.
Option Explicit ‘Main Function Function SpellNumber(ByVal MyNumber) Dim VND, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = ” Ngan “ Place(3) = ” Trieu “ Place(4) = ” Ti “ Place(5) = ” Ngin Ti “
MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, “.”) If DecimalPlace > 0 Then MyNumber = Trim(Left(MyNumber, DecimalPlace – 1)) kết thúc If Count = 1 bởi While MyNumber “” Temp = GetHundreds(Right(MyNumber, 3)) If Temp “” Then VND = Temp & Place(Count) và VND If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) – 3) Else MyNumber = “” end If Count = Count + 1 Loop Select Case VND Case “” VND = “Khong Dong” Case “One” VND = “Mot Dong” Case Else VND = VND và ” Dong” kết thúc Select SpellNumber = VND over Function
Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right(“000” & MyNumber, 3) ‘ Convert the hundreds place. If Mid(MyNumber, 1, 1) “0” Then Result = GetDigit(Mid(MyNumber, 1, 1)) & ” Tram “ end If ‘ Convert the tens và ones place. If Mid(MyNumber, 2, 1) “0” Then Result = Result và GetTens(Mid(MyNumber, 2)) Else Result = Result và GetDigit(Mid(MyNumber, 3)) end If GetHundreds = Result kết thúc Function
Function GetTens(TensText) Dim Result As String Result = “” ‘ Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ‘ If value between 10-19… Select Case Val(TensText) Case 10: Result = “Muoi” Case 11: Result = “Muoi Mot” Case 12: Result = “Muoi Hai” Case 13: Result = “Muoi Ba” Case 14: Result = “Muoi Bon” Case 15: Result = “Muoi Nam” Case 16: Result = “Muoi Sau” Case 17: Result = “Muoi Bay” Case 18: Result = “Muoi Tam” Case 19: Result = “Muoi Chin” Case Else kết thúc Select
Else ‘ If value between 20-99… Select Case Val(Left(TensText, 1)) Case 2: Result = “Hai Muoi “ Case 3: Result = “Ba Muoi “ Case 4: Result = “Bon Muoi “ Case 5: Result = “Nam Muoi “ Case 6: Result = “Sau Muoi “ Case 7: Result = “Bay Muoi “ Case 8: Result = “Tam Muoi “ Case 9: Result = “Chin Muoi “ Case Else kết thúc Select Result = Result & GetDigit _ (Right(TensText, 1)) ‘ Retrieve ones place. Over If GetTens = Result end Function
Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = “Mot” Case 2: GetDigit = “Hai” Case 3: GetDigit = “Ba” Case 4: GetDigit = “Bon” Case 5: GetDigit = “Nam” Case 6: GetDigit = “Sau” Case 7: GetDigit = “Bay” Case 8: GetDigit = “Tam” Case 9: GetDigit = “Chin” Case Else: GetDigit = “” kết thúc Select kết thúc Function
Bước 4: kế tiếp quay về Excel bởi phím tắt Alt + Q. Và lúc này các các bạn đã trả tất việc tạo hàm SpellNumber() với bây giờ chúng ta cũng có thể dùng để đổi số sang chữ.
Chú ý: Hàm này chỉ rất có thể sử dụng sinh hoạt Sheet mà các bạn đã mua đoạn code. Nếu như như bạn muốn sử dụng ở bên Sheet không giống thì bắt buộc làm như sau:
Mở Sheet bạn có nhu cầu thực hiện tiếp đến nhấn vào Developer => Visual Basic => Insert => Module => Dán đoạn code cửa ngõ số Module.
Cách cần sử dụng hàm để đổi từ bỏ số sang trọng chữ vào Excel
Tại trang tính mà các bạn vừa bắt đầu tạo hàm SpellNumber mặt trên, thì bạn đã có thể dùng ngay hàm này để đổi số quý phái chữ nhưng mà chẳng rất cần được làm thêm công việc nào nữa.
Xem thêm: Những Nhân Vật Trong Hạnh Phúc Của Một Tang Gia, Hạnh Phúc Của Một Tang Gia (Trích Số Đỏ
Công thức được thực hiện như sau: =SpellNumber(Vị trí ô đề xuất thực hiện)
Các bạn có thể tự nhập những số buộc phải đổi quý phái chữ bằng cách thủ công hoặc là các bạn nhập địa chỉ ô cần tiến hành việc chuyển đổi từ số sang chữ. “Ví dụ như: =SpellNumber(A2)“.
Mời các bạn theo dõi giải pháp dùng hàm để đổi từ bỏ số thanh lịch chữ vào Excel qua những hình ảnh về vấn đề chuyển số chi phí nộp trường đoản cú dạng số quý phái dạng chữ.
Tại ví dụ như này dữ liệu cần đổi khác đã tất cả sẵn sinh hoạt ô B7, vày thế họ sẽ nhập địa điểm ô vào trong phương pháp thay vì yêu cầu nhập từng chứ số. Công thức được viết như sau: Ở ô B8 chúng ta hãy nhập =SpellNumber(B7).
Hướng dẫn lưu tệp tin Excel tất cả hàm SpellNumber
File Excel sẽ không còn lưu được nếu như như trong file tất cả chứa hàm macro. Nếu khách hàng nhấn vào File => chọn Save. Thì sẽ sở hữu được thông báo nhắc các bạn rằng dự án VB (Visual Basic) sẽ tiến hành mở ra. Tiếp đến tại cửa sổ thông tin hãy nhấp vào NO.
Nhưng nhằm lưu tệp tin thì các bạn phải lưu file Excel sinh sống dạng thức .xlsm (Marco Excel) để lưu lại file của chúng ta ở dạng thức hiện tại tại. Công việc để lưu thực hiện như sau:
Bước 1: nhấn vào tab File => chọn Save as.
Bước 2: bấm vào mục Save as type rồi chọn vào Excel Macro-Enabled Workbook.
Bước 3: Sau đó chúng ta nhấn vào Save để triển khai việc lưu file Excel có hàm SpellNumber nghỉ ngơi trong file.
Nhược điểm nên biết lập bí quyết số tiền bằng chữ trong Excel
Đầu tiên, các bạn cần biết VBA dùng để sửa đổi các đoạn code theo ý muốn của bao gồm mình. Và chúng ta cần dán các đoạn code vào vào Sheet mà bạn muốn dùng hàm để triển khai việc đổi số thanh lịch chữ trong Excel. Còn không thì bọn họ sẽ yêu cầu phải tạo thành một file Excel new với macro và thông số kỹ thuật cho Excel để có thể tải file này mỗi lúc bắt đầu.
Nhược điểm của bài toán dùng macro đó chính là nếu như bạn muốn gửi tệp tin Excel này cho một người nào đó, thì người đó sẽ không thể bắt gặp được văn bản, ko kể khi file Excel được tích vừa lòng Macro thì bạn nhận tệp tin mới rất có thể nhìn tìm ra văn bản.
Ngay cả khi Macro đã tích hợp sẵn thì tín đồ nhận tệp tin mà chúng ta đã gửi sẽ nhận ra một cảnh báo là tất cả Macro nghỉ ngơi trong tệp tin Excel.
Xem thêm: Lý Thuyết Diện Tích Tứ Giác Có 2 Đường Chéo Vuông Góc Hay, Chi Tiết Hay Nhất
Như vậy bài viết bên bên trên đã share cho các bạn toàn cỗ những hướng dẫn sản xuất lập công thức số tiền bằng chữ trong Excel bằng phương pháp tạo hàm SpellNumber để đổi số thanh lịch chữ trong Excel. Đôi khi trong học tập và có tác dụng việc họ lên quăng quật ra công sức và thời gian để thay đổi lại được năng suất làm cho việc tốt hơn cùng tiết kiệm được nhiều thời gian hơn khi mà chúng ta phải giải pháp xử lý file Excel có chứa đựng nhiều dữ liệu.
Nếu như chúng ta thấy bài viết về lập công thức số tiền bằng văn bản trong Excel cấp tốc mà chuẩn của shop chúng tôi hay và hữu dụng thì hãy share tới những người dân xung quanh nhằm mọi bạn cùng xem thêm và thực hiện. Cảm ơn chúng ta đã luôn luôn ủng hộ cùng theo dõi bọn chúng tôi. Hẹn chạm chán lại các bạn ở những nội dung bài viết tiếp theo nhé!
