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/2 12 cuốicuối
kết quả từ 1 tới 10 trên 20

Ðề tài:
Công thức excel

  1. #1
    Tham gia ngày
    Oct 2008
    Bài gởi
    136
    Cảm ơn
    171
    Được cảm ơn 13 lần trong 11 bài viết
    Rep Power
    0

  2. # ADS
    DanketoanAds Circuit advertisement
    Tham gia ngày
    Always
    Bài gởi
    Many
     
  3. #2
    Tham gia ngày
    Dec 2007
    Bài gởi
    342
    Cảm ơn
    221
    Được cảm ơn 220 lần trong 118 bài viết
    Rep Power
    19

    Ðề: Công thức excel

    Bạn mở Excell và thực hiện các bước như sau nhé:
    1. Ấn tổ hợp phí Alt + F11
    2. Vào menu Insert/Module
    3. Copy đoạn code sau và Paste vào Module vừa chèn

    Function DocSo(X As String) As String
    Dim DonVi, Am As Boolean
    DonVi = Array("", "ngh×n ", "triÖu ", "tû ")
    Dim So As String, Chuoi As String, Temp As String, X1 As String, c As Byte, l As Byte, k As Byte, ChuoiDem As String
    Dim id As Byte
    X = Format(Val(X), "#"): Am = False
    If Len(X) > 18 Then
    DocSo = "Sè qu¸ lín"
    Exit Function
    End If
    If Left(X, 1) = "-" Then
    Am = True
    X = Right(X, Len(X) - 1)
    End If
    If X = 0 Then
    DocSo = "Kh«ng"
    Exit Function
    End If
    'Xu ly doc nhung so >100 ty
    l = Len(X)
    c = Fix(l / 9)
    If l Mod 9 = 0 Then
    k = 9
    Else
    k = l Mod 9
    End If
    X1 = Left(X, k)
    X = Right(X, l - k)
    Do Until X1 = ""
    id = 0
    Do While (X1 <> "")
    If Len(X1) <> 0 Then
    So = Lay3so(X1)
    X1 = Left(X1, Len(X1) - Len(So))
    Temp = Tinh3so(So)
    So = Temp
    If So <> "" Then
    Temp = Temp + DonVi(id)
    Chuoi = Temp + Chuoi
    End If
    id = id + 1
    End If
    Loop
    l = Len(X)
    c = Fix(l)
    If (l <> 0) And (l Mod 9) = 0 Then
    k = 9
    Else
    k = l Mod 9
    End If
    X1 = Left(X, k)
    X = Right(X, l - k)
    ChuoiDem = ChuoiDem & Chuoi
    Chuoi = ""
    If X = "" And X1 <> "" Then ChuoiDem = ChuoiDem & "tû "
    Loop
    ChuoiDem = IIf(Am, "¢m " & Trim$(ChuoiDem), UCase(Left(ChuoiDem, 1)) & Right(ChuoiDem, Len(ChuoiDem) - 1))
    DocSo = ChuoiDem
    End Function
    Function Lay3so(X As String) As String
    Dim So As String
    If Len(X) >= 3 Then
    So = Right(X, 3)
    Else
    So = Right(X, Len(X))
    End If
    Lay3so = So
    End Function
    Function Tinh3so(X As String) As String
    Dim Chuoi As String, Temp As String
    Dim Flag0 As Boolean, Flag1 As Boolean
    Temp = X
    Dim KySo
    KySo = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn")
    If Len(X) = 3 Then
    If X <> "000" Then 'If Left(x, 1) <> 0 Then
    Chuoi = KySo(Left(X, 1)) & " tr¨m "
    End If
    X = Right(X, 2)
    End If
    If Len(X) = 2 Then
    If Left(X, 1) = 0 Then
    If Right(X, 1) <> 0 Then
    Chuoi = Chuoi & "linh "
    End If
    Flag0 = True
    Else
    If Left(X, 1) = 1 Then
    Chuoi = Chuoi & "m­êi "
    Else
    Chuoi = Chuoi & KySo(Left(X, 1)) & " m­¬i "
    Flag1 = True
    End If
    End If
    X = Right(X, 1)
    End If
    If Right(X, 1) <> "0" Then
    If Left(X, 1) = "5" And Not Flag0 Then
    If Len(Temp) = 1 Then
    Chuoi = Chuoi & "n¨m "
    Else
    Chuoi = Chuoi & "l¨m "
    End If
    Else
    If Left(X, 1) = "1" And Not (Not Flag1 Or Flag0) And Chuoi <> "" Then
    Chuoi = Chuoi & "mèt "
    Else
    Chuoi = Chuoi & KySo(Left(X, 1)) & " "
    End If
    End If
    End If
    Tinh3so = Chuoi
    End Function


    4. Ấn tổ hợp phím Alt + Q để quay về bảng tính Excell

    Bây giờ bạn đã có sẵn hàm DocSo trong file Excell rồi đấy, bạn dùng nó như những hàm khác. VD: Bạn gõ vào ô A1:
    =DocSo(12345)
    hoặc:
    =DocSo(A2)
    Cung cấp thẻ diệt virus BKAV giá cạnh tranh, siêu khuyến mại, có hóa đơn. Mọi lúc, mọi nơi chỉ cần alo 0983178339 là có.


  4. #3
    Tham gia ngày
    Sep 2008
    Nơi ở
    Bình Phước iu thương
    Bài gởi
    174
    Cảm ơn
    1,407
    Được cảm ơn 1,513 lần trong 705 bài viết
    Rep Power
    28

    Ðề: Công thức excel

    Có làm thử mà nó báo lỗi hòai dongnamnb ơi.
    You'll never walk alone

  5. #4
    Tham gia ngày
    Dec 2007
    Bài gởi
    342
    Cảm ơn
    221
    Được cảm ơn 220 lần trong 118 bài viết
    Rep Power
    19

    Ðề: Công thức excel

    Trích Nguyên văn bởi hoatrenda View Post
    Có làm thử mà nó báo lỗi hòai dongnamnb ơi.
    Nó báo lỗi thế nào? Bạn đọc thông báo lỗi đi để mọi người trợ giúp.
    Cung cấp thẻ diệt virus BKAV giá cạnh tranh, siêu khuyến mại, có hóa đơn. Mọi lúc, mọi nơi chỉ cần alo 0983178339 là có.

  6. #5
    Tham gia ngày
    Oct 2008
    Bài gởi
    136
    Cảm ơn
    171
    Được cảm ơn 13 lần trong 11 bài viết
    Rep Power
    0

    Ðề: Công thức excel

    Cảm ơn dongnamb nhé, mình làm được rồi nhưng cho mình hỏi tí nữa, sao mình mở file excel khác thì công thức ko ra và báo :#name?Thanks

  7. #6
    Tham gia ngày
    Dec 2008
    Bài gởi
    1
    Cảm ơn
    9
    Được cảm ơn 0 lần trong 0 bài viết
    Rep Power
    0

    Ðề: Công thức excel

    uh, mình cũng làm mà chuyển trang khá thì không được! có cách nào giúp mình với!

  8. #7
    Tham gia ngày
    Dec 2007
    Bài gởi
    342
    Cảm ơn
    221
    Được cảm ơn 220 lần trong 118 bài viết
    Rep Power
    19

    Ðề: Công thức excel

    Để xử dụng được cho tất cả các tệp Excel hai bạn làm như sau nhé:
    Sau khi làm tất cả các bước trên, bạn vào menu File\Save as...
    Ô File name: bạn đặt tên file là DocSo
    Ô Save as type: Bạn chọn Microsoft Office Excel Add-In (ở dưới cùng)
    Rồi chọn Save để lưu file add-in lại

    Sau đó bạn vào menu Tools\Add-Ins...
    Nháy chuột vào Browse... rồi chọn đến file vừa lưu và ấn OK

    Bây giờ thì bạn có thể dùng hàm đọc số cho bất kỳ file excel nào trong máy tính của bạn. Tuy nhiên khi copy đến máy khác thì bạn nhớ copy cả file DocSo đi theo và add-in nó vào máy đó mới đọc số được
    Cung cấp thẻ diệt virus BKAV giá cạnh tranh, siêu khuyến mại, có hóa đơn. Mọi lúc, mọi nơi chỉ cần alo 0983178339 là có.

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


  10. #8
    Tham gia ngày
    Jun 2008
    Bài gởi
    181
    Cảm ơn
    355
    Được cảm ơn 203 lần trong 36 bài viết
    Rep Power
    16

    Ðề: Công thức excel

    Thực ra add-in hay UDF chuyển số thành chữ trên mạng đã có rất nhiều rồi
    Bạn vào đây tham khảo

    Bạn tìm download công cụ vntool đó, mạnh lắm. Có thể chuyển đổi giữa USD và VND
    -------------
    Nếu bạn cần chuyển đổi bằng công thức excel thì p/m cho mình mình sẽ gửi file cho

    --------------------
    Mình tìm lại được rồi
    Bạn vào đây down load nhé

    Bạn nhớ đọc kỹ 02 file hướng dẫn sử dụng trong dó nhé

    Thân!
    thay đổi nội dung bởi: feelingyes, 26-12-2008 lúc 09:33

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


  12. #9
    Tham gia ngày
    Jul 2008
    Bài gởi
    62
    Cảm ơn
    36
    Được cảm ơn 9 lần trong 7 bài viết
    Rep Power
    0

    Ðề: Công thức excel

    Mình bị lỗi font, bạn chỉ mình với nha, mình củm ơn bạn trước.

  13. #10
    Tham gia ngày
    Jun 2008
    Bài gởi
    181
    Cảm ơn
    355
    Được cảm ơn 203 lần trong 36 bài viết
    Rep Power
    16

    Ðề: Công thức excel

    FILE EXCELL

    File Excell trên là mình tham khảo code của Thầy PhamDuyLong. Với 03 font
    - VNI, UNICODE, abc

    Chúc vui

  14. Các thành viên đã cảm ơn feelingyes về bài viết hữu ích này :


Trang 1/2 12 cuốicuối

Thông tin về chủ đề

Users Browsing this Thread

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

Chủ đề tương tự

  1. Trả lời: 11
    Bài mới gởi: 07-11-2010, 07:48
  2. Trả lời: 15
    Bài mới gởi: 12-07-2010, 02:01
  3. Những thách thức IT lớn nhất!
    By xuongrongdat in forum Bí quyết kinh doanh
    Trả lời: 0
    Bài mới gởi: 22-07-2008, 11:28
  4. Ban tin van ban ngay 23/05/2008
    By augialong in forum CẬP NHẬT VĂN BẢN PHÁP LUẬT
    Trả lời: 2
    Bài mới gởi: 24-05-2008, 08:50
  5. Bản cáo bạch là gì
    By minhlong in forum Chứng khoán
    Trả lời: 0
    Bài mới gởi: 17-08-2006, 07:14

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
  •