Em có 1 đoạn mã thế này:
Function VND(BaoNhieu)
Dim KetQua, SOTIEN, Nhom, Chu, S1, S2, S3, Dich As String
Dim N, J, Vitri As Byte, S As Double, Hang, Doc, Dem
If BaoNhieu = 0 Then
KetQua = "Khoâng ñoàng"
Else
If Abs(BaoNhieu) > 1E+15 Then
KetQua = "Soá quaù lôùn"
Else
GoSub LamViecDi
End If
End If
VND = UCase(Left(KetQua, 1)) + Mid(KetQua, 2)
Exit Function
LamViecDi:
If BaoNhieu < 0 Then
KetQua = "Tröø" & Space(1)
Else
KetQua = Space(0)
End If
SOTIEN = Format(Abs(BaoNhieu), "############0.00")
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 N = 1 To 6
Nhom = Mid(SOTIEN, N * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If N = 5 Then Chu = "ñoàng" & Space(1) Else Chu = Space(0)
Case ".00"
Chu = "chaün"
Case Else
S1 = Left(Nhom, 1): S2 = Mid(Nhom, 2, 1): S3 = Right(Nhom, 1)
Chu = Space(0): Hang(3) = Doc(N)
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)
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 = "1" & Mid(Dich, 2)
Case 2 And S = 0 And S3 <> "0"
If (S1 >= "1" And S1 <= "9") Or (S1 = "0" And N = 5) Then Dich = "leû" & Space(1)
End Select
Chu = Chu & Dich
Next J
End Select
Vitri = InStr(1, Chu, "möôi moät", 1)
KetQua = KetQua & Chu
End If
Next N
Return
End Function
Sau khi e copy đoạn mã của bác vào module1 và This wordsheet thì đã có hiệu lực với Ctrl-x. E tiếp tục copy đoạn mã trên vào module2 mà nó không chạy
, nó chỉ có hiệu lực với Ctrl-x ah, mà đoạn mã trên e làm file.xla rồi add-in thì vẫn chạy bình thường.
Bây giờ e muốn đoạn mã trên chỉ có hiệu lực với file excel mà đã có đoạn mã vô hiệu Ctrl-x của bác thôi thì làm cách nào vậy. e cảm ơn bác
pen()
