Welcome Guest [Log In] [Register]
Add Reply
Đổi chữ thành số
Topic Started: Wednesday Aug 20 2014, 10:52 PM (762 Views)
xnk13q
Member Avatar
Admin
[]
Đổi chữ thành số
 
Vào Excel – Tool – Macro – Visual basic – Insert – module
(copy phần dưới này dán vô)
Xong vào File – Save – save add type – microsoft offcice excel add-in (phan file name : đặt gì cũng duoc. Của mình dat là : VND) rồi OK.
Thoát ra khỏi visual basic. Vào tool (của excel) – add-ins – chọn VND là OK.


Code:
 
Public Function VND(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 = "Khoâng ñoàng "
Else
If Abs(Baonhieu) >= 1E+15 Then '1E+15 töùc 1.000.000.000.000.000 töùc 1 trieäu tyû
Ketqua = " Soá Quaù lôùn"
Else
If Baonhieu < 0 Then
Ketqua = " tröø " & Space(1)
Else
Ketqua = Space(0)
End If
Sotien = Format(Abs(Baonhieu), " 0.00") '18 digits Mith 2 decimal
Sotien = Right(Space(15) & Sotien, 18)
Hang = Array("None", " traêm", "möôi", "gì ñoù")
Doc = Array("None", "ngaøn tyû", "tyû", "trieäu", "ngaøn", "ñoàng ", "chaún ")
Dem = Array("None", "moät", "hai", "ba", "boán", "naêm", "saùu", "baûy", "taùm", "chí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 = "ñoà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) ' kyù töï en lôø
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And 1 = 4) Then
Dich = "leû" & Space(1)
End If
End Select
Chu = Chu & Dich
Next J
End Select
Vitri = InStr(1, Chu, " möôi moát ", 1)
If Vitri > 0 Then Mid(Chu, Vitri, 9) = " möôi moát "
Ketqua = Ketqua & Chu
End If
Next I
End If
End If
VND = UCase(Left(Ketqua, 1)) & Mid(Ketqua, 2)
End Function

Download
[:download]
Attached to this post:
Attachments: SapXepVN.zip (136.21 KB)
Edited by xnk13q, Thursday Mar 10 2016, 04:10 PM.
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · Powerpoint- Office · Next Topic »
Add Reply






RulesSECRET
[audioplayer]Link Audio[/audioplayer]
Code [tooltip=Title]Content[/tooltip]

E MAIL
hxanh1879@gmail.com

Contact on Skype
thaoho090791
Im lặng và mỉm cười là 2 vũ khí lợi hại. Mỉm cười là cách để giải quyết nhiều vấn đề , im lặng là cách để tránh những vấn đề rắc rối xảy ra.

Cuộc sống không phải luôn luôn hoàn hảo nhưng nó là kết quả của những gì bạn tạo ra. Vì thế hãy làm nó có giá trị, làm sao cho nó đáng nhớ và đừng bao giờ để ai đó đánh cắp hạnh phúc của bạn..