Công thức excel

Thảo luận trong 'Excel căn bản' bắt đầu bởi pttngan_kt84, 24/12/08.

  1. pttngan_kt84

    pttngan_kt84 New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Có anh chị nào biết chỉ giúp mình với. Từ số tiền bằng số sử dụng công thứ như thế nào ra số tiền bằng chữ? Chỉ dẫn dùng mình với
     
  2. dongnamnb

    dongnamnb Member Hội viên mới

    Được cảm ơn:
    1
    Điểm thành tích:
    6
    Ðề: 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)
     
  3. Ðề: Công thức excel

    Có làm thử mà nó báo lỗi hòai dongnamnb ơi.
     
  4. dongnamnb

    dongnamnb Member Hội viên mới

    Được cảm ơn:
    1
    Điểm thành tích:
    6
    Ðề: Công thức excel

    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.
     
  5. pttngan_kt84

    pttngan_kt84 New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    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
     
  6. ng_h1985

    ng_h1985 New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    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!
     
  7. dongnamnb

    dongnamnb Member Hội viên mới

    Được cảm ơn:
    1
    Điểm thành tích:
    6
    Ðề: 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
     
  8. feelingyes

    feelingyes New Member Hội viên mới

    Được cảm ơn:
    3
    Điểm thành tích:
    0
    Ðề: 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!
     
    Chỉnh sửa cuối: 26/12/08
  9. ngocvy

    ngocvy New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    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.
     
  10. feelingyes

    feelingyes New Member Hội viên mới

    Được cảm ơn:
    3
    Điểm thành tích:
    0
    Ðề: 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
     
  11. thuhangbo25

    thuhangbo25 New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    mình làm theo hướng dẫn và đã thành công cảm ơn bạn dongnamnb. Mình có đọc bên trang webketoan họ có file phiếu thu chi cũng tự chuyển chữ khá hay nhưng mình đọc mà không hiểu các công thức trong đó. Không biết làm kiểu gì cho nó ra được như thế khi mình tạo những phát sinh khác.Các bạn xem và chỉ cho mình cách làm nhé.Cảm ơn nhiều nhiều!!!
    http://www.webketoan.com/forum/showthread.php?t=20290
     
  12. explainking

    explainking New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Bạn ơi ,mình bị lỗi font rồi, bạn xem giúp dùm mình nhé! (M­êi hai ngh×n ba tr¨m bèn m­¬i l¨m )
     
  13. pttngan_kt84

    pttngan_kt84 New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Cảm ơn feelingyes nhiều nhiều, mình làm được rồi.
     
  14. mita2k2t

    mita2k2t New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Dịch số thành chữ nè. http://www.pcworld. com.vn
    Kết hợp thêm hàm and và trim.
    Chẳng hạn: trim("Bằng chữ")&vnd(tên ô;true)&trim(").").
     
  15. letoanquan

    letoanquan New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    1
    Ðề: Công thức excel

    Bạn ơi máy tính mình dùng hệ điều hành MOS nên tổ hợp phím alt+ F11 của bạn mình không thể thực hiện được. giúp mình tìm cách khác được ko? mình đang dùng Macbook mà :-( Thanks
     
  16. chungz1989

    chungz1989 Because I say so Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    bạn cần chuyển từ số sang chữ thì chỉ cần thêm dấu ' trước số tiền đó là đã chuyển được rồi đó. ví dụ như cần chuyển 200.000 sang chữ thì chỉ cần ghi là '200.000 thôi là máy sẽ hiểu là chữ.
     
  17. huephung

    huephung New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Cả nhà ơi cho mình hỏi: Mình làm trong excel: đánh số 123456789 thì bấm vào dấu phẩy thể hiện hàng nghin sau đó bấm vào lùi 2 số không sẽ được số là: 123.456.789 đúng không ạ, nhưng máy của mình nó không như vậy, mình bấm vào dấu phấy và lùi 2 số không lại ra số: 123.456.789.00. Mình đã bấm vào thanh công cụ lùi 2 số không rồi nhưng nó lại ra 123456789.0.0.Mình không muốn có 2 số không đằng sau thì làm như thế nào? Các bạn giúp mình với
     
  18. phatnq2002

    phatnq2002 Tích cực giảm cân... Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Đó là do cái "mắc mớ" của việc dùng dấu phân cách không theo chuẩn khi định nghĩa trong khu vực Regional and Language Settings của Control Panel.
    Nếu bạn dùng theo chuẩn English (USA) thì:
    1. Decimal symbol: . (phân cách số lẻ)
    2. Group digit symbol: , (phân cách hàng ngàn)
    3. List separator: , (phân cách danh sách)
    Nếu bạn dùng theo chuẩn của Việt nam thì:
    1. Decimal symbol: , (phân cách số lẻ)
    2. Group digit symbol: . (phân cách hàng ngàn)
    3. List separator: ; (phân cách danh sách)

    Trong trường hợp lỗi của bạn, bạn chuyển sang định dạng Việt nam nhưng bạn vẫn để List separator là dấu , (phẩy) thay vì là ; (chấm phẩy). Bạn thử chỉnh lại, và định dạng lại xem có đúng vậy không.
     
  19. holly9_84

    holly9_84 New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Thế nếu mình muốn thêm chữ "đồng" vào sau thì phải làm thế nào. Giống như trong phiếu thu, chi ấy?
     
  20. Linh_nico

    Linh_nico ~♥~ iu ... nhứt dkt☻ Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: Công thức excel

    Trong tập tin VNtool có đầy đủ mà bạn, bạn down về rồi cài đặt .sau đó vào hộp điều khiển : Mumber to Text, bạn cài đặt là xong.
     
    Chỉnh sửa cuối: 9/6/09

Chia sẻ trang này

XenForo Add-ons by Brivium ™ © 2012-2013 Brivium LLC.