Đọc số thành chữ. (2 người xem)

[baodenamazon]

Chào các thầy cô, tôi sử dụng Excel để nhập điểm trong bảng điểm có cột "điểm bằng số" và cột "điểm bằng chữ". Xin hướng dẫn tôi cách để đọc "số" thành "chữ" (ví dụ: "8" thành "tám"). Điểm là số nguyên từ 1 đến 10.
Chân thành cám ơn.

 

[huuthang_bd]

Chào các thầy cô, tôi sử dụng Excel để nhập điểm trong bảng điểm có cột "điểm bằng số" và cột "điểm bằng chữ". Xin hướng dẫn tôi cách để đọc "số" thành "chữ" (ví dụ: "8" thành "tám"). Điểm là số nguyên từ 1 đến 10.
Chân thành cám ơn.

Bạn có thể sử dụng các Add-in đọc số trên diễn đàn. Trong trường hợp đơn giản như của bạn, có thể sử dụng công thức này:

=CHOOSE(A1+1,"Không","Một","Hai","Ba","Bốn","Năm","Sáu","Bảy","Tám","Chín","Mười")

 

[baodenamazon]

Bạn có thể sử dụng các Add-in đọc số trên diễn đàn. Trong trường hợp đơn giản như của bạn, có thể sử dụng công thức này:

=CHOOSE(A1+1,"Không","Một","Hai","Ba","Bốn","Năm","Sáu","Bảy","Tám","Chín","Mười")

Có một số Add-in thì đọc số lại kèm theo chữ đồng (ví dụ: "tám đồng") nên không phù hợp.
Còn công thức bạn cho có thể hướng dẫn tôi cụ thể thêm không? Cám ơn rất nhiều.

 

[huuthang_bd]

Có một số Add-in thì đọc số lại kèm theo chữ đồng (ví dụ: "tám đồng") nên không phù hợp.
Còn công thức bạn cho có thể hướng dẫn tôi cụ thể thêm không? Cám ơn rất nhiều.

Chỉ việc copy công thức của tôi vào ô điểm bằng chữ. Thay A1 thành địa chỉ ô điểm bằng số.

Đây là file ví dụ.

 

[baodenamazon]

Tôi đã làm được cám ơn bạn rất nhiều.
Còn thầy Phạm Trung (Giáo viên: Trường THPT Bình Phú-Bình Dương) có hướng dẫn tôi như sau:
Trong excel Ban bam Atl F11 sau do vao insert chen mot Modul va chep ham sau dan vao.
Trong o doc ban nhap: =docDiem([so dien]) la duoc.

Public Function docDiem(soDiem As Variant) As String
Select Case soDiem
Case 0
docDiem = "không"
Case 1
docDiem = "m" & ChrW(7897) & "t"
Case 2
docDiem = "m" & ChrW(7897) & "t"
Case 3
docDiem = "ba"
Case 4
docDiem = "b" & ChrW(7889) & "n"
Case 5
docDiem = "n" & ChrW(259) & "m"
Case 6
docDiem = "sáu"
Case 7
docDiem = "b" & ChrW(7843) & "y"
Case 8
docDiem = "tám"
Case 9
docDiem = "chín"
Case 10
docDiem = "m" & ChrW(432) & ChrW(7901) & "i"
Case Else
docDiem = "không ph" & ChrW(7843) & "i " & ChrW(273) & "i" & ChrW(7875) & "m nguyên"
End Select
End Function
Mong các anh chị hướng dẫn thêm về hàm trên của Thầy Trung.
Cám ơn.

 

[huuthang_bd]

Tôi đã làm được cám ơn bạn rất nhiều.
Còn thầy Phạm Trung (Giáo viên: Trường THPT Bình Phú-Bình Dương) có hướng dẫn tôi như sau:
Trong excel Ban bam Atl F11 sau do vao insert chen mot Modul va chep ham sau dan vao.
Trong o doc ban nhap: =docDiem([so dien]) la duoc.

Public Function docDiem(soDiem As Variant) As String
Select Case soDiem
Case 0
docDiem = "không"
Case 1
docDiem = "m" & ChrW(7897) & "t"
Case 2
docDiem = "m" & ChrW(7897) & "t"
Case 3
docDiem = "ba"
Case 4
docDiem = "b" & ChrW(7889) & "n"
Case 5
docDiem = "n" & ChrW(259) & "m"
Case 6
docDiem = "sáu"
Case 7
docDiem = "b" & ChrW(7843) & "y"
Case 8
docDiem = "tám"
Case 9
docDiem = "chín"
Case 10
docDiem = "m" & ChrW(432) & ChrW(7901) & "i"
Case Else
docDiem = "không ph" & ChrW(7843) & "i " & ChrW(273) & "i" & ChrW(7875) & "m nguyên"
End Select
End Function
Mong các anh chị hướng dẫn thêm về hàm trên của Thầy Trung.
Cám ơn.

Người ta đã hướng dẫn rất rõ ràng rồi. Bạn cứ làm theo đúng như thế sẽ được.

 

[baodenamazon]

Tôi đã thực hiện đúng như vậy. Nhưng khi làm với một bảng tính mới thì không được, không biết bị lỗi gì nữa. Khi kiểm tra lại Modul đã tạo thì không thấy đâu. Làm sao để mỗi một bảng tính mới đều sử dụng được. Tôi vốn rất kém tin học, mong được học hỏi thêm.

 

[huuthang_bd]

Tôi đã thực hiện đúng như vậy. Nhưng khi làm với một bảng tính mới thì không được, không biết bị lỗi gì nữa. Khi kiểm tra lại Modul đã tạo thì không thấy đâu. Làm sao để mỗi một bảng tính mới đều sử dụng được. Tôi vốn rất kém tin học, mong được học hỏi thêm.

Bạn tải file bên dưới về. Mở Excel lên. Vào Tools | Add-in... Cửa sổ Add-in xuất hiện. Nhấn vào Browse. Chọn tới file DocDiem.xla bạn mới tải về. Chọn ok. Click chọn vào mục DocDiem trong danh sách Add-in. ok.

 

[baodenamazon]

Bạn tải file bên dưới về. Mở Excel lên. Vào Tools | Add-in... Cửa sổ Add-in xuất hiện. Nhấn vào Browse. Chọn tới file DocDiem.xla bạn mới tải về. Chọn ok. Click chọn vào mục DocDiem trong danh sách Add-in. ok.

Cám ơn anh đã nhiệt tình giúp, nhưng tôi không thấy link tải file?

 

[huuthang_bd]

Cám ơn anh đã nhiệt tình giúp, nhưng tôi không thấy link tải file?

Tôi quên. File của ban đây.

 

[baodenamazon]

Cám ơn anh đã giúp, tôi đã có thể thực hiện việc vô điểm cách đơn giản hơn nhiều rồi. Nếu không quá khó, khi nào rãnh anh có thể hướng dẫn tôi cách tạo các Add-In như vậy được không? Chúc anh nhiều sức khỏe.

 

[le tin]

Đọc số thập phân ra chữ và ngược lại

Chào các bạn
Nhờ các bạn giúp cho code(hoặc công thức,cột phụ...) để dịch số thập phân ra chữ .
Và dịch từ chữ ra số
Cảm ơn