Công thức excel để chuyển đổi số thành chữ trong peso philippine

Microsoft Excel là một chương trình phần mềm bảng tính tuyệt vời để tính toán và sắp xếp dữ liệu. Nhưng có một hạn chế

Microsoft Excel là một chương trình phần mềm bảng tính tuyệt vời để tính toán và sắp xếp dữ liệu. Chà, nó được thiết kế đại khái để xử lý các mảng dữ liệu lớn sau phiên bản tiền nhiệm của nó —  VisiCalc.  

Truyện ngắn. Năm 1928, một sinh viên trường Kinh doanh Harvard, Daniel, Bricklin có ý tưởng về một chiếc máy tính có thể nhìn thấy. Sau đó, Bricklin và Bob Frankston đã tạo ra cái gọi là ứng dụng "Kẻ giết người đầu tiên" cho PC; .  

Phải đọc. https. //www. tài nguyên dss. com/history/sshistory. html

Microsoft Excel thực sự giải quyết vấn đề hồ sơ kế toán. Do đó, đây là một trong những công cụ tốt nhất đối với những người dùng bao gồm cả tôi.  

Nhưng có một hạn chế với chương trình mạnh mẽ này, đôi khi, chúng ta cần chuyển đổi số tiền tệ [Peso, Dollar, Euro, GPC, bảng Anh, v.v. ] sang Từ tiếng Anh và không có chức năng tích hợp sẵn này

ví dụ.  

• 123 đến "một trăm hai mươi ba. "
• $123 đến "một trăm hai mươi ba đô la. "
• $123. 50 đến "một trăm hai mươi ba đô la năm mươi xu. "
• Php 123. 00 đến "một trăm hai mươi ba peso. "
• Php 123. 50 đến "một trăm hai mươi ba peso và năm mươi centavos. "

Tuy nhiên, điều tốt là, họ đã tạo ra một mô-đun chức năng. [tìm thấy trên https. //ủng hộ. văn phòng. com/en-us/article/Chuyển-số-thành-từ-a0d166fb-e1ea-4090-95c8-69442cd55d98] Thành thật mà nói, nó mang lại cho tôi rất nhiều lợi ích. Tôi không cần phải phát minh lại bánh xe [tạo từ đầu]

Hướng dẫn Excel này giải thích cách chuyển đổi tiền tệ thành từ [có ảnh chụp màn hình và hướng dẫn từng bước]

Câu hỏi. Trong Microsoft Excel, làm cách nào để chuyển đổi tiền tệ thành từ?

Ví dụ,

$100 nên đọc là "chính xác một trăm"

Trả lời. Để chuyển đổi đơn vị tiền tệ thành chữ, bạn cần mở bảng tính Excel của mình. Nhấn Alt+F11 và tạo một mô-đun mới. [Trong menu Chèn, chọn Mô-đun].

Sau đó dán vào mô-đun mới hai chức năng sau

Function English[ByVal N As Currency] As String

   Const Thousand = 1000@
   Const Million = Thousand * Thousand
   Const Billion = Thousand * Million
   Const Trillion = Thousand * Billion

   If [N = 0@] Then English = "zero": Exit Function

   Dim Buf As String: If [N < 0@] Then Buf = "negative " Else Buf = ""
   Dim Frac As Currency: Frac = Abs[N - Fix[N]]
   If [N < 0@ Or Frac  0@] Then N = Abs[Fix[N]]
   Dim AtLeastOne As Integer: AtLeastOne = N >= 1

   If [N >= Trillion] Then
      Buf = Buf & EnglishDigitGroup[Int[N / Trillion]] & " trillion"
      N = N - Int[N / Trillion] * Trillion
      If [N >= 1@] Then Buf = Buf & " "
   End If

   If [N >= Billion] Then
      Buf = Buf & EnglishDigitGroup[Int[N / Billion]] & " billion"
      N = N - Int[N / Billion] * Billion
      If [N >= 1@] Then Buf = Buf & " "
   End If

   If [N >= Million] Then
      Buf = Buf & EnglishDigitGroup[N \ Million] & " million"
      N = N Mod Million
      If [N >= 1@] Then Buf = Buf & " "
   End If

   If [N >= Thousand] Then
      Buf = Buf & EnglishDigitGroup[N \ Thousand] & " thousand"
      N = N Mod Thousand
      If [N >= 1@] Then Buf = Buf & " "
   End If

   If [N >= 1@] Then
      Buf = Buf & EnglishDigitGroup[N]
   End If

   If [Frac = 0@] Then
      Buf = Buf & " exactly"
   ElseIf [Int[Frac * 100@] = Frac * 100@] Then
      If AtLeastOne Then Buf = Buf & " and "
      Buf = Buf & Format$[Frac * 100@, "00"] & "/100"
   Else
      If AtLeastOne Then Buf = Buf & " and "
      Buf = Buf & Format$[Frac * 10000@, "0000"] & "/10000"
   End If

   English = Buf
End Function

Private Function EnglishDigitGroup[ByVal N As Integer] As String

   Const Hundred = " hundred"
   Const One = "one"
   Const Two = "two"
   Const Three = "three"
   Const Four = "four"
   Const Five = "five"
   Const Six = "six"
   Const Seven = "seven"
   Const Eight = "eight"
   Const Nine = "nine"
   Dim Buf As String: Buf = ""
   Dim Flag As Integer: Flag = False

   Select Case [N \ 100]
      Case 0: Buf = "": Flag = False
      Case 1: Buf = One & Hundred: Flag = True
      Case 2: Buf = Two & Hundred: Flag = True
      Case 3: Buf = Three & Hundred: Flag = True
      Case 4: Buf = Four & Hundred: Flag = True
      Case 5: Buf = Five & Hundred: Flag = True
      Case 6: Buf = Six & Hundred: Flag = True
      Case 7: Buf = Seven & Hundred: Flag = True
      Case 8: Buf = Eight & Hundred: Flag = True
      Case 9: Buf = Nine & Hundred: Flag = True
   End Select

   If [Flag  False] Then N = N Mod 100
   If [N > 0] Then
      If [Flag  False] Then Buf = Buf & " "
   Else
      EnglishDigitGroup = Buf
      Exit Function
   End If

   Select Case [N \ 10]
      Case 0, 1: Flag = False
      Case 2: Buf = Buf & "twenty": Flag = True
      Case 3: Buf = Buf & "thirty": Flag = True
      Case 4: Buf = Buf & "forty": Flag = True
      Case 5: Buf = Buf & "fifty": Flag = True
      Case 6: Buf = Buf & "sixty": Flag = True
      Case 7: Buf = Buf & "seventy": Flag = True
      Case 8: Buf = Buf & "eighty": Flag = True
      Case 9: Buf = Buf & "ninety": Flag = True
   End Select

   If [Flag  False] Then N = N Mod 10
   If [N > 0] Then
      If [Flag  False] Then Buf = Buf & "-"
   Else
      EnglishDigitGroup = Buf
      Exit Function
   End If

   Select Case [N]
      Case 0:
      Case 1: Buf = Buf & One
      Case 2: Buf = Buf & Two
      Case 3: Buf = Buf & Three
      Case 4: Buf = Buf & Four
      Case 5: Buf = Buf & Five
      Case 6: Buf = Buf & Six
      Case 7: Buf = Buf & Seven
      Case 8: Buf = Buf & Eight
      Case 9: Buf = Buf & Nine
      Case 10: Buf = Buf & "ten"
      Case 11: Buf = Buf & "eleven"
      Case 12: Buf = Buf & "twelve"
      Case 13: Buf = Buf & "thirteen"
      Case 14: Buf = Buf & "fourteen"
      Case 15: Buf = Buf & "fifteen"
      Case 16: Buf = Buf & "sixteen"
      Case 17: Buf = Buf & "seventeen"
      Case 18: Buf = Buf & "eighteen"
      Case 19: Buf = Buf & "nineteen"
   End Select

   EnglishDigitGroup = Buf

End Function

Bây giờ, khi bạn muốn chuyển đổi tiền tệ thành chữ, bạn sẽ tham khảo hàm tiếng Anh trong bảng tính Excel của mình như sau