Hàm đổi số thành chữ có phần thập phân

[pham van an]

Có nhiều add-in đổi tiền tệ rồi. Hôm nay nhờ ace viết hộ add-in chuyển số thập phân thành chữ ví dụ: 2.35--> Hai phẩy ba lăm
0.1025---> không phẩy một không hai năm

 

[Quang_Hải]

Có nhiều add-in đổi tiền tệ rồi. Hôm nay nhờ ace viết hộ add-in chuyển số thập phân thành chữ ví dụ: 2.35--> Hai phẩy ba lăm
0.1025---> không phẩy một không hai năm

Xài tạm cái này trong khi chờ code khác hay hơn

 

[minhhangg]

Xài tạm cái này trong khi chờ code khác hay hơn

Anh Hải:
Có thể anh chế biến thêm được không VD: Người nhập 8,5 thì đọc 8 phẩy năm hoặc người ta không nhập 8,5 mà là 8.5 thì đọc là tám chấm năm.

 

[Quang_Hải]

Anh Hải:
Có thể anh chế biến thêm được không VD: Người nhập 8,5 thì đọc 8 phẩy năm hoặc người ta không nhập 8,5 mà là 8.5 thì đọc là tám chấm năm.

Code có sẵn rồi, tự chế biến tại dòng 1 và dòng 2 coi được không

 

[pham van an]

anh ơi khi nhập 0.25 thì nó đọc là Phẩy không phẩy hai năm, sao cứ có phẩy phía trước thế

 

[Quang_Hải]

anh ơi khi nhập 0.25 thì nó đọc là Phẩy không phẩy hai năm, sao cứ có phẩy phía trước thế

Hức hức mình sơ ý quá. Thay code này vào

Function ThapPhan(cell As Range) As String
Dim StringS(), Str, Tam, Kqua, J, I
Tam = cell.Value
StringS = [A1:K2].Value
For I = 1 To Len(Tam)
    Str = Mid(Tam, I, 1)
    For J = 1 To UBound(StringS, 2)
        If StringS(1, J) = Str Or Val(StringS(1, J)) = Str Then
            Kqua = Kqua & " " & StringS(2, J)
            Exit For
        End If
    Next
Next
ThapPhan = Trim(Kqua)
End Function

 

[lupu4ever]

Hức hức mình sơ ý quá. Thay code này vào

Function ThapPhan(cell As Range) As String
Dim StringS(), Str, Tam, Kqua, J, I
Tam = cell.Value
StringS = [A1:K2].Value
For I = 1 To Len(Tam)
    Str = Mid(Tam, I, 1)
    For J = 1 To UBound(StringS, 2)
        If StringS(1, J) = Str Or Val(StringS(1, J)) = Str Then
            Kqua = Kqua & " " & StringS(2, J)
            Exit For
        End If
    Next
Next
ThapPhan = Trim(Kqua)
End Function

bác ơi, hàm bác có 1 lỗi nữa: điểm 10 bị chuyển thành một phẩy không nhé bác

 

[cantl]

Cái này tớ dùng đọc số điện thoại, nhưng không sửa được viết hoa đầu dòng nên cất trong tủ lạnh.
Nay thêm cái món phẩy chấm bột canh.
A20 là số.

=TRIM(CONCAT(INDEX({"không ";"một ";"hai ";"ba ";"bốn ";"năm ";"sáu ";"bảy ";"tám ";"chín ";"phẩy ";"chấm "};MATCH(MID(A20;ROW(INDIRECT("A1:A"&LEN(A20)));1);{"0";"1";"2";"3";"4";"5";"6";"7";"8";"9";",";"."};0);1)))

Bài đã được tự động gộp: 12/5/23

bác ơi, hàm bác có 1 lỗi nữa: điểm 10 bị chuyển thành một phẩy không nhé bác

 

[LmoovoenX]

Viết hoa đầu dòng

Thử nhé, học mót của bác @huuthang_bd

=Mid("KMHBBNSBTC";1+LEFT(A20);1)&MID(TRIM(CONCAT(INDEX({"không ";"một ";"hai ";"ba ";"bốn ";"năm ";"sáu ";"bảy ";"tám ";"chín ";"phẩy ";"chấm "};MATCH(MID(A20;ROW(INDIRECT("A1:A"&LEN(A20)));1);{"0";"1";"2";"3";"4";"5";"6";"7";"8";"9";",";"."};0);1)));2;100)