cách đọc số thành chữ ?

[anhduyen]

anh chị có cách nào mà khi mình làm ra một con số cụ thể vd như: 200,050,000 đ. thì mình có thể dùng công thức nào để nó có thể đọc con số cụ thể trên thành chữ được không ạ. Mọi người nếu có biết qua xin chỉ cho em với nha. em xin cảm ơn trước nhiều

 

[khoavu87]

ui trời cái này trên diễn đàn rất nhiều bài nói về cái này.

bạn thử xem cái này xem sao.
Vd:tại Cell(A1) có giá tri là 2000000
bây giờ bạn muốn nó đọc thành chữ,thì tại bất kỳ một ô nào đó trong ex bạn nhập công thức sau
=VNUD(A1)

 

[trunghung68]

Đây có phải là 1 công thức của Excel không vậy bạn? Sao mình vào Help, đánh "VNUD" để search thì không hiện ra kết quả tìm được. Trong file của bạn, minh đổi số thì nó cho kết quả là #Name?? Vậy là sao hả bạn

 

[viehoai]

Đâu là hàm tự tạo bạn à dùng add in. Bạn vào mục Add in có rất nhiều thành viên đưa lên. Mình đang dùng A-Tools rất hay và có nhiều hàm khác hay hơn nưã đấy. chẳng qua bạn chưa chịu khó tìm thôi. Câu hỏi này trên diễn đàn quá nhiều rồi

 

[violetdylan]

Đâu là hàm tự tạo bạn à dùng add in. Bạn vào mục Add in có rất nhiều thành viên đưa lên. Mình đang dùng A-Tools rất hay và có nhiều hàm khác hay hơn nưã đấy. chẳng qua bạn chưa chịu khó tìm thôi. Câu hỏi này trên diễn đàn quá nhiều rồi

Dùng Addin cũng rất hay, nhưng nếu mang file đó sang máy khác mà không có addin thì hình như là không dùng được.

Mình thủ sẵn cái này, khi nào cần thì chèn thêm vào là okie (alt + F11 rồi import file docso.bas vào)

Tại ô cần hiện chữ, bạn gõ công thức =docuni(ô có số cần chuyển) thế là xong.

Ngoài ra, trên diễn đàn còn rất nhiều cách để đổi số thành chữ theo yêu cầu của ngành, nghề riêng, bạn tìm kiếm thêm nhé.

 

[khoavu87]

đây là hàm tự tạo mà bạn.nó giống như một funtion ấy.để đọc được số cũng giống như trong excel bạn phải nhâp công thức cho nó.như mình hướng dẫn cho nó ấy chứ.
Ví dụ đã nói:
Tại ô a1 có giá trị = 9
vậy bạn muốn đọc chữ tại ô a2 bạn gõ thế này
=vnud(a2)----->gõ xong enter
NẾU KHÔNG ĐƯỢC BẠN CÓ THỂ LÀM LẠI THẾ NÀY:
bạn vào Alt +f11 --->kích chuột phải vào một sheet bất kỳ chọn insert--->module--->và copy đoạn code này vào module đó nhé;và cách sử dụng như hướng dẫn trên
'''''''
Function VNUD(baonhieu)
Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
Dim i, J, ViTri As Byte, S As Double
Dim Hang, Doc, Dem
If baonhieu = 0 Then
KetQua = "Kh" & ChrW$(244) & "ng " & ChrW$(273) & ChrW$(7891) & "ng"
Else
If Abs(baonhieu) >= 1E+15 Then
KetQua = "S" & ChrW$(7889) & " qu" & ChrW$(225) & " l" & ChrW$(7899) & "n - H" & ChrW$(224) & "m " & ChrW$(273) & ChrW$(7893) & "i s" & ChrW$(7889) & " ra ch" & ChrW$(7919) & " Vi" & ChrW$(7879) & "t Nam; font ch" & ChrW$(7919) & " .Vntime - Copyright by MaiKa of AQN (0953-357-988)"
Else
If baonhieu < 0 Then
KetQua = ChrW$(194) & "m" & Space(1)
Else
KetQua = Space(0)
End If
SoTien = Format(Abs(baonhieu), "##############0.00")
SoTien = Right(Space(15) & SoTien, 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$(272), "t" & ChrW$(272), "tri" & ChrW$(7879) & "u", "ng" & ChrW$(224) & "n", ChrW$(273) & ChrW$(7891) & "ng", "")
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(SoTien, i * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If i = 5 Then
Chu = ChrW$(273) & ChrW$(7891) & "ng" & Space(1)
Else
Chu = Space(0)
End If
Case ".00"
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
VNUD = UCase(Left(KetQua, 1)) & Mid(KetQua, 2)
End Function
'''

 

[anhduyen]

Bạn khoavu87 ơi, sao cách mà bạn chỉ mình về làm ban đầu thì được nhưng nó không lưu chức năng đó lại sao? vì hôm sau mình mở lên thì chức năng đó mất tiêu hà, phải cài lại từ đầu các bước mà bạn đã chỉ như vậy thì bất tiện quá. bạn có cách nào chỉ mình lưu lại chức năng đó không?

 

[khoavu87]

mình vẫn lưu đựoc bài làm của nó mà bạn?

Bạn khoavu87 ơi, sao cách mà bạn chỉ mình về làm ban đầu thì được nhưng nó không lưu chức năng đó lại sao? vì hôm sau mình mở lên thì chức năng đó mất tiêu hà, phải cài lại từ đầu các bước mà bạn đã chỉ như vậy thì bất tiện quá. bạn có cách nào chỉ mình lưu lại chức năng đó không?

nếu không được thì ạbn làm lại bằng cách sau:
bạn copy đoạn code đó và dán vào một module nhá.đừng vội chạy code ngay bạn lưu đoạn code đó lại ngay.và bây giờ quay sang bên giao diện excel và vẫn lưu lại code đó lần nữa--->sau đó bạn hãy dùng nó như bình thường xem sao?thỉnh thoảng mình cũng hay làm vậy.
Tuy nhiên bài đó mình vẫn lưu bình thường có sao đâu bây giờ mình chạy lại thử vẫn đc mà.
mà bạn dùng ex?(thử hai cái này trước nhá.mình nghĩ chắc bạn chưa chỉnh hai cái này là nguyên nhân)--->
-Nếu năm 2007 thì bạn xem theo ảnh mình gửi
-nếu 2003 thì bật file của bạn lên và vào--->tool -->Macro--->security--->low-->chạy lại xem sao
cý( nếu hai cái cuối mình nói mà vẫn ko đc bạn làm lại theo như trên đầu mình nói xem)