Hỏi về cách chuyển đổi số thành chữ trên Macbook

[Binbo2020]

Mọi người làm ơn cho mình hỏi đối với máy Macbook dùng cách nào để chuyển số thành chữ được. Trước dùng windows thì quen cài các Add-Ins rồi, giờ chuyển sang máy mac không chạy file exe được nên không biết làm thế nào

 

[Lequocvan]

Mọi người làm ơn cho mình hỏi đối với máy Macbook dùng cách nào để chuyển số thành chữ được. Trước dùng windows thì quen cài các Add-Ins rồi, giờ chuyển sang máy mac không chạy file exe được nên không biết làm thế nào

Mac OSX vẫn dùng add-ins và vẫn dùng đoạn code ví dụ sau:
Public Function VND(So As Double) As String
Dim myArray
Dim str As String
str = Format(Fix(Abs(So)), "000000000000000000")
myArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", "n" & ChrW(259) & "m ", "s·u ", "b" & ChrW(7843) & "y ", "tám ", "chín ", "tri" & ChrW(7879) & "u, ", "nghìn", "t" & ChrW(7927) & ", ", "tri" & ChrW(7879) & "u, ", "nghìn, ", "", "tr" & ChrW(259) & "m ", "m" & ChrW(432) & ChrW(417) & "i ", "khÙng " & "m" & ChrW(432) & ChrW(417) & "i" & " khÙng ", "khÙng " & "m" & ChrW(432) & ChrW(417) & "i", "linh", "m" & ChrW(432) & ChrW(417) & "i" & " khÙng", "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " n" & ChrW(259) & "m", "m" & ChrW(432) & ChrW(417) & "i" & " l" & ChrW(259) & "m", "m" & ChrW(7897) & "t " & "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(7901) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7897) & "t", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7889) & "t", "¬m ", ChrW(273) & ChrW(7891) & "ng" & " ", "v‡ ", "xu ")
'MyArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", "n" & ChrW(259) & "m ", "s·u ", "b" & ChrW(7843) & "y ", "t·m ", "chÌn ", "tri" & ChrW(7879) & "u, ", "nghÏn, ", "t" & ChrW(7927) & ", ", "tri" & ChrW(7879) & "u, ", "nghÏn, ", "", "tr" & ChrW(259) & "m ", "m" & ChrW(432) & ChrW(417) & "i ", "khÙng " & "m" & ChrW(432) & ChrW(417) & "i" & " khÙng ", "khÙng " & "m" & ChrW(432) & ChrW(417) & "i", "l" & ChrW(7867), "m" & ChrW(432) & ChrW(417) & "i" & " khÙng", "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " n" & ChrW(259) & "m", "m" & ChrW(432) & ChrW(417) & "i" & " l" & ChrW(259) & "m", "m" & ChrW(7897) & "t " & "m" & ChrW(432) & ChrW(417) & "i", "m" & ChrW(432) & ChrW(7901) & "i", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7897) & "t", "m" & ChrW(432) & ChrW(417) & "i" & " m" & ChrW(7889) & "t", "¬m ", ChrW(273) & ChrW(7891) & "ng" & " ", "v‡ ", "xu ")


If Abs(So) > 999999999999999# Then
MsgBox "So qua lon, duoi nghin ty (Len(dayso) <= 15)"
Exit Function
End If
If Fix(So) = 0 Then
VND = "Không " & ChrW(273) & ChrW(7891) & "ng" & "."
Else
For i = 1 To Len(str)
If Left(str, i) <> 0 And Mid(str, (Int((i + 2) / 3) - 1) * 3 + 1, 3) <> 0 Then
VND = VND & myArray(Mid(str, i, 1)) & myArray(-(9 + i / 3) * (i Mod 3 = 0) - (15 + i Mod 3) * (i Mod 3 <> 0))
ElseIf i = 9 And Mid(str, 7, 3) = 0 And Left(str, 6) <> 0 Then
'VND = VND & MyArray(12) 'MyArray(12): ty
VND = Replace(VND, ",", "") & myArray(12) 'MyArray(12): ty
End If
Next
VND = IIf(So = 0, myArray(0) & myArray(30), "") _
& IIf(Fix(So) <> 0, VND & myArray(30), "") _
& IIf(Fix(So) <> 0 And Fix(So) <> So, myArray(31), "") _
& IIf(Fix(So) <> So, IIf(Abs(So - Fix(So)) < 0.1, "", myArray(Left(Right(Format(Abs(So), "#.00"), 2), 1)) _
& myArray(17)) & myArray(Right(Format(So, "#.00"), 1)) & myArray(32), "")
VND = Trim(Replace(Replace(Replace(Replace(Replace(Replace(Replace(VND, myArray(18), myArray(15)), myArray(19), myArray(20)), myArray(21), myArray(22)), myArray(23), myArray(24)), myArray(25), myArray(26)), myArray(27), myArray(28)), ", " & myArray(30), " " & myArray(30)))


'VND = FcaseVU(Dichchu(So), 1) + " " & ChrW(273) & ChrW(7891) & "ng."
'VND = UCase(Left(Dichchu(So), 1)) + Mid(Dichchu(So), 2, 999) + ChrW(273) & ChrW(7891) & "ng."

VND = UCase(Left(VND, 1)) & Mid(VND, 2) & "."
End If
End Function

 

[Binbo2020]

Đã tìm được cách cài add-ins cho máy Macbook, lưu lại cho bạn nào cần:
Cách 1 dùng máy cài windows cài add-ins ra xong coppy nguyên phần đã cài sang máy Mac, chỉ đường dẫn add-ins đến nơi vừa paste vào
Cách 2: download phần cài ra sẵn của add in trên mạng về xong làm tương tự.
Mình đã làm cách 2 với add-ins Tiện ích Việt (đường link download file đã cài ở phần bình luận)
https://vungoctuan.vn/2-cach-chuyen-so-thanh-chu-trong-excel-2159.html