Làm sao có thể đổi số mét vuông từ số thành chữ?

[Ngoc Tuan]

Mong các sư phụ chỉ giúp dùm em:"Làm sao có thể đổi số mét vuông từ số thành chữ". VD: 60,5 m2 thành "sáu mươi phẩy năm mét vuông". Cám ơn các sư phụ!

 

[Nguyễn Duy Tuân]

=SoThanhChu(60.5) & " mét vuông"

 

[pxthanhcda]

Co the lam duoc ,nhung khong hieu ban muon doi bat ky so nao do thanh chu hay chi la so co don vi la met vuong.Ban co the noi ro muc diich cua ban hon.Minh nghi la co the lam duoc day.( use VBA cung OK).the nhe

 

[Ngoc Tuan]

Co the lam duoc ,nhung khong hieu ban muon doi bat ky so nao do thanh chu hay chi la so co don vi la met vuong.Ban co the noi ro muc diich cua ban hon.Minh nghi la co the lam duoc day.( use VBA cung OK).the nhe

Mình chỉ muốn đổi số có đơn vị là mét vuông thôi! Nếu bạn biết thì chỉ dùm mình! Sử dụng VBA cũng được! Cám ơn bạn vì đã quan tâm vấn đề này!

 

[sutuchot]

Công cụ dịch số ra chữ

Tôi đã làm một hàm người dùng để dịch số ra chữ nhưng vì là kế toán nên tôi không cần dùng đến các số có chữ số thập phân vì vậy bạn có thể nghiên cứu và phát triển thêm

 

[sutuchot]

Công cụ dịch số ra chữ

Tôi đã làm một hàm người dùng để dịch số ra chữ nhưng vì là kế toán nên tôi không cần dùng đến các số có chữ số thập phân vì vậy bạn có thể nghiên cứu và phát triển thêm. Tôi không Upload được file xla lên được lên tôi copy đoạn mã lên đây để bạn tham khảo

Public Function Docso(number)
' By Tran Lam
' Date 25/12/2006
' Dich tu so ra thanh tien voi phong chu TCVN3

' Kiem tra truong hop dac biet voi so 0 va 1
If number = 0 Then
Dich = "Kh«ng."
ElseIf number = 1 Then
Dich = "Mét."
Else
' Neu khong phai 2 truong hop tren thi tiep tuc lam
so = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn") 'mang so
DV = Array(".", "ngh×n", "triÖu", "tû", "ngh×n") 'mang don vi
SL = Len(Round(number, 0)) 'So luong ky tu trong chuoi da loai cac chu so thap phan
cap = Round(SL / 3 + 0.2, 0) 'Tinh xem chuoi nam trong pham vi mang don vi nao
Thua = SL Mod 3 'So ky tu cua mang don vi lon nhat
' Vong lap mang don vi
For i = 1 To cap
'Tinh so ky tu cua mang dang xet, Kiem tra xem co phai mang lon nhat khong
If i = cap And Thua <> 0 Then
b = Thua
Else
b = 3
End If
'Loc lay mang don vi can doc
ai = Left(Right(Round(number, 0), i * 3), b)
SLi = Len(ai)
'Kiem tra truong hop dac biet mang don vi dang xet bang khong het
If ai = "000" Then
If i = 1 Then
Dich = "."
Else
Dich = Dich
End If

Else
'Vong lap doc ky tu trong mang dang xet
For j = 1 To b
Hang = Array(DV(i - 1), "m­¬i", "tr¨m") 'Mang don vi tinh cua ky tu
Docso = Mid(ai, (b + 1 - j), 1) 'Loc lay ky tu can doc
'Kiem tra truong hop dac biet ky tu bang khong
If Docso = 0 Then
If j = 1 Then
Doc = "" & Hang(j - 1)
danhdau1 = 1 'Thong bao ky tu don vi cua mang doc bang khong
ElseIf j = 2 Then
If danhdau1 = 1 Then
Doc = ""
danhdau2 = 1 'Thong bao 2 ky tu dau tien cua mang den bang khong
Else
Doc = "linh" 'Truong hop dac biet khi chu so hang chuc bang khong
End If
Else
If danhdau2 = 1 Then
Doc = "" 'Truong hop dac biet khi ca 3 chu so trong mang deu bang khong
Else
Doc = so(Docso) & " " & Hang(j - 1)
End If
End If
ElseIf Docso = 1 And j = 2 Then
Doc = "m­êi" 'Tr­¬ng hop dac biet khi ky tu hang chuc cua mang bang mot
ElseIf Docso = 5 And j = 1 And b <> 1 Then
Doc = "l¨m" & " " & Hang(j - 1) 'Truong hop dac biet khi ky tu hang don vi cua mang bang 5
ElseIf Docso = 4 And j = 1 And SL <> 1 Then
Doc = "t­" & " " & Hang(j - 1) 'Truong hop dac biet khi ky tu hang don vi cua mang bang 4
Else
Doc = so(Docso) & " " & Hang(j - 1)
End If
Dich = Doc & " " & Dich 'Ket hop cac so da doc
Next
'Dua cac danh dau ve gia tri ban dau
danhdau1 = 0
danhdau2 = 0
End If
Next

End If

Docso = UCase(Left(Dich, 1)) & Mid(Dich, 2) 'Dua ra ket qua va sua ky tu dau tien thanh viet hoa.

End Function

 

[quaquatqn]

Chào các bác, em là thành viên mới. Em rất mê excel, rất thích tìm hiểu về nó đặc biệt là sự kết hợp giửa VBA với excel nhung em lại bị mis đặc về VBA.E rất muốn tìm hiểu một cách bài bản về nó nhưng lại không biết bắt đầu từ đâu mong các bác chỉ giáo với.

 

[Pansy_flower]

Chào các bác, em là thành viên mới. Em rất mê excel, rất thích tìm hiểu về nó đặc biệt là sự kết hợp giửa VBA với excel nhung em lại bị mis đặc về VBA.E rất muốn tìm hiểu một cách bài bản về nó nhưng lại không biết bắt đầu từ đâu mong các bác chỉ giáo với.

Bạn xem các bài sau nha:

- Một số bài giảng và bài tập ở box Học tập Online và box Học tập Offline cùng một số Ebook ở Thư viện

- Kiến thức cơ bản về Visual Basic for Applications (VBA)

- 17 bước để bạn lập trình VBA tốt hơn

- Làm việc với đối tượng Excel trong Visual Basic 6.0