Cầu kiến cao thủ, đọc số thành chữ

[xuanquynh197]

Đọc số thành chữ, em nghĩ mãi cũng ra 1 thuật toán, em gửi các bác xem, nhưng chuối em thấy thuật toán vẫn còn thật phức tạp và công thức vẫn còn rối rắm quá.... hìhi các bác xem góp ý giúp em tinh giảm công thức cho " nhanh hơn, hiệu quả hơn" và cùng thử tìm 1 thuật toán mới xem sao

 

[dragonboy]

Cũng hay đó chứ, nhưng quả thật công thức rối quá

 

[vanhuy]

Hay lắm đó nhưng nếu số là 100.000.001 nó đọc là 100 triệu không mươi không nghìn... mới bực chứ

 

[Nguyễn Duy Tuân]

Đâù tiên mình cứ thử cho nó đúng đã:
Bạn thử với các con số sau nhé:
21
55
54
555
1.1

Với các con số trên, công thức của bạn đọc không đúng. Bạn hoàn thiện công thức tiếp nhé!

 

[xuanquynh197]

ôk ok emm đã chỉnh sửa xong các lỗi đó, các bác xem thử xem sao... hìhi còn chỗ đọc phần thập phân, xử lý cũng đơn giản nhưng ít dùng nên em không làm... Các pác xem thử rút gọn công thức hay nghĩ đến 1 phương thức đọc mới khác xem sao

 

[nguyentuhp]

Trên diễn đàn cũng có người đã lập công thức để Đọc số thành chữ rồi bạn à, công thức của bạn vẫn chưa chính xác đâu. Theo tôi cứ dùng các hàm viết bằng VBA trên diễn đàn là OK, công thức được giới thiệu của paulsteigel là chính xác nhất nhưng người giới thiệu đoạn code thiếu 1 đoạn code:

Private Function GetElementNo(iTxt As Long, iObj As Variant) As String
Dim i As Long
For i = 0 To UBound(iObj)
If iTxt = iObj(i) Then
GetElementNo = CStr(i)
Exit For
End If
Next
End Function

 

[boyxin]

Đọc số, ngày tháng - VBA

Khi nào thấy chán lập công thức thì tham khảo cách đọc số bằng VBA cực chuẩn, còn đọc cả ngày tháng (hỗ trợ 3 loại font: Unicode, TCVN3-ABC, VNI-) Tại đây

 

[SA_DQ]

ôk ok emm đã chỉnh sửa xong các lỗi đó, các bác xem thử xem sao... hìhi còn chỗ đọc phần thập phân, xử lý cũng đơn giản nhưng ít dùng nên em không làm... Các pác xem thử rút gọn công thức hay nghĩ đến 1 phương thức đọc mới khác xem sao

Một số chuỗi sau vẫn còn sai chính tả: 101 , 105 , 111 ,
Dù sao bạn vẫn cứ tiếp tục cho đến cuối, Rất hoan hô bạn;
Tiếp tục chỉ có 'được' trở lên & thất bại trong chừng mực nào đó cũng là thành công trong mai sau;
Bạn sẽ thấy rất vui, một khi nhìn nhận chiến tích của mình;

Xin tặng bạn 1 bông với nhắn như: Bạn không đơn độc

 

[xuanquynh197]

hì cảm ơn các bác rất nhiều,... Em cũng rất thích VBA nhưng cái j ra cái đấy em muốn làm bằng công thức trước và muốn tự mình tìm hiểu cách làm theo tư duy vì chỉ những cái j theo em nghĩ do chính mình làm được thì mới thuộc về mình... hìhi em sẽ lại tiếp tục nghĩ vậy... còn VBA khi nào E sử dụng nó thành thạo em sẽ sài nó