Công thức excel

[nguyenuyen]

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

View more random threads:

• Lưu đồ kế toán
• Các phím tắt trên excle
• LÀM CÁCH NÀO ĐỂ TẢI FILE EXCEL ĐÍNH KÈM LÊN DIỄN ĐÀN VẬY Ạ?
• Không thể xem 2 file exel cùng một lúc
• Tổng hợp các cách dùng hàm để đánh số thứ tự
• Cài đặt in trong Excell.
• Tìm hiểu về hàm if tổng quát
• HTKK 3.1.3
• File Excel bị lổi, Xin Giúp Đỡ
• Bị lỗi trong dấu phân cách của excel

[quockhanhlaptop.com]

Ðề: 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)

[mycloud92]

Ðề: Công thức excel

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

[dichvumobile_vn]

Ðề: Công thức excel

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.

[duhocbluesea]

Ðề: 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

[panda41]

Ðề: 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!

[namtv91]

Ðề: 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

[hientatthanh]

Ðề: 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!

[actech1]

Ðề: 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.

[bebannha]

Ðề: 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