Excel không có công dụng hay hàm khoác định có sẵn nào để giúp đỡ chuyển số lịch sự dạng từ giờ đồng hồ Việt trong trang tính. Vậy có cách nào để lập bí quyết số tiền bằng chữ trong Excel không? cùng binhchanhhcm.edu.vn đi 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: Lệnh ghi số tiền bằng chữ trong excel

*


Có biện pháp nào để lập phương pháp số tiền bằng chữ trong Excel không?

Câu vấn đáp là không cùng có, không là ko có ngẫu nhiên hàm có sẵn nào trong Excel rất có thể thực hiện vấn đề đổi số thành chữ trong Excel cả. Còn tồn tại ở đây là rất có thể lập bí quyết số tiền bằng văn bản trong Excel trải qua việc tự tạo ra 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à các công gắng được Microsoft tích hợp nhằm viết cùng chạy những đoạn mã được người tiêu dùng tạo ra này.

Bạn nghĩ rằng bọn chúng quá khó khăn để rất có thể thực hiện nay được điều này. Điều chính là đúng đối với những người trù trừ và gọi lập trình là gì. Rứa như trong giải đáp sau đây cửa hàng chúng tôi sẽ hướng dẫn chúng ta cách thêm hàm thay đổi số thành chữ vào Excel nhưng thôi, bài toán viết ra đoạn mã này đã được cửa hàng chúng tôi tìm đọc và chế tác sẵn mang đến bạn. Quan sát và theo dõi tiếp phần tiếp sau đây để có thể thực hiện được điều này.

Lập phương pháp số tiền bằng chữ trong Excel bằng VBE

Sử dụng VBA (Visual Basic for Application) nhằm thêm hàm thay đổ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 tương thích ngược từ phiên bản cao xuống phiên bản thấp hơn là ko thể, các bạn nên để ý vấn đề này khi giữ hộ tệp trang tính Excel của mình cho tất cả những người khác).

Cách lập cách làm số tiền bằng văn bản trong Excel được triển khai một cách tiện lợi nhờ sự hỗ trợ của VBE như sau:

1. Thực hiện phím tắt Alt + F11 nhằm 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ụ. Ví như thanh hình thức không xuất hiện thêm mục Developer này rất có thể làm như sau: File > Options > Customize Ribbon > bên cột Main Tabs tích chọn hộp lưu lại Developer.

*

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

*

3. Coppy đoạn mã sau vào vào trình soạn thảo. Đoạn mã này sẽ auto hóa tác vụ đổi số thành chữ trong Excel mang lại 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 & 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 & ” 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)) & ” 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 & 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. Dìm Alt + Q để quay trở về trang tính Excel. Và giờ đây hàm SpellNumber() đã sẵn sàng có trong phương pháp để sử dụng.

*

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

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

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

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

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

Xem thêm: Big C Cần Thơ Khuyến Mãi - Big C Cần Thơ Ở Quận Cái Răng, Cần Thơ

Xem cách sử dụng hàm thay đổi số thành chữ vào Excel trải qua ví dụ minh họa về câu hỏi nhập liệu một phiếu thu chi phí với tin tức bao gom là số tiền làm việc dạng cả số và chữ.

*

Thay bởi nhập bằng tay ra chữ số chi phí nộp trong ô B7 bạn hoàn toàn có thể sử dụng hàm SpellNumber bằng cách nhập cách làm sau vào ô B8 =SpellNumber(B7).

*

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

Excel cấp thiết lưu sổ làm việc với các hàm macro ở định hình sổ có tác dụng việc không tồn tại macro chuẩn (.xlsx). Nếu bạn nhấp chuột File > Save. Một hộp thoại cảnh báo 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) để giữ tệp của doanh nghiệp ở định hình hiện tại.

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

2. Bấm chuột trình đối kháng thả xuống Save as và chọn Excel Macro-Enabled Workbook.

3. Nhận Save để giữ giàng tệp bảng tính Excel tất cả chứa mã hàm SpellNumber.

*

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

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

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

*

Trên phía trên là nội dung bài viết hướng dẫn cách lập bí quyết số tiền bằng chữ trong Excel trải qua việc tạo ra hàm đổi số thành chữ vào Excel với thương hiệu là SpellNumber. Đôi khi bọn họ cần ném 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ư khách hàng đang phải thao tá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ố bài viết về thủ pháp trên Microsoft Excel khác, góp bạn nâng cấp kiến thức về những hàm hay thao tác làm việc sử dụng nhanh trên Excel.

Nếu thấy nội dung bài viết lập phương pháp số tiền bằng văn bản trong Excel này bổ ích hãy nhằm lại lượt thích & nói qua cũng như comment ở phần bên dưới nếu có ngẫu nhiên thắc mắc đề nghị giải đáp làm sao khác. Chúng ta đọc có thể theo dõi tiếp tục các bài viết hữu ích khác của binhchanhhcm.edu.vn được đăng tải đều đặn bên trên trang.