Các Bạn sửa giúp mình code đọc số thành chữ (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

ndhmoney686

Thành viên thường trực
Tham gia
25/4/12
Bài viết
376
Được thích
104
Các Bạn sửa giúp mình code hoặc sửa công thức đọc số thành chữ

Mình có ghi rõ và chi tiết ở trong file đính kèm. Mong các Bạn xem và giúp mình. Cảm ơn các Bạn nhiều!
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Các Bạn xem giúp mình với. Phần đầu thì ok. Nhưng Cứ đến phần thập phân chuyển từ số sang chữ là bị lẫn cả đồng vào. Mong các Bạn ra tay giúp đỡ. Cảm ơn các Bạn!
 
Upvote 0
ndhmoney686 đã viết:
Các Bạn xem giúp mình với. Phần đầu thì ok. Nhưng Cứ đến phần thập phân chuyển từ số sang chữ là bị lẫn cả đồng vào. Mong các Bạn ra tay giúp đỡ. Cảm ơn các Bạn!
Nhấp chuột vào đây để mở rộng...
Mỗi người có 1 dạng thuật toán riêng
Bạn xem thử ý tưởng của mình coi có ứng dụng được không nhé

PS: Code copy từ diễn đàn về edit lại, không nhớ rõ của tác giả nào. Mình chỉ edit tới 9 số thôi, nếu hơn 9 chữ số thì phải tự sửa code lại. Để lại cho bạn có cái mà ngâm cứu.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
quanghai1969 đã viết:
Mỗi người có 1 dạng thuật toán riêng
Bạn xem thử ý tưởng của mình coi có ứng dụng được không nhé

PS: Code copy từ diễn đàn về edit lại, không nhớ rõ của tác giả nào. Mình chỉ edit tới 9 số thôi, nếu hơn 9 chữ số thì phải tự sửa code lại nhé
Nhấp chuột vào đây để mở rộng...


Anh ơi đọc số sang chữ như này đúng ý em rồi Anh ạ.

Anh bổ sung giúp Em thêm chút nữa là: VD 12,345 thì đọc là "mười hai tấn, ba trăm bốn mươi lăm kg" tức là thêm giúp em dấu phẩy "," ở trước chỗ "ba trăm bốn mươi lăm kg."


Em cảm ơn Anh Quanghai1969 nhiều nhiều!
 

File đính kèm

Upvote 0
ndhmoney686 đã viết:
Anh ơi đọc số sang chữ như này đúng ý em rồi Anh ạ.

Anh bổ sung giúp Em thêm chút nữa là: VD 12,345 thì đọc là "mười hai tấn, ba trăm bốn mươi lăm kg" tức là thêm giúp em dấu phẩy "," ở trước chỗ "ba trăm bốn mươi lăm kg."
Nhấp chuột vào đây để mở rộng...

Thử lại thế này coi sao
 

File đính kèm

Upvote 0
C2 =IF(B2="","",SUBSTITUTE(TRIM(vnd(INT($B2))),"đồng chẵn","tấn")&IF(MOD($B2,1)=0,"",", " & LOWER(SUBSTITUTE(TRIM(vnd(MOD($B2,1)*1000)),"đồng chẵn","Kg"))))
 
Upvote 0
ptm0412 đã viết:
C2 =IF(B2="","",SUBSTITUTE(TRIM(vnd(INT($B2))),"đồng chẵn","tấn")&IF(MOD($B2,1)=0,"",", " & LOWER(SUBSTITUTE(TRIM(vnd(MOD($B2,1)*1000)),"đồng chẵn","Kg"))))
Nhấp chuột vào đây để mở rộng...


Anh ơi Em cho công thức của Anh vào nó ra toàn theo VND Anh ạ. Code này đọc cả VND và cả đơn vị tấn, kg. Vậy chắc phải có ô để nhận biết là loại nào để công thức đọc loại đó Anh nhỉ?
 
Lần chỉnh sửa cuối:
Upvote 0
Mình sửa Code giúp bạn, bạn nên thêm 1 code riêng biệt để đọc trọng lượng cho chuẩn. Code của bạn như sau:
[GPECODE=vb]
Function QText(NWeight)
Dim KetQua, Giatri, Nhom, Chu, Dich, S1, S2, S3 As String
Dim I, J, ViTri As Byte, S As Double
Dim Hang, Doc, Dem
If Trim(NWeight) = "" Then
QText = ""
Exit Function
ElseIf NWeight = 0 Then
QText = "kh" & ChrW(244) & "ng"
Exit Function
ElseIf IsNumeric(NWeight) = True Then
If Abs(NWeight) >= 1E+15 Then
KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n"
Else
If NWeight < 0 Then
KetQua = ChrW$(194) & "m" & Space(1)
Else
KetQua = Space(0)
End If
Giatri = Format(Abs(NWeight), "##############0.000")
Giatri = Right(Space(15) & Giatri, 18)
Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "ã")
Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(7927), "t" & ChrW$(7927), "tri" & ChrW$(7879) & "u", "t" & ChrW(7845) & "n", "kg", "gram")
Dem = Array("None", "m" & ChrW$(7897) & "t", "hai", "ba", "b" & ChrW$(7889) & "n", "n" & ChrW$(259) & "m", "s" & ChrW$(225) & "u", "b" & ChrW$(7849) & "y", "t" & ChrW$(225) & "m", "ch" & ChrW$(237) & "n")
For I = 1 To 6
Nhom = Mid(Giatri, I * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If I = 5 Then
Chu = "Kg" & Space(1)
Else
Chu = Space(0)
End If
Case ".000"
Chu = "ch" & ChrW$(7861) & "n"
Case Else
S1 = Left(Nhom, 1)
S2 = Mid(Nhom, 2, 1)
S3 = Right(Nhom, 1)
Chu = Space(0)
Hang(3) = Doc(I)
For J = 1 To 3
Dich = Space(0)
S = Val(Mid(Nhom, J, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(J) & Space(1)
End If
Select Case J
Case 2 And S = 1
Dich = "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(J) & Space(1)
Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0"
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And I = 4) Then
Dich = "l" & ChrW$(7867) & Space(1)
End If
End Select
Chu = Chu & Dich
Next J
End Select
ViTri = InStr(1, Chu, "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7897) & "t", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7889) & "t"
KetQua = KetQua & Chu
End If
Next I
End If
End If
QText = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function[/GPECODE]
 

File đính kèm

Upvote 0
ndhmoney686 đã viết:
Anh ơi Em cho công thức của Anh vào nó ra toàn theo VND Anh ạ. Code này đọc cả VND và cả đơn vị tấn, kg. Vậy chắc phải có ô để nhận biết là loại nào để công thức đọc loại đó Anh nhỉ?
Nhấp chuột vào đây để mở rộng...

Phải được chứ. Tôi test rồi mới đưa lên:

DocsoTanKg.jpg
 
Upvote 0
sealand đã viết:
Mình sửa Code giúp bạn, bạn nên thêm 1 code riêng biệt để đọc trọng lượng cho chuẩn. Code của bạn như sau:
Nhấp chuột vào đây để mở rộng...


Vậy Anh có thể đọc sang chữ kiểu như là
156.350 kg = 156,350 tấn thì đọc từ số sang chữ là "Một trăm năm mươi sáu tấn, ba trăm năm mươi kg" . Phần đầu đọc theo tấn, còn phần thập phân là đọc theo kg Anh ạ. Cảm ơn Anh đã giúp đỡ Em!
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Xin lỗi, bài trước mình chưa test kỹ nên còn sai sót. Mình thấy bạn tính đến Kg nên Code điều chỉnh như sau cho đơn giản:
[GPECODE=vb]
Function QText(NWeight)
Dim KetQua, Giatri, Nhom, Chu, Dich, S1, S2, S3 As String
Dim I, J, ViTri As Byte, S As Double
Dim Hang, Doc, Dem
If Trim(NWeight) = "" Then
QText = ""
Exit Function
ElseIf NWeight = 0 Then
QText = "kh" & ChrW(244) & "ng"
Exit Function
ElseIf IsNumeric(NWeight) = True Then
If Abs(NWeight) >= 1E+15 Then
KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n"
Else
If NWeight < 0 Then
KetQua = ChrW$(194) & "m" & Space(1)
Else
KetQua = Space(0)
End If
Giatri = Format(Int(Abs(NWeight)), "##############0.00")
Giatri = Right(Space(15) & Giatri, 18)
Hang = Array("None", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", "g" & ChrW$(236) & " " & ChrW$(273) & "ã")
Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(7927), "t" & ChrW$(7927), "tri" & ChrW$(7879) & "u", "t" & ChrW(7845) & "n", "kg", "")
Dem = Array("None", "m" & ChrW$(7897) & "t", "hai", "ba", "b" & ChrW$(7889) & "n", "n" & ChrW$(259) & "m", "s" & ChrW$(225) & "u", "b" & ChrW$(7849) & "y", "t" & ChrW$(225) & "m", "ch" & ChrW$(237) & "n")
For I = 1 To 6
Nhom = Mid(Giatri, I * 3 - 2, 3)
If Nhom <> Space(3) Then
If Nhom = "000" Then
If I = 5 Then
Chu = "Kg" & Space(1)
Else
Chu = Space(0)
End If
Else
S1 = Left(Nhom, 1)
S2 = Mid(Nhom, 2, 1)
S3 = Right(Nhom, 1)
Chu = Space(0)
Hang(3) = Doc(I)
For J = 1 To 3
Dich = Space(0)
S = Val(Mid(Nhom, J, 1))
If S > 0 Then
Dich = Dem(S) & Space(1) & Hang(J) & Space(1)
End If
Select Case J
Case 2 And S = 1
Dich = "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1)
Case 3 And S = 0 And Nhom <> Space(2) & "0"
Dich = Hang(J) & Space(1)
Case 3 And S = 5 And S2 <> Space(1) And S2 <> "0"
Dich = "l" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And I = 4) Then
Dich = "l" & ChrW$(7867) & Space(1)
End If
End Select
Chu = Chu & Dich
Next J
End If
ViTri = InStr(1, Chu, "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7897) & "t", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "m" & ChrW$(432) & ChrW$(417) & "i m" & ChrW$(7889) & "t"
KetQua = KetQua & Chu
End If
Next I
End If
End If
QText = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function[/GPECODE]

P/s: Gửi rồi mới đọc bài của bạn, may là đúng ý
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
sealand đã viết:
Xin lỗi, bài trước mình chưa test kỹ nên còn sai sót. Mình thấy bạn tính đến Kg nên Code điều chỉnh như sau cho đơn giản:

P/s: Gửi rồi mới đọc bài của bạn, may là đúng ý
Nhấp chuột vào đây để mở rộng...


Đúng rồi Anh ạ. Em cảm ơn Anh Sealand !
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D
Lọc cột chứa nhiều nhóm từ trong Excel. Mong các bạn giải đáp giúp (2 người xem)
Trả lời
5
Đọc
42
Maithy46
Maithy46
K
Tạo sheet tổng hợp (1 người xem)
    • Cười
Trả lời
6
Đọc
272
khoailang
K
V
Công thức để phân công chuyên môn cho giáo viên
Trả lời
9
Đọc
331
Hoàng Tuấn 868
H
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb (3 người xem)
Trả lời
4
Đọc
93
befaint
befaint
Nguyễn Duy Tuân
  • Question Question
AI muốn lập trình DLL cho Excel và các loại bằng Delphi thì xem video này nhé! (1 người xem)
    • Thích
    • Yêu thích
13 14 15
Trả lời
1K
Đọc
197K
YêuCN
Y
V
  • Question Question
xác định xu hướng
Trả lời
3
Đọc
117
vuthienfx
V
giaiphap
Lập trình C# tạo Add-ins cho excel.
    • Thích
Trả lời
52
Đọc
7K
nguyendang95
N
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
383
Đọc
45K
nguyendang95
N
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
Y
Lấy dữ liệu từ sheet chi tiết sang sheet tổng hợp hàng dọc
Trả lời
6
Đọc
582
yoomi
Y
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
16
Đọc
400
Phan Thế Hiệp
Phan Thế Hiệp
N
Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả.
Trả lời
2
Đọc
117
minhminh27
minhminh27
NguyenthiH
Mở file Excel có Pass Open
Trả lời
39
Đọc
3K
Hoàng Tuấn 868
H
M
Tách dữ liệu trong 1 file thành nhiều sheet theo số lượng dòng
    • Ngạc nhiên
Trả lời
25
Đọc
3K
Hoàng Tuấn 868
H
T
Tìm số hóa đơn trong chuỗi
Trả lời
11
Đọc
445
thao nguyen01
T
T
  • Question Question
Nhờ ACE cao thủ hỗ trợ mình có một chương trình EXCEL về phân công lớp cho giáo viên
Trả lời
6
Đọc
346
DeTong
D
T
Nhờ các anh chị sửa dùm công thức ạ.
Trả lời
10
Đọc
234
trantrungvinh1989
T
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
Trả lời
24
Đọc
2K
phuongdaik98
P
Phan Thế Hiệp
Quy đổi từ Thu nhập sau thuế (TNCN) ra Thu nhập tính thuế (1 người xem)
    • Yêu thích
    • Thích
Trả lời
1
Đọc
372
Phan Thế Hiệp
Phan Thế Hiệp
V
Quên mật khẩu file excel
Trả lời
25
Đọc
2K
YêuCN
Y
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom