Đổi số thành chữ cho Macbook

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

Thường xuyên xử lý và tính toán dữ liệu với bảng tính Excel, nếu với dữ liệu liên quan đến tiền tệ thì việc muốn đổi số thành chữ sẽ rất nhiều. Các bạn cũng có thể thủ công ngồi nhập chữ từ những con số, nhưng nếu với dữ liệu nhiều và đòi hỏi độ chính xác các bạn không thể ngồi nhập thủ công được. Các bạn có thể cài đặt phần mềm vnTools để giúp các bạn đổi số thành chữ một cách nhanh chóng và hiệu quả.

Bài viết hướng dẫn cách đổi số thành chữ trong Excel 2010 bằng phần mềm vnTools, với Excel 2007 và Excel 2013 các bạn có thể thao tác tương tự.

Bước 1: Các bạn cần tải và cài đặt phần mềm vnTools vào hệ thống.

http://PKMacBook.com/uploads/2017/11/24/vntools_120.rar

Bước 2: Thêm Add-in vào Excel.

1. Trên thanh công cụ của Excel các bạn chọn File -> Options.

Đổi số thành chữ cho Macbook

2. Tại menu bên trái Excel Options các bạn chọn Add-ins.

Đổi số thành chữ cho Macbook

3. Trong phần Manage các bạn chọn Excel Add-ins và chọn Go.

Đổi số thành chữ cho Macbook

4. Các bạn chọn tiếp Browse trong hộp thoại Add-ins.

Đổi số thành chữ cho Macbook

5. Trong hộp thoại Browse của Excel các bạn tìm đến file chứa thư mục cài đặt của vnTools và chọn file Ufunctions.xlam. Sau đó nhấn OK.

Đổi số thành chữ cho Macbook

6. Đánh dấu vào ô vuông trước NTD’s Tools và chọn OK.

Đổi số thành chữ cho Macbook

Vậy là các bạn đã thêm vnTools vào Excel.

Đổi số thành chữ cho Macbook

Bước 3: Sử dụng vnTools để chuyển đổi số thành chữ.

1. Chuyển đổi số thành chữ theo Tiếng Việt.

Các bạn chọn ô cần số cần chuyển đổi sau đó trong tab vnTools các bạn chọn Đổi số thành chữ (VN).

Đổi số thành chữ cho Macbook

Xuất hiện hộp thoại Number to Text (VN) các bạn chọn đơn vị trong Đ/vị chính, phụ sau đó nhấn vào biểu tượng dấu trong phần Ô chứa kết quả.

Đổi số thành chữ cho Macbook

Sau đó xuất hiện một hộp thoại nhỏ, các bạn chọn vào ô muốn chứa kết quả trong Excel và nhấn vào biểu tượng trong hộp thoại.

Đổi số thành chữ cho Macbook

Hộp thoại đầy đủ của Number to Text (VN) xuất hiện các bạn chọn VND().

Đổi số thành chữ cho Macbook

Kết quả sẽ được như sau:

Đổi số thành chữ cho Macbook

2. Chuyển đổi thành chữ theo Tiếng Anh.

Các bạn thực hiện tương tự như chuyển đổi thành chữ theo Tiếng Việt nhưng thay vì chọn vnTools -> Đổi số thành chữ (VN) thì các bạn chọn vnTools -> Đổi số thành chữ (EN).

Đổi số thành chữ cho Macbook

Kết quả như sau:

Đổi số thành chữ cho Macbook

3. Các bạn cũng có thể sử dụng hàm trực tiếp.

Có các hàm chuyển đổi như sau:

=VND(số cần đổi): đổi số thành chữ theo Tiếng Việt.

=VND(số cần đổi, true): đổi số thành chữ theo Tiếng Việt có chữ “đồng” phía cuối của chữ.

=USD(số cần đổi): đổi số thành chữ theo Tiếng Anh.

=USD(số cần đổi, true): đổi số thành chữ theo Tiếng Anh có chữ “Dollar” ở phía cuối chữ.

Ví dụ: =VND(A8).

Kết quả sẽ như sau:

Đổi số thành chữ cho Macbook

Như vậy với phần mềm vnTools, các bạn có thể nhanh chóng có thêm Add-in vào Excel giúp các bạn đổi số thành chữ một cách nhanh chóng và chính xác. Chúc các bạn thành công!

Nguồn tham khảo từ Internet

Xem thêm:

  • Cách tạo quote online trực tuyến nhanh và đẹp nhất
  • Ngâm chân nước muối có tác dụng gì? ngâm trong bao lâu?
  • Bảng chiều cao cân nặng chuẩn của nam
  • Pathfinder là gì? Cách dùng Pathfinder trong AI (Adobe Illustrator)
  • Đặc sản Huế – Những món ăn đặc sản Huế làm quà ngon nhất

Bài viết cùng chủ đề:

  • Đổi số thành chữ cho Macbook

    Chữa lỗi Safari không vào được mạng, ngừng hoạt động

  • Đổi số thành chữ cho Macbook

    Cách sửa lỗi không nghe được Spotify trên Web

  • Đổi số thành chữ cho Macbook

    Cách tự động chuyển đổi tiền tệ trong Google Trang tính

  • Đổi số thành chữ cho Macbook

    RSS là gì? Sử dụng RSS để làm gì?

  • Đổi số thành chữ cho Macbook

    Lorem Ipsum là gì? Vì sao sử dụng Lorem Ipsum

  • Đổi số thành chữ cho Macbook

    Những phím tắt mới và cơ bản trên Windows 11

  • Đổi số thành chữ cho Macbook

    Cách tùy chỉnh phím tắt trên Menu Start Windows 11

  • Đổi số thành chữ cho Macbook

    Cách dùng Google để tìm kiếm trên một trang web cụ thể

  • Đổi số thành chữ cho Macbook

    Cách dọn dẹp dữ liệu rác trên Windows 11

  • Đổi số thành chữ cho Macbook

    Mẹo họp trực tuyến và làm việc tại nhà hiệu quả

  • Đổi số thành chữ cho Macbook

    Cách sửa lỗi WaasMedic.exe chiếm hết CPU và ổ cứng trên Windows 10, 11

  • Đổi số thành chữ cho Macbook

    Cách tìm địa chỉ IP gốc của một Email

  • Đổi số thành chữ cho Macbook

    Cách ẩn, hiện thanh Taskbar trên Windows 11

  • Đổi số thành chữ cho Macbook

    Cách tạo phím tắt tăng giảm âm lượng trên máy tính

  • Đổi số thành chữ cho Macbook

    Cách Report website, gửi báo cáo trang web xấu tới Google

  • Đổi số thành chữ cho Macbook

    Cách thêm và xóa danh mục tab trên Gmail

Đăng nhập