Đổi số thành chữ

Liên hệ QC
Status
Không mở trả lời sau này.
H

huynhtung85

Thành viên mới
Tham gia
15/9/11
Bài viết
44
Được thích
2
Anh chị cao thủ excel giúp em với,xin kính gửi các Anh ,Chị một file đổi số thành chữ ,Nhờ các Anh Chị chỉnh sửa lại dùm em,hiện ra số tiền bằng chữ làm mất chữ Chẵn sau lưng chữ đồng giúp em.em làm không được nhờ các Anh,Chị giúp em xin thành thật biết ơn.

Mail : huynhtung81@yahoo.com.vn
 

File đính kèm

huynhtung85 đã viết:
Anh chị cao thủ excel giúp em với,xin kính gửi các Anh ,Chị một file đổi số thành chữ ,Nhờ các Anh Chị chỉnh sửa lại dùm em,hiện ra số tiền bằng chữ làm mất chữ Chẵn sau lưng chữ đồng giúp em.em làm không được nhờ các Anh,Chị giúp em xin thành thật biết ơn.

Mail : huynhtung81@yahoo.com.vn
Nhấp chuột vào đây để mở rộng...
Công thức VN
Mã: 
[COLOR=#ff0000]Chu = "ch½n"[/COLOR] ' Chỗ này cũng vậy sửa thành [B]Chu = ""[/B]
          Case Else
Công thức VNU
Mã: 
           [COLOR=#ff0000]Chu = "ch½n"[/COLOR] '=> bạn bỏ chữ chẵn đi thàh [B]Chu = ""[/B]
          Case Else
Bạn xem file nhé.
 

File đính kèm

Có add-in không bạn? Mình cũng đang cần cái này lắm! Thanks bạn.
 
bạn HD kỹ thêm 1 chút được khg?
 
phucbi56 đã viết:
bạn HD kỹ thêm 1 chút được khg?
Nhấp chuột vào đây để mở rộng...
Bạn mở file excel của bạn lên, bấm Alt+F11, Insert => Module rồi copy đoạn mã sau vào
PHP: 
Option Explicit
Function VN(Amt)
Dim Resp As String, Tien As String, Dem As String, Doc As String, NHOM As String
Dim Chu As String, So1 As String, So2 As String, So3 As String, Dich As String, Vitri As String
Dim i As Integer, j As Integer, S As Integer

If Amt = 0 Then
  Resp = "Kh«ng ®ång"
Else
  If Abs(Amt) > 999999999999.99 Then
    Resp = "Sè qu¸ lín"
  Else
    If Amt < 0 Then
      Resp = "Trõ  "
    Else
      Resp = Space(0)
    End If
    Tien = Format(Abs(Amt), "###########0.00")
    Tien = Right(Space(12) + Tien, 15)
    Doc = Space(0): Dem = Doc
    Doc = Doc + "tr¨m  m­¬i  tû    "
    Doc = Doc + "tr¨m  m­¬i  triÖu "
    Doc = Doc + "tr¨m  m­¬i  ngµn  "
    Doc = Doc + "tr¨m  m­¬i  ®ång  "
    Dem = Dem + "mét  hai  ba   bèn  n¨m  s¸u  b¶y  t¸m  chÝn "
    For i = 1 To 5
      NHOM = Mid(Tien, i * 3 - 2, 3)
      If NHOM <> Space(3) Then
        Select Case NHOM
          Case "000"
            If i = 4 Then
              Chu = "®ång"
            Else
              Chu = Space(0)
            End If
          Case ".00"
            Chu = ""
            
          Case Else
            So1 = Left(NHOM, 1)
            So2 = Mid(NHOM, 2, 1)
            So3 = Right(NHOM, 1)
            Chu = Space(0)
            For j = 1 To 3
              Dich = Space(0)
              S = Val(Mid(NHOM, j, 1))
              If S > 0 Then
                Dich = Trim(Mid(Dem, S * 5 - 4, 5)) + " " + Trim(Mid(Doc, (i - 1) * 18 + j * 6 - 5, 6)) + " "
              End If
              Select Case j
                Case 1 And S = 0 And i = 4 And (Abs(Amt) < 100 And Abs(Amt) >= 1)
                  Dich = Space(0)
                Case 1 And S = 0 And i <> 1 And i <> 5
                  Dich = "kh«ng tr¨m "
                Case 2 And S = 1
                  Dich = "m­êi "
                Case 3 And S = 0 And NHOM <> Space(2) + "0"
                  Dich = Trim(Mid(Doc, (i - 1) * 18 + j * 6 - 5, 6)) + Space(1)
                Case 3 And S = 5 And So2 <> Space(1) And So2 <> "0"
                  Dich = "l" + Mid(Dich, 2)
                Case 2 And S = 0 And So3 <> "0"
                  If (So1 >= "0" And So1 <= "9") Or (So1 = "0" And i = 4) Then
                    Dich = "lÎ "
                  End If
              End Select
              Chu = Chu + Dich
            Next j
        End Select
        Vitri = InStr(1, Chu, "m­¬i mét", 1)
        If Vitri > 0 Then Mid(Chu, Vitri, 9) = "m­¬i mèt"
        Resp = Resp + Chu
      End If
    Next i
  End If
End If
If (Abs(Amt) < 10 ^ 8 And Abs(Amt) >= 10 ^ 6) Or (Abs(Amt) <= 99999 And Abs(Amt) >= 10 ^ 3) Then
    VN = "B»ng ch÷: " + UCase(Mid(Resp, 12, 1)) + RTrim(Mid(Resp, 13)) + "."
Else
    VN = "B»ng ch÷: " + UCase(Left(Resp, 1)) + RTrim(Mid(Resp, 2)) + "."
End If
End Function
Function VNU(Amt)
Dim Resp As String, Tien As String, Dem As String, Doc As String, NHOM As String
Dim Chu As String, So1 As String, So2 As String, So3 As String, Dich As String, Vitri As String
Dim i As Integer, j As Integer, S As Integer

If Amt = 0 Then
  Resp = "Kh«ng ®ång"
Else
  If Abs(Amt) > 999999999999.99 Then
    Resp = "Sè qu¸ lín"
  Else
    If Amt < 0 Then
      Resp = "Trõ  "
    Else
      Resp = Space(0)
    End If
    Tien = Format(Abs(Amt), "###########0.00")
    Tien = Right(Space(12) + Tien, 15)
    Doc = Space(0): Dem = Doc
    Doc = Doc + "tr¨m  m­¬i  tû    "
    Doc = Doc + "tr¨m  m­¬i  triÖu "
    Doc = Doc + "tr¨m  m­¬i  ngµn  "
    Doc = Doc + "tr¨m  m­¬i  ®ång  "
    Dem = Dem + "mét  hai  ba   bèn  n¨m  s¸u  b¶y  t¸m  chÝn "
    For i = 1 To 5
      NHOM = Mid(Tien, i * 3 - 2, 3)
      If NHOM <> Space(3) Then
        Select Case NHOM
          Case "000"
            If i = 4 Then
              Chu = "®ång"
            Else
              Chu = Space(0)
            End If
          Case ".00"
            Chu = ""
          Case Else
            So1 = Left(NHOM, 1)
            So2 = Mid(NHOM, 2, 1)
            So3 = Right(NHOM, 1)
            Chu = Space(0)
            For j = 1 To 3
              Dich = Space(0)
              S = Val(Mid(NHOM, j, 1))
              If S > 0 Then
                Dich = Trim(Mid(Dem, S * 5 - 4, 5)) + " " + Trim(Mid(Doc, (i - 1) * 18 + j * 6 - 5, 6)) + " "
              End If
              Select Case j
                Case 1 And S = 0 And i = 4 And (Abs(Amt) < 100 And Abs(Amt) >= 1)
                  Dich = Space(0)
                Case 1 And S = 0 And i <> 1 And i <> 5
                  Dich = "kh«ng tr¨m "
                Case 2 And S = 1
                  Dich = "m­êi "
                Case 3 And S = 0 And NHOM <> Space(2) + "0"
                  Dich = Trim(Mid(Doc, (i - 1) * 18 + j * 6 - 5, 6)) + Space(1)
                Case 3 And S = 5 And So2 <> Space(1) And So2 <> "0"
                  Dich = "l" + Mid(Dich, 2)
                Case 2 And S = 0 And So3 <> "0"
                  If (So1 >= "0" And So1 <= "9") Or (So1 = "0" And i = 4) Then
                    Dich = "lÎ "
                  End If
              End Select
              Chu = Chu + Dich
            Next j
        End Select
        Vitri = InStr(1, Chu, "m­¬i mét", 1)
        If Vitri > 0 Then Mid(Chu, Vitri, 9) = "m­¬i mèt"
        Resp = Resp + Chu
      End If
    Next i
  End If
End If
If (Abs(Amt) < 10 ^ 8 And Abs(Amt) >= 10 ^ 6) Or (Abs(Amt) <= 99999 And Abs(Amt) >= 10 ^ 3) Then
    VNU = UNI("B»ng ch÷: " & UCase(Mid(Resp, 12, 1)) + RTrim(Mid(Resp, 13)) + ".")
Else
    VNU = UNI("B»ng ch÷: " & UCase(Left(Resp, 1)) + RTrim(Mid(Resp, 2)) + ".")
End If
End Function
Function VNUNI(So)
    Dim Doc As String
    Doc = VN(Abs(So))
    VNUNI = UNI(Doc)
End Function
Function UNI(vnstr As String) As String
  Dim c As String, i As Integer
  For i = 1 To Len(vnstr)
     c = Mid(vnstr, i, 1)
     Select Case c
     Case "a": c = ChrW$(97)
     Case "¸": c = ChrW$(225)
     Case "µ": c = ChrW$(224)
     Case "¶": c = ChrW$(7843)
     Case "·": c = ChrW$(227)
     Case "¹": c = ChrW$(7841)
     Case "¨": c = ChrW$(259)
     Case "¾": c = ChrW$(7855)
     Case "»": c = ChrW$(7857)
     Case "¼": c = ChrW$(7859)
     Case "½": c = ChrW$(7861)
     Case "Æ": c = ChrW$(7863)
     Case "©": c = ChrW$(226)
     Case "Ê": c = ChrW$(7845)
     Case "Ç": c = ChrW$(7847)
     Case "È": c = ChrW$(7849)
     Case "É": c = ChrW$(7851)
     Case "Ë": c = ChrW$(7853)
     Case "e": c = ChrW$(101)
     Case "Ð": c = ChrW$(233)
     Case "Ì": c = ChrW$(232)
     Case "Î": c = ChrW$(7867)
     Case "Ï": c = ChrW$(7869)
     Case "Ñ": c = ChrW$(7865)
     Case "ª": c = ChrW$(234)
     Case "Õ": c = ChrW$(7871)
     Case "Ò": c = ChrW$(7873)
     Case "Ó": c = ChrW$(7875)
     Case "Ô": c = ChrW$(7877)
     Case "Ö": c = ChrW$(7879)
     Case "o": c = ChrW$(111)
     Case "ã": c = ChrW$(243)
     Case "ß": c = ChrW$(242)
     Case "á": c = ChrW$(7887)
     Case "â": c = ChrW$(245)
     Case "ä": c = ChrW$(7885)
     Case "«": c = ChrW$(244)
     Case "è": c = ChrW$(7889)
     Case "å": c = ChrW$(7891)
     Case "æ": c = ChrW$(7893)
     Case "ç": c = ChrW$(7895)
     Case "é": c = ChrW$(7897)
     Case "¬": c = ChrW$(417)
     Case "í": c = ChrW$(7899)
     Case "ê": c = ChrW$(7901)
     Case "ë": c = ChrW$(7903)
     Case "ì": c = ChrW$(7905)
     Case "î": c = ChrW$(7907)
     Case "i": c = ChrW$(105)
     Case "Ý": c = ChrW$(237)
     Case "×": c = ChrW$(236)
     Case "Ø": c = ChrW$(7881)
     Case "Ü": c = ChrW$(297)
     Case "Þ": c = ChrW$(7883)
     Case "u": c = ChrW$(117)
     Case "ó": c = ChrW$(250)
     Case "ï": c = ChrW$(249)
     Case "ñ": c = ChrW$(7911)
     Case "ò": c = ChrW$(361)
     Case "ô": c = ChrW$(7909)
     'Case "*": c = ChrW$(432)
     Case "­": c = ChrW$(432)
     Case "ø": c = ChrW$(7913)
     Case "õ": c = ChrW$(7915)
     Case "ö": c = ChrW$(7917)
     Case "÷": c = ChrW$(7919)
     Case "ù": c = ChrW$(7921)
     Case "y": c = ChrW$(121)
     Case "ý": c = ChrW$(253)
     Case "ú": c = ChrW$(7923)
     Case "û": c = ChrW$(7927)
     Case "ü": c = ChrW$(7929)
     Case "þ": c = ChrW$(7925)
     Case "®": c = ChrW$(273)
     Case "A": c = ChrW$(65)
     Case "¡": c = ChrW$(258)
     Case "¢": c = ChrW$(194)
     Case "E": c = ChrW$(69)
     Case "£": c = ChrW$(202)
     Case "O": c = ChrW$(79)
     Case "¤": c = ChrW$(212)
     Case "¥": c = ChrW$(416)
     Case "I": c = ChrW$(73)
     Case "U": c = ChrW$(85)
     Case "¦": c = ChrW$(431)
     Case "Y": c = ChrW$(89)
     Case "§": c = ChrW$(272)
  End Select
  UNI = UNI + c
Next i
End Function
Rồi tắt cửa sổ VBA đi ra excel dùng thử xem thế nào?
 
giúp em đỏi số thành chữ

Xin Anh,Chị cao thủ excel giúp em với ,em muốn ra Tổng số tiền ghi bằng chữ hiện tại thì Bằng chữ,em muốn thêm vào là Tổng số tiền ghi bằng chữ Anh,Chị Cao thủ giúp em nhe,em Cám ơn rất nhiều,file em gửi kèm
 

File đính kèm

huynhtung85 đã viết:
Xin Anh,Chị cao thủ excel giúp em với ,em muốn ra Tổng số tiền ghi bằng chữ hiện tại thì Bằng chữ,em muốn thêm vào là Tổng số tiền ghi bằng chữ Anh,Chị Cao thủ giúp em nhe,em Cám ơn rất nhiều,file em gửi kèm
Nhấp chuột vào đây để mở rộng...
Bạn xem file nhé, mình s­ửa cho bạn rồi đó
 

File đính kèm

Mình cám ơn bạn rất nhiều nhe.Chúc bạn vui vẻ và gập nhiều may mắn.thăng tiến trong công việc,cám ơn bạn.
 
Hiện tại số tiền thì bằng chữ bạn có thể viết phần HPH code và gửi lại cho mình mình xin nhe,thêm vào phần code của bạn và gửi lại cho mình xin Tổng số tiền ghi bằng chữ ,mình cám ơn bạn rất nhiều.
 
Lần chỉnh sửa cuối:
Status
Không mở trả lời sau này.
Web KT

Bài viết mới nhất

GPE-Trợ Lý
[GPE] TALK SHOW EXCEL TRONG SẢN XUẤT
Trả lời
0
Đọc
11
GPE-Trợ Lý
GPE-Trợ Lý
T
Bảng tính trợ cấp tinh giản biên chế theo NĐ 108
    • Thích
Trả lời
3
Đọc
997
trung_bhxh
T
T
Bảng tính trợ cấp theo Nghị định 178 và tính lương hưu
Trả lời
0
Đọc
17
trung_bhxh
T
L
Viết phần mềm đánh lô bằng Visual Basic
    • Thích
2 3
Trả lời
52
Đọc
103K
khanhvinhdai1
K
Mewwo98
Thay dấu ngăn cách sau chữ số hàng nghìn, hàng triệu, hàng tỷ trong Mail Merge
Trả lời
5
Đọc
82
ptm0412
ptm0412
Huyen9
Lỗi không mailings được.
Trả lời
3
Đọc
62
vanle33
vanle33
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
310
Đọc
23K
kunkoi9390
K
K
Có ai giúp mình lấy kết quả xổ số miền nam về file excel
Trả lời
0
Đọc
25
khanhvinhdai1
K
ptm0412
  • Question Question
Lấy dữ liệu web nhiều trang về file Excel bằng Power Query
    • Thích
Trả lời
5
Đọc
2K
ptm0412
ptm0412
H
Công thức tìm kết quả
Trả lời
11
Đọc
119
VetMini
V
V
Hàm dò tìm lấy giá trị của lần xuất hiện thứ n trong excel.
Trả lời
9
Đọc
1K
VetMini
V
N
Nhờ các anh chỉ chỉnh lỗi giúp em với ạ, em cảm ơn ạ.
Trả lời
3
Đọc
77
minhminh27
minhminh27
T
File quản lý thiết bị trong trường học!
Trả lời
4
Đọc
136
VetMini
V
Xoainon3005
Xin file mẫu kế hoạch sản xuất theo tháng ngành động cơ
Trả lời
1
Đọc
123
VetMini
V
Momominh
Sơ đồ hàng hóa trong Container
Trả lời
3
Đọc
125
VetMini
V
hungtin1997
  • Question Question
[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột
Trả lời
6
Đọc
413
A HOANG 620
A
LuuAnh980
Add in tạo QR code miễn phí.
Trả lời
14
Đọc
556
htin1997
htin1997
tramcannt
Các bác cho hỏi làm cách nào để thu nhỏ thanh công thức này với ạ. Em cảm ơn.
Trả lời
2
Đọc
58
Nhattanktnn
Nhattanktnn
S
  • Question Question
Điều chỉnh kích thước dòng tự động theo trang in
Trả lời
5
Đọc
146
HUONGHCKT
H
A
Tạo vé Loto bằng Excel
2
Trả lời
20
Đọc
23K
Tuấn tata
Tuấn tata
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới Ất Tỵ 2025
Back
Top Bottom