Công thức số tiền bằng chữ

Quý khách hàng vẫn tìm kiếm tìm cho bạn một hàm đổi số thành chữ vào Excel cơ mà không thành công xuất sắc. Quý khách hàng bắt buộc đi lập phương pháp số tiền bằng văn bản vào Excel tuy nhiên thừa cạnh tranh. Sau trên đây vienchinh.biz đang trả lời bạn biện pháp rất có thể làm được điều ấy một cách thuận tiện. Theo dõi nội dung bài viết sau để kiếm tìm câu trả lời.

You watching: Công thức số tiền bằng chữ


Excel không có chức năng hay hàm mặc định tất cả sẵn nào sẽ giúp chuyển số thanh lịch dạng tự giờ Việt vào trang tính. Vậy tất cả phương pháp làm sao để lập bí quyết số chi phí bằng chữ vào Excel không? Cùng vienchinh.biz đi tìm kiếm kiếm câu trả lời mang đến vụ việc này vào bài viết dưới đây.


*

Có bí quyết nào để lập công thức số tiền bằng văn bản vào Excel không?

Câu vấn đáp là không và gồm, ko là không có ngẫu nhiên hàm tất cả sẵn nào trong Excel hoàn toàn có thể thực hiện vấn đề đổi số thành chữ vào Excel cả. Còn bao gồm ngơi nghỉ đấy là có thể lập bí quyết số chi phí bằng chữ vào Excel trải qua bài toán từ bỏ tạo nên một hàm thay đổi số thành chữ trong Excel với ngôn ngữ lập trình sẵn VBA (Visual Basic for Applications) với những pháp luật được Microsoft tích đúng theo để viết và chạy những đoạn mã được người tiêu dùng tạo nên này.

quý khách hàng nghĩ rằng bọn chúng thừa cạnh tranh nhằm hoàn toàn có thể thực hiện được vấn đề này. Điều chính là đúng so với những người không biết cùng gọi lập trình sẵn là gì. Thế nlỗi trong lí giải tiếp sau đây Cửa Hàng chúng tôi vẫn lý giải chúng ta cách thêm hàm đổi số thành chữ trong Excel mà thôi, vấn đề viết ra đoạn mã này đã có được Cửa Hàng chúng tôi tò mò và sinh sản sẵn cho bạn. Theo dõi tiếp phần tiếp sau đây để rất có thể tiến hành được vấn đề này.

Lập bí quyết 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ữ trong Excel với bất kỳ phiên phiên bản như thế nào trường đoản cú Excel 2003, 2010 hoặc bắt đầu hơn (tài năng cân xứng ngược từ bỏ phiên bạn dạng cao xuống phiên bản phải chăng rộng là tất yêu, bạn nên chú ý vụ việc này Lúc gửi tệp trang tính Excel của chính mình cho những người khác).

Cách lập công thức số chi phí bằng văn bản vào Excel được thực hiện một cách dễ dãi nhờ việc cung ứng của VBE như sau:

1. Sử dụng phím tắt Alt + F11 nhằm mngơi nghỉ Visual Basic Editor (VBE).

*

Quý khách hàng hoàn toàn có thể truy cập vào trình soạn thảo Visual Basic bằng phương pháp vào mục Developer trên tkhô cứng chế độ. Nếu thanh khô biện pháp không mở ra mục Developer này hoàn toàn có thể có tác dụng nhỏng sau: File > Options > Customize Ribbon > Bên cột Main Tabs tích chọn hộp ghi lại Developer.

*

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


*

3. Sao chxay đoạn mã sau vào trong trình soạn thảo. Đoạn mã này đã tự động hóa tác vụ thay đổi số thành chữ vào Excel mang đến trang tính của khách hàng.

Option Explicit ‘Main Function Function SpellNumber(ByVal MyNumber) Dim VND, Temp Dlặng 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)) End If Count = 1 Do While MyNumber “” Temp = GetHundreds(Right(MyNumber, 3)) If Temp “” Then VND = Temp & Place(Count) & 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 & ” Dong” End Select SpellNumber = VND End Function

Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right(“000” và 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 & 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 End Function

Function GetTens(TensText) Dyên ổn 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 End 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 End Select Result = Result và GetDigit _ (Right(TensText, 1)) ‘ Retrieve sầu ones place. End 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 = “” End Select End Function

*

4. Nhấn Alt + Q để quay lại trang tính Excel. Và lúc này hàm SpellNumber() đang sẵn sàng tất cả vào bí quyết nhằm áp dụng.

*

Lưu ý: Chức năng này chỉ chuyển động mang lại sổ thao tác bây giờ. Để thực hiện tác dụng này vào một file Excel khác, các bạn bắt buộc tái diễn công việc nhằm coppy và dán mã vào sổ thao tác làm việc đó.

Cách sử dụng hàm thay đổi số thành chữ trong Excel

Ngay trang tính chúng ta mới vừa thêm hàm SpellNumber() ngơi nghỉ 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() tức thì cơ mà không buộc phải tiến hành thêm 1 làm việc làm sao không giống.

Công thức bao quát là: =SpellNumber(số tiền nhtràn vào sinh sống dạng số)

quý khách hàng có thể nhập thủ công bằng tay số tiền hoặc hoàn toàn có thể gửi cực hiếm là 1 trong ô tính cất số tiền bạn muốn đổi khác “=SpellNumber(A1)“.

See more: Xử Lý Nhanh Lỗi Điện Thoại Samsung Sạc Pin Không Vào Pin, Access Denied

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

*

Thay bởi vì nhập bằng tay ra chữ số tiền nộp trong ô B7 chúng ta có thể áp dụng hàm SpellNumber bằng phương pháp nhập phương pháp sau vào ô B8 =SpellNumber(B7).

*

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

Excel không thể lưu lại sổ làm việc cùng với các hàm macro sinh hoạt định hình sổ thao tác không tồn tại macro chuẩn chỉnh (.xlsx). Nếu các bạn click chuột File > Save. Một vỏ hộp thoại cảnh báo dự án VB vẫn xuất hiện. Nhấp vào No.

Bạn có thể lưu giữ tệp của bản thân dưới dạng tệp gồm cung cấp Macro Excel (.xlsm) để lưu lại tệp của bạn ngơi nghỉ định hình hiện tại.

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

2. Bnóng vào trình đối kháng thả xuống Save sầu as và lựa chọn Excel Macro-Enabled Workbook.

3. Nhấn Save nhằm giữ gìn 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ách làm số tiền bằng văn bản trong Excel

Trước không còn, chúng ta phải ghi nhận VBA để sửa đổi mã theo yêu cầu của công ty. Cần đề nghị dán mã cho từng sổ thao tác, chỗ bạn gồm ý định thực hiện hàm đổi số thành chữ trong Excel. Nếu không, bạn sẽ đề nghị chế tạo tệp mẫu mã cùng với macro và định thông số kỹ thuật Excel nhằm tải tệp này những lần ban đầu.

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

*

Trên đây là nội dung bài viết trả lời bí quyết lập cách làm số chi phí bằng văn bản trong Excel thông 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 chúng ta phải chi ra chút thời gian cùng công sức để đổi lại năng suất thao tác được cải thiện cùng tốn ít thời hạn rộng nếu bạn đã đề nghị làm việc vào một tệp Excel cùng với tài liệu phệ.

quý khách hoàn toàn có thể liếc qua một số bài viết về mẹo nhỏ bên trên Microsoft Excel khác, giúp đỡ bạn nâng cấp kiến thức và kỹ năng về các hàm xuất xắc thao tác làm việc thực hiện nkhô cứng trên Excel.

See more: Tào Tháo Thánh Nhân Đê Tiện, : Nghệ Nhân Biến Diện Tài Tình

Nếu thấy bài viết lập công thức số chi phí bằng văn bản trong Excel này hữu dụng hãy để lại Like & Share cũng tương tự bình luận ở đoạn bên dưới nếu bao gồm bất kỳ vướng mắc bắt buộc lời giải như thế nào không giống. quý khách hàng gọi có thể theo dõi và quan sát thường xuyên những nội dung bài viết có lợi không giống của vienchinh.biz được đăng download rất nhiều đặn bên trên trang.


Chuyên mục: Chia sẻ