Excel ko có chức năng hay hàm mang định gồm sẵn nào sẽ giúp chuyển số sang trọng dạng từ giờ đồng hồ Việt vào trang tính. Vậy tất cả cách nào nhằm lập phương pháp số tiền bằng chữ trong Excel không? cùng generalimex.com.vn đi tìm kiếm kiếm câu vấn đáp cho sự việc này trong nội dung bài viết dưới đây.

Bạn đang xem: Viết số tiền bằng chữ trong excel

*


Có phương pháp nào nhằm lập cách làm số tiền bằng văn bản trong Excel không?

Câu trả lời là không và có, không là không có bất kỳ hàm tất cả sẵn nào trong Excel hoàn toàn có thể thực hiện việc đổi số thành chữ trong Excel cả. Còn có ở phía trên là có thể lập công thức số tiền bằng văn bản trong Excel trải qua việc tự tạo thành một hàm thay đổi số thành chữ vào Excel với ngôn ngữ lập trình VBA (Visual Basic for Applications) và những công cầm được Microsoft tích hợp nhằm viết và chạy các đoạn mã được người dùng tạo ra này.

Bạn suy nghĩ rằng bọn chúng quá nặng nề để hoàn toàn có thể thực hiện tại được điều này. Điều sẽ là đúng đối với những người đo đắn và phát âm lập trình là gì. Nắm như trong giải đáp sau đây công ty chúng tôi sẽ hướng dẫn các bạn cách thêm hàm đổi số thành chữ trong Excel mà thôi, bài toán viết ra đoạn mã này vẫn được công ty chúng tôi tìm hiểu và chế tạo ra sẵn cho bạn. Theo dõi và quan sát tiếp phần sau đây để rất có thể thực hiện tại được điều này.

Lập bí quyết số tiền bằng văn bản trong Excel bằng VBE

Sử dụng VBA (Visual Basic for Application) để thêm hàm đổi số thành chữ vào Excel với ngẫu nhiên phiên phiên bản nào từ Excel 2003, 2010 hoặc mới hơn (khả năng cân xứng ngược từ phiên bản cao xuống phiên bạn dạng thấp hơn là ko thể, các bạn nên chú ý vấn đề này khi gởi tệp trang tính Excel của mình cho người khác).

Cách lập bí quyết số tiền bằng chữ trong Excel được tiến hành một cách tiện lợi nhờ sự hỗ trợ của VBE như sau:

1. áp dụng phím tắt Alt + F11 để mở Visual Basic Editor (VBE).

*

Bạn hoàn toàn có thể truy cập vào trình biên soạn thảo Visual Basic bằng phương pháp vào mục Developer trên thanh công cụ. Giả dụ thanh cơ chế không xuất hiện mục Developer này hoàn toàn có thể làm như sau: File > Options > Customize Ribbon > bên cột Main Tabs tích lựa chọn hộp đánh dấu Developer.

*

2. Trong cửa sổ hộp thoại VBA nhấp vào tab Insert > Module.

*

3. Xào nấu đoạn mã sau vào trong trình soạn thảo. Đoạn mã này sẽ auto hóa tác vụ thay đổi số thành chữ vào Excel đến trang tính của bạn.

Option Explicit‘Main FunctionFunction SpellNumber(ByVal MyNumber)Dim VND, TempDim DecimalPlace, CountReDim Place(9) As StringPlace(2) = ” Ngan “Place(3) = ” Trieu “Place(4) = ” Ti “Place(5) = ” Ngin Ti “

MyNumber = Trim(Str(MyNumber))DecimalPlace = InStr(MyNumber, “.”)If DecimalPlace > 0 ThenMyNumber = Trim(Left(MyNumber, DecimalPlace – 1))End IfCount = 1Do While MyNumber “”Temp = GetHundreds(Right(MyNumber, 3))If Temp “” Then VND = Temp và Place(Count) và VNDIf Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) – 3)ElseMyNumber = “”End IfCount = Count + 1LoopSelect Case VNDCase “”VND = “Khong Dong”Case “One”VND = “Mot Dong”Case ElseVND = VND và ” Dong”End SelectSpellNumber = VNDEnd Function

Function GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right(“000” & MyNumber, 3)‘ Convert the hundreds place.If Mid(MyNumber, 1, 1) “0” ThenResult = GetDigit(Mid(MyNumber, 1, 1)) và ” Tram “End If‘ Convert the tens và ones place.If Mid(MyNumber, 2, 1) “0” ThenResult = Result và GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd Function

Function GetTens(TensText)Dim Result As StringResult = “” ‘ 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 ElseEnd 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 ElseEnd SelectResult = Result và GetDigit _(Right(TensText, 1)) ‘ Retrieve ones place.End IfGetTens = ResultEnd 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 = “”End SelectEnd Function

*

4. Nhận Alt + Q để trở về trang tính Excel. Và lúc này hàm SpellNumber() đã chuẩn bị có trong công thức để sử dụng.

*

Lưu ý: công dụng này chỉ vận động cho sổ làm việc hiện tại. Để sử dụng tác dụng này trong một tệp tin Excel khác, bạn phải lặp lại quá trình để coppy và dán mã vào sổ thao tác đó.

Cách thực hiện hàm đổi số thành chữ trong Excel

Ngay trang tính các bạn mới vừa thêm hàm SpellNumber() ở trên vào vào VBA, chúng ta cũng có thể sử dụng được ngay hàm đổi số thành chữ SpellNumber() ngay nhưng mà không cần triển khai thêm một thao tác làm việc nào khác.

Công thức tổng quát là: =SpellNumber(số tiền nhập vào ở dạng số)

Bạn rất có thể nhập bằng tay thủ công số chi phí hoặc hoàn toàn có thể đưa giá chỉ trị là một trong ô tính đựng số tiền bạn có nhu cầu chuyển đổi “=SpellNumber(A1)“.

Xem thêm: Phần Mềm Hay Trên Android - Những Ứng Dụng Hay Nhất Cho Android

Xem cách thực hiện hàm thay đổi số thành chữ trong Excel thông qua ví dụ minh họa về vấn đề nhập liệu một phiếu thu tiền với thông tin bao gom là số tiền ở dạng cả số và chữ.

*

Thay vày nhập bằng tay thủ công ra chữ số tiền nộp vào ô B7 bạn rất có thể sử dụng hàm SpellNumber bằng cách nhập phương pháp sau vào ô B8 =SpellNumber(B7).

*

Cách lưu bảng tính Excel tất cả chứa hàm SpellNumber của bạn

Excel cần yếu lưu sổ thao tác làm việc với những hàm macro ở định dạng sổ có tác dụng việc không tồn tại macro chuẩn chỉnh (.xlsx). Nếu bạn bấm vào File > Save. Một hộp thoại nhắc nhở dự án VB sẽ mở ra. Nhấp vào No.

Bạn hoàn toàn có thể lưu tệp của bản thân dưới dạng tệp có hỗ trợ Macro Excel (.xlsm) để lưu lại tệp của người tiêu dùng ở format hiện tại.

1. Nhấp vào File > Save as.

2. Nhấp chuột trình 1-1 thả xuống Save as và lựa chọn Excel Macro-Enabled Workbook.

3. Dấn Save để gìn giữ tệp bảng tính Excel gồm chứa mã hàm SpellNumber.

*

Nhược điểm của lập công thức số tiền bằng văn bản trong Excel

Trước hết, bạn phải ghi nhận VBA để sửa đổi mã theo nhu cầu của bạn. Cần được dán mã cho mỗi sổ làm cho việc, nơi bạn có ý định áp dụng hàm thay đổi số thành chữ vào Excel. Ví như không, bạn sẽ cần tạo nên tệp mẫu mã với macro và định thông số kỹ thuật Excel để download tệp này các lần bắt đầu.

Bất lợi thiết yếu của việc áp dụng macro là nếu như bạn gửi sổ làm cho việc cho tất cả những người khác, người này sẽ không còn nhìn thấy văn phiên bản trừ lúc Macro được tích vừa lòng vào sổ làm cho việc. Và trong cả khi nó được tích hợp sẵn, họ sẽ nhận được chú ý rằng bao gồm Macro trong sổ làm cho việc.

*

Trên đây là bài viết hướng dẫn giải pháp lập bí quyết số tiền bằng văn bản trong Excel trải qua việc sản xuất hàm đổi số thành chữ trong Excel với tên là SpellNumber. Đôi khi bọn họ cần chi ra chút thời hạn và sức lực lao động để thay đổi lại hiệu suất làm việc được nâng cấp và tốn ít thời hạn hơn nếu như bạn đang phải làm việc trong một tệp Excel với tài liệu lớn.

Bạn rất có thể xem sang một số nội dung bài viết về mẹo nhỏ trên Microsoft Excel khác, góp bạn cải thiện kiến thức về những hàm hay thao tác làm việc sử dụng cấp tốc trên Excel.

Nếu thấy nội dung bài viết lập công thức số tiền bằng văn bản trong Excel này có ích hãy để lại lượt thích & share cũng như comment ở phần dưới nếu có bất kỳ thắc mắc đề xuất giải đáp như thế nào khác. Bạn đọc có thể theo dõi liên tục các nội dung bài viết hữu ích không giống của generalimex.com.vn được đăng tải đầy đủ đặn trên trang.