Đổi số thành chữ

[tò mò]

Sau khi cài đặt, mình không thấy tập tin vnTools4Word.dot chỉ có các tập tin "huong dan.txt"; "unins.dat" và "unins.exe" thôi, mình dùng Vista. Giúp mình với.

 

[tranthanhhoan75]

Hướng dẫ cụ thể rõ ràng cách đổi số thành chữ trong Word và Excel

Tôi là thành viên mới. Khi lên diễn đàn tôi thấy mọi người có hướng dẫn về đổi số thành chữ trong Word và Excel đúng với thắc mắc mà tôi đang không biết phải thực hiện thế nào. Vì vậy rất mong các thành viên có thể hướng dẫn tôi thật cụ thể với , bởi vì tôi cũng đã tải về nhưng không biết file vnTools nó ở đâu vào bắt đầu từ đâu. Kiến thức về máy tính thì cực kém. vậy rất mong sự trợ giúp của các Thành viên có thể gửi giúp tôi qua mail được không? tranthanhhoan75@yahoo.com.
Xin chân thành cảm ơn!:-w

 

[thuyhoadl]

Sao download ve va giai nen ra khong dung duoc. ban co the cho minh xin qua email thuyhoadl@yahoo.com duoc khong ?
Cam on nhieu

 

[duypnk]

Vậy trong các file kể trên mọi người sử dụng, các nào dễ xài nhất, xin đưa ra đánh giá và up lại cho mọi người sử dụng. Chân thành cám ơn.

 

[ldt2007]

Tôi là thành viên mới. Khi lên diễn đàn tôi thấy mọi người có hướng dẫn về đổi số thành chữ trong Word và Excel đúng với thắc mắc mà tôi đang không biết phải thực hiện thế nào. Vì vậy rất mong các thành viên có thể hướng dẫn tôi thật cụ thể với , bởi vì tôi cũng đã tải về nhưng không biết file vnTools nó ở đâu vào bắt đầu từ đâu. Kiến thức về máy tính thì cực kém. vậy rất mong sự trợ giúp của các Thành viên có thể gửi giúp tôi qua mail được không? tranthanhhoan75@yahoo.com.
Xin chân thành cảm ơn!:-w

Tôi có hàm đổi từ số ra chữ trong Excel, các bạn dùng thử nhé.

Hàm VND đổi số ra chữ dùng font ABC, được trích từ phần mềm LDT2009.

Cách thực hiện:
1. Tạo 1 file Excel mới.
2. Nhấn tổ hợp Alt+11.
3. Chọn menu Insert/ chọn Module
4. Copy toàn bộ các dòng module sau vào
(một số font không đọc được, kệ nó)

Public Function VND(LT)

' Design by LDT2007 - TKN company - Tel: 098.784.8491.

On Error GoTo Err_VND
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 LT = 0 Or Abs(LT) > 1E+15 Then
VND = ""
Exit Function
End If

'Ketqua**************************************************
If LT < 0 Then
KetQua = "trõ" & Space(1)
Else
KetQua = Space(0)
End If
'*******************************************************

SoTien = Format(Abs(LT), "##############0")
SoTien = Right(Space(12) & SoTien, 15)

Hang = Array("None", "tr¨m", "m­¬i", "gi do")

If LT >= 1000 * 10 ^ 9 Then

If Right(SoTien, 12) = "000000000000" Or Mid(SoTien, 3, 4) = "0000" Then
Doc = Array("", "ngh×n tû", "tû", "triÖu", "ngh×n", "®ång", "")
Else
If Mid(SoTien, 3, 3) = "000" Then
Doc = Array("", "ngh×n lÎ", "tû", "triÖu", "ngh×n", "®ång", "")
Else
Doc = Array("", "ngh×n", "tû", "triÖu", "ngh×n", "®ång", "")
End If
End If

Else
Doc = Array("", "ngh×n", "tû", "triÖu", "ngh×n", "®ång", "")
End If

Dem = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn")

'******************
For I = 1 To 5

Nhom = Mid(SoTien, I * 3 - 2, 3)
' 5 nhãm****************************

If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If I = 5 Then ' 5 > If I = 4 Then
Chu = "®ång" & Space(1)
Else
Chu = Space(0)
End If
'Case ".00"
'Chu = ""
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­ê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 = "linh" & Space(1)
End If
End Select
Chu = Chu & Dich
Next j
End Select
Vitri = InStr(I, Chu, "m­¬i mét", 1)

If Vitri > 0 Then Mid(Chu, Vitri, 9) = "m­¬i mèt"
KetQua = KetQua & Chu
End If
Next I

VND = Trim(UCase(Left(KetQua, 1)) & Mid(KetQua, 2))

'VND = Hang(3)

Exit_VND:
Exit Function
Err_VND:
MsgBox "D÷ liÖu sè tiÒn kh«ng phï hîp.", vbCritical
VND = 0
Resume Exit_VND

End Function

5. Đóng cửa sổ Visual Basic.

Như vậy bạn đã có được 1 hàm VND trong file Excel.

6. Nhập con số bất kỳ vào ô A1.
7. Tại ô A2 công thức là =VND(A1).

Hàm VND trên đổi được số <1 triệu tỉ, thoả mãn con số thực tế yêu cầu.

Chúc các bạn thành công!

 

[Hoàng Mai]

Tôi là thành viên mới, cũng rất thích đổi số thành chữ trong Word nhưng không biết làm thế nào vì cũng dốt VT, xin mọi người chỉ dãn cách thực hiện rõ hơn. Xin cảm ơn tất cả.

 

[nguyenhuutrinh]

Tôi là thành viên mới, cũng rất thích đổi số thành chữ trong Word nhưng không biết làm thế nào vì cũng dốt VT, xin mọi người chỉ dãn cách thực hiện rõ hơn. Xin cảm ơn tất cả.

Bạn sử dụng tiện ích này nhé. Đổi số thành chữ trong MS Word và một số tính năng khác.
http://www.mediafire.com/download.php?jiy3wjtzj0o

 

[NGUYENMANHHA]

Tôi là thành viên mới, cũng rất thích đổi số thành chữ trong Word nhưng không biết làm thế nào vì cũng dốt VT, xin mọi người chỉ dãn cách thực hiện rõ hơn. Xin cảm ơn tất cả.

Bạn dùng thử cái này nhé.
Sau khi cài đặt trong Word xong thì
- Copy (Ctrl + C) con số muốn chuyển đổi thành chữ
- Chọn vị trí muốn chuỗi chữ xuất hiện
- Nhấn tổ hợp phím Ctrl + Shift + V

 

[ly1312]

Đổi số thành chữ

chương trình này chuyển đổi số thành chữ cho Wold và Excel rất hay do tôi sưu tầm được trên mạng, có thển chuyển đổi số thành chữ với mọi loại Font. Bạn nào có nhu cầu xin gửi mail đến vietadminhtkt@gmail.com
Do lần đầu vào diễn đàn nên mình không biết Up lên. Mình Up thử xem các Bác Down được không nha

Mình đã down về dùng thử nhưng không đc, báo #NAME? là sao vậy bạn.