THÔNG BÁO LỊCH TẬP HUẤN CỦA CỤC THUẾ VỀ CHÍNH SÁCH THUẾ MỚI
TỪ NGÀY 17/07/2014 ĐẾN NGÀY 23/07/2014


DOWNLOAD CÁC VĂN BẢN HIỆU LỰC NĂM 2014 VỀ THUẾ TNDN - TNCN - GTGT - HÓA ĐƠN

Trang 1/6 123 ... cuốicuối
kết quả từ 1 tới 10 trên 52

Ðề tài:
Cách đổi số ra chữ trong Excel

  1. #1
    Tham gia ngày
    Jun 2010
    Bài gởi
    121
    Cảm ơn
    169
    Được cảm ơn 123 lần trong 67 bài viết
    Rep Power
    11

    57 Cách đổi số ra chữ trong Excel

    Để tạo 1 đoạn mã Macro chuyển đổi số ra chữ trong 1 file Excel bạn làm các bước sau:
    1. Mở và Save tên tập tin Excel mới
    2. Đoạn mã Macro luôn chạy ở mức "Security trung bình or thấp": chọn Tools-->Macro-->Security-->chọn Medium hoặc Low
    3. Vào chương trình Visual Basic: chọn Tools-->Macro-->Security-->Visual Basic Editor--> Hiện cửa sổ Microsoft Visual Basic
    4. Trong cửa sổ Microsoft Visual Basic: chọn Insert --> Module--> xuất hiện khoảng trắng bên phải --> bạn "Copy" đoạn mã Macro màu xanh dưới đây vào khoảng trắng này

    Function DocSoVni(conso) As String
    s09 = Array("", " moät", " hai", " ba", " boán", " naêm", " saùu", " baûy", " taùm", " chín")
    lop3 = Array("", " trieäu", " nghìn", " tyû")
    If Trim(conso) = "" Then
    DocSoVni = ""
    ElseIf IsNumeric(conso) = True Then
    If conso < 0 Then dau = "aâm " Else dau = ""
    conso = Application.WorksheetFunction.Round(Abs(conso), 0)
    conso = " " & conso
    conso = Replace(conso, ",", "", 1)
    vt = InStr(1, conso, "E")
    If vt > 0 Then
    sonhan = Val(Mid(conso, vt + 1))
    conso = Trim(Mid(conso, 2, vt - 2))
    conso = conso & String(sonhan - Len(conso) + 1, "0")
    End If
    conso = Trim(conso)
    sochuso = Len(conso) Mod 9
    If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
    docso = ""
    i = 1
    lop = 1
    Do
    n1 = Mid(conso, i, 1)
    n2 = Mid(conso, i + 1, 1)
    n3 = Mid(conso, i + 2, 1)
    baso = Mid(conso, i, 3)
    i = i + 3
    If n1 & n2 & n3 = "000" Then
    If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " tyû" Else s123 = ""
    Else
    If n1 = 0 Then
    If docso = "" Then s1 = "" Else s1 = " khoâng traêm"
    Else
    s1 = s09(n1) & " traêm"
    End If
    If n2 = 0 Then
    If s1 = "" Or n3 = 0 Then
    s2 = ""
    Else
    s2 = " linh"
    End If
    Else
    If n2 = 1 Then s2 = " möôøi" Else s2 = s09(n2) & " möôi"
    End If
    If n3 = 1 Then
    If n2 = 1 Or n2 = 0 Then s3 = " moät" Else s3 = " moát"
    ElseIf n3 = 5 And n2 <> 0 Then
    s3 = " laêm"
    Else
    s3 = s09(n3)
    End If
    If i > Len(conso) Then
    s123 = s1 & s2 & s3
    Else
    s123 = s1 & s2 & s3 & lop3(lop)
    End If
    End If
    lop = lop + 1
    If lop > 3 Then lop = 1
    docso = docso & s123
    If i > Len(conso) Then Exit Do
    Loop
    If docso = "" Then DocSoVni = "khoâng" Else DocSoVni = dau & Trim(docso)
    Else
    DocSoVni = conso
    End If
    End Function
    Function DocSoUni(conso) As String
    s09 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", " n" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n")
    lop3 = Array("", " tri" & ChrW(7879) & "u", " ngh" & ChrW(236) & "n", " t" & ChrW(7927))
    'Stop
    If Trim(conso) = "" Then
    DocSoUni = ""
    ElseIf IsNumeric(conso) = True Then
    If conso < 0 Then dau = ChrW(226) & "m " Else dau = ""
    conso = Application.WorksheetFunction.Round(Abs(conso), 0)
    conso = " " & conso
    conso = Replace(conso, ",", "", 1)
    vt = InStr(1, conso, "E")
    If vt > 0 Then
    sonhan = Val(Mid(conso, vt + 1))
    conso = Trim(Mid(conso, 2, vt - 2))
    conso = conso & String(sonhan - Len(conso) + 1, "0")
    End If
    conso = Trim(conso)
    sochuso = Len(conso) Mod 9
    If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
    docso = ""
    i = 1
    lop = 1
    Do
    n1 = Mid(conso, i, 1)
    n2 = Mid(conso, i + 1, 1)
    n3 = Mid(conso, i + 2, 1)
    baso = Mid(conso, i, 3)
    i = i + 3
    If n1 & n2 & n3 = "000" Then
    If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " t" & ChrW(7927) Else s123 = ""
    Else
    If n1 = 0 Then
    If docso = "" Then s1 = "" Else s1 = " kh" & ChrW(244) & "ng tr" & ChrW(259) & "m"
    Else
    s1 = s09(n1) & " tr" & ChrW(259) & "m"
    End If
    If n2 = 0 Then
    If s1 = "" Or n3 = 0 Then
    s2 = ""
    Else
    s2 = " linh"
    End If
    Else
    If n2 = 1 Then s2 = " m" & ChrW(432) & ChrW(7901) & "i" Else s2 = s09(n2) & " m" & ChrW(432) & ChrW(417) & "i"
    End If
    If n3 = 1 Then
    If n2 = 1 Or n2 = 0 Then s3 = " m" & ChrW(7897) & "t" Else s3 = " m" & ChrW(7889) & "t"
    ElseIf n3 = 5 And n2 <> 0 Then
    s3 = " l" & ChrW(259) & "m"
    Else
    s3 = s09(n3)
    End If
    If i > Len(conso) Then
    s123 = s1 & s2 & s3
    Else
    s123 = s1 & s2 & s3 & lop3(lop)
    End If
    End If
    lop = lop + 1
    If lop > 3 Then lop = 1
    docso = docso & s123
    If i > Len(conso) Then Exit Do
    Loop
    If docso = "" Then DocSoUni = "kh" & ChrW(244) & "ng" Else DocSoUni = dau & Trim(docso)
    Else
    DocSoUni = conso
    End If
    End Function

    5. Save và turn off cửa sổ Microsoft Visual Basic
    6. Tại cửa sổ Microsoft Excel ta sẽ test như sau:
    - Địa chỉ A1 gõ: 123.456.789
    - Địa chỉ A2 gõ: =DocSoUni(A1) hoặc =DocSoVni(A1)
    *Do đơn vị tiền tệ có thể là VNĐ, YEN, USD, EURO...nên kết hợp thêm lệnh xử lý text...bạn gõ lại như sau:
    =DocSoUni(A1)&" VNĐ" hoặc =DocSoVni(A1)&" USD" (nhớ thêm khoảng cách trong dấu "")

    **Chú thích:
    - Trong đoạn mã Macro có 2 dòng màu xanh dương in đậm là DocSoVni DocSoUni... đây là câu lệnh để đọc số theo dạng font Unicode hoặc Vni-Times...ai dùng font nào thì dùng câu lệnh đó
    - Nên thực hiện trên Office 2003 vì có thể thao tác dễ dàng trên Visual Basic...
    Chúc bạn thành công!!!

    Các bài viết khác cùng chuyên mục:

    thay đổi nội dung bởi: TranTuan, 04-04-2012 lúc 10:26 Lý do: Vui lòng không viết hoa toàn bộ tiêu đề.
    Ôi! Tình yêu là gì mà có thể biến con người thành Thiên Thần hay Ác Quỷ !!!

  2. Có 10 thành viên sau đây cảm ơn dhthanh8x vì bài viết có ích này:


  3. # ADS
    DanketoanAds Circuit advertisement
    Tham gia ngày
    Always
    Bài gởi
    Many
     
  4. #2
    Tham gia ngày
    Oct 2011
    Bài gởi
    4
    Cảm ơn
    1
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Re: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Cảm ơn dhthanh8x nha
    Mình làm đc rồi nhưng chữ đầu tiên trong thành tiền không viết hoa đc thôi và tới phân cách hàng triệu, nghìn hay hàng trăm không có dấu phẩy
    bạn có cách nào giúp minh không?
    Cảm ơn bạn lần nửa nha
    Chúc nhà mình luôn đoàn kết

  5. #3
    Tham gia ngày
    Jun 2010
    Bài gởi
    121
    Cảm ơn
    169
    Được cảm ơn 123 lần trong 67 bài viết
    Rep Power
    11

    Ðề: Re: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Trích Nguyên văn bởi Ngua View Post
    Cảm ơn dhthanh8x nha
    Mình làm đc rồi nhưng chữ đầu tiên trong thành tiền không viết hoa đc thôi và tới phân cách hàng triệu, nghìn hay hàng trăm không có dấu phẩy
    bạn có cách nào giúp minh không?
    Cảm ơn bạn lần nửa nha
    Chúc nhà mình luôn đoàn kết
    Chữ viết hoa đầu dòng thì quá giới hạn của minh....nhờ cao thủ IT xin chỉ dùm thêm đoạn mã
    Còn dấu phân cách thì trong luật kế toán không quy định nên bạn không nên quan trong hóa nó...cách viết này "cổ" rồi
    Clich cảm ơn là ok
    Ôi! Tình yêu là gì mà có thể biến con người thành Thiên Thần hay Ác Quỷ !!!

  6. #4
    Tham gia ngày
    Jun 2008
    Nơi ở
    HCM city
    Bài gởi
    2,844
    Cảm ơn
    361
    Được cảm ơn 1,986 lần trong 1,197 bài viết
    Rep Power
    60

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Cái này rắc rối quá, mình có vnTools, chỉ cần addin vào excel trên thanh công cụ (Toolbars) sẽ hiển thị vntools: đổi số thành chữ chỉ bằng 1 click, có đơn vị VNĐ và USD
    ...Thôi hãy sống cho trọn đời nguyện ước
    Vạn lý tình, xuôi ngược cũng duyên thôi...

  7. #5
    Tham gia ngày
    Apr 2011
    Nơi ở
    Ha noi
    Bài gởi
    316
    Cảm ơn
    1,537
    Được cảm ơn 931 lần trong 644 bài viết
    Rep Power
    19

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Trích Nguyên văn bởi dhthanh8x View Post
    Để tạo 1 đoạn mã Macro chuyển đổi số ra chữ trong 1 file Excel bạn làm các bước sau:
    1. Mở và Save tên tập tin Excel mới
    2. Đoạn mã Macro luôn chạy ở mức "Security trung bình or thấp": chọn Tools-->Macro-->Security-->chọn Medium hoặc Low
    3. Vào chương trình Visual Basic: chọn Tools-->Macro-->Security-->Visual Basic Editor--> Hiện cửa sổ Microsoft Visual Basic
    4. Trong cửa sổ Microsoft Visual Basic: chọn Insert --> Module--> xuất hiện khoảng trắng bên phải --> bạn "Copy" đoạn mã Macro màu xanh dưới đây vào khoảng trắng này

    Function DocSoVni(conso) As String
    s09 = Array("", " moät", " hai", " ba", " boán", " naêm", " saùu", " baûy", " taùm", " chín")
    lop3 = Array("", " trieäu", " nghìn", " tyû")
    If Trim(conso) = "" Then
    DocSoVni = ""
    ElseIf IsNumeric(conso) = True Then
    If conso < 0 Then dau = "aâm " Else dau = ""
    conso = Application.WorksheetFunction.Round(Abs(conso), 0)
    conso = " " & conso
    conso = Replace(conso, ",", "", 1)
    vt = InStr(1, conso, "E")
    If vt > 0 Then
    sonhan = Val(Mid(conso, vt + 1))
    conso = Trim(Mid(conso, 2, vt - 2))
    conso = conso & String(sonhan - Len(conso) + 1, "0")
    End If
    conso = Trim(conso)
    sochuso = Len(conso) Mod 9
    If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
    docso = ""
    i = 1
    lop = 1
    Do
    n1 = Mid(conso, i, 1)
    n2 = Mid(conso, i + 1, 1)
    n3 = Mid(conso, i + 2, 1)
    baso = Mid(conso, i, 3)
    i = i + 3
    If n1 & n2 & n3 = "000" Then
    If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " tyû" Else s123 = ""
    Else
    If n1 = 0 Then
    If docso = "" Then s1 = "" Else s1 = " khoâng traêm"
    Else
    s1 = s09(n1) & " traêm"
    End If
    If n2 = 0 Then
    If s1 = "" Or n3 = 0 Then
    s2 = ""
    Else
    s2 = " linh"
    End If
    Else
    If n2 = 1 Then s2 = " möôøi" Else s2 = s09(n2) & " möôi"
    End If
    If n3 = 1 Then
    If n2 = 1 Or n2 = 0 Then s3 = " moät" Else s3 = " moát"
    ElseIf n3 = 5 And n2 <> 0 Then
    s3 = " laêm"
    Else
    s3 = s09(n3)
    End If
    If i > Len(conso) Then
    s123 = s1 & s2 & s3
    Else
    s123 = s1 & s2 & s3 & lop3(lop)
    End If
    End If
    lop = lop + 1
    If lop > 3 Then lop = 1
    docso = docso & s123
    If i > Len(conso) Then Exit Do
    Loop
    If docso = "" Then DocSoVni = "khoâng" Else DocSoVni = dau & Trim(docso)
    Else
    DocSoVni = conso
    End If
    End Function
    Function DocSoUni(conso) As String
    s09 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", " n" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n")
    lop3 = Array("", " tri" & ChrW(7879) & "u", " ngh" & ChrW(236) & "n", " t" & ChrW(7927))
    'Stop
    If Trim(conso) = "" Then
    DocSoUni = ""
    ElseIf IsNumeric(conso) = True Then
    If conso < 0 Then dau = ChrW(226) & "m " Else dau = ""
    conso = Application.WorksheetFunction.Round(Abs(conso), 0)
    conso = " " & conso
    conso = Replace(conso, ",", "", 1)
    vt = InStr(1, conso, "E")
    If vt > 0 Then
    sonhan = Val(Mid(conso, vt + 1))
    conso = Trim(Mid(conso, 2, vt - 2))
    conso = conso & String(sonhan - Len(conso) + 1, "0")
    End If
    conso = Trim(conso)
    sochuso = Len(conso) Mod 9
    If sochuso > 0 Then conso = String(9 - (sochuso Mod 12), "0") & conso
    docso = ""
    i = 1
    lop = 1
    Do
    n1 = Mid(conso, i, 1)
    n2 = Mid(conso, i + 1, 1)
    n3 = Mid(conso, i + 2, 1)
    baso = Mid(conso, i, 3)
    i = i + 3
    If n1 & n2 & n3 = "000" Then
    If docso <> "" And lop = 3 And Len(conso) - i > 2 Then s123 = " t" & ChrW(7927) Else s123 = ""
    Else
    If n1 = 0 Then
    If docso = "" Then s1 = "" Else s1 = " kh" & ChrW(244) & "ng tr" & ChrW(259) & "m"
    Else
    s1 = s09(n1) & " tr" & ChrW(259) & "m"
    End If
    If n2 = 0 Then
    If s1 = "" Or n3 = 0 Then
    s2 = ""
    Else
    s2 = " linh"
    End If
    Else
    If n2 = 1 Then s2 = " m" & ChrW(432) & ChrW(7901) & "i" Else s2 = s09(n2) & " m" & ChrW(432) & ChrW(417) & "i"
    End If
    If n3 = 1 Then
    If n2 = 1 Or n2 = 0 Then s3 = " m" & ChrW(7897) & "t" Else s3 = " m" & ChrW(7889) & "t"
    ElseIf n3 = 5 And n2 <> 0 Then
    s3 = " l" & ChrW(259) & "m"
    Else
    s3 = s09(n3)
    End If
    If i > Len(conso) Then
    s123 = s1 & s2 & s3
    Else
    s123 = s1 & s2 & s3 & lop3(lop)
    End If
    End If
    lop = lop + 1
    If lop > 3 Then lop = 1
    docso = docso & s123
    If i > Len(conso) Then Exit Do
    Loop
    If docso = "" Then DocSoUni = "kh" & ChrW(244) & "ng" Else DocSoUni = dau & Trim(docso)
    Else
    DocSoUni = conso
    End If
    End Function

    5. Save và turn off cửa sổ Microsoft Visual Basic
    6. Tại cửa sổ Microsoft Excel ta sẽ test như sau:
    - Địa chỉ A1 gõ: 123.456.789
    - Địa chỉ A2 gõ: =DocSoUni(A1) hoặc =DocSoVni(A1)
    *Do đơn vị tiền tệ có thể là VNĐ, YEN, USD, EURO...nên kết hợp thêm lệnh xử lý text...bạn gõ lại như sau:
    =DocSoUni(A1)&" VNĐ" hoặc =DocSoVni(A1)&" USD" (nhớ thêm khoảng cách trong dấu "")

    **Chú thích:
    - Trong đoạn mã Macro có 2 dòng màu xanh dương in đậm là DocSoVni DocSoUni... đây là câu lệnh để đọc số theo dạng font Unicode hoặc Vni-Times...ai dùng font nào thì dùng câu lệnh đó
    - Nên thực hiện trên Office 2003 vì có thể thao tác dễ dàng trên Visual Basic...
    Chúc bạn thành công!!!
    Cảm ơn bạn nhiều nha
    m làm đk rùi
    hjhj
    Tôi yêu em chân thành , đằm thắm
    Cầu em được người tình như tôi đã yêu em !

  8. #6
    Tham gia ngày
    Oct 2011
    Bài gởi
    106
    Cảm ơn
    8
    Được cảm ơn 42 lần trong 32 bài viết
    Rep Power
    7

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    cái này phức tạp quá
    tớ có cái add đọc số thành chữ muốn thì cho tớ cái mail tớ gửi cho, cài nhanh chỉ mấy thao tác là ok

  9. Có 3 thành viên sau đây cảm ơn quachhuyprp vì bài viết có ích này:


  10. #7
    Tham gia ngày
    Apr 2011
    Nơi ở
    Ha noi
    Bài gởi
    316
    Cảm ơn
    1,537
    Được cảm ơn 931 lần trong 644 bài viết
    Rep Power
    19

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Trích Nguyên văn bởi quachhuyprp View Post
    cái này phức tạp quá
    tớ có cái add đọc số thành chữ muốn thì cho tớ cái mail tớ gửi cho, cài nhanh chỉ mấy thao tác là ok
    Cho m để học hỏi thêm với
    tumpm1987@gmail.com
    Thank !
    Tôi yêu em chân thành , đằm thắm
    Cầu em được người tình như tôi đã yêu em !

  11. #8
    Tham gia ngày
    Nov 2011
    Bài gởi
    34
    Cảm ơn
    0
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Bạn nào có cách khác đơn giản hơn không,thấy cách này phức tạp quá.Có thể cho mình xin công thức và cách làm đc ko? mail của mình giapch@gmail.com

  12. #9
    Tham gia ngày
    Aug 2010
    Bài gởi
    139
    Cảm ơn
    27
    Được cảm ơn 33 lần trong 24 bài viết
    Rep Power
    10

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    Trích Nguyên văn bởi quachhuyprp View Post
    cái này phức tạp quá
    tớ có cái add đọc số thành chữ muốn thì cho tớ cái mail tớ gửi cho, cài nhanh chỉ mấy thao tác là ok
    bạn gửi cho mình với, mail của mình là hienphan170387@gmail.com
    thank
    có những thứ không mua được bằng tiền
    nhưng mua được bằng rất nhiều tiền

  13. #10
    Tham gia ngày
    Dec 2009
    Bài gởi
    2
    Cảm ơn
    3
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: CÁCH ĐỔI SỐ RA CHỮ TRONG EXCEL

    bạn gửi cho mình với haubong8310@gmail.com

Trang 1/6 123 ... cuốicuối

Thông tin về chủ đề

Users Browsing this Thread

Hiện đang có 2 người xem chủ đề này. (0 thành viên và 2 khách)

Quyền hạn

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •