Công thức excel

[vgreen23]

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

[bebanve]

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

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 )

[antkingdo]

Ðề: Công thức excel

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

[kevinvu1987]

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

[noithatductinh]

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

[kothemyeuz]

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

[nguyenthypro]

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

[phamhoasp]

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

Đó 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ì:

• Decimal symbol: . (phân cách số lẻ)
• Group digit symbol: , (phân cách hàng ngàn)
• List separator: , (phân cách danh sách)

Nếu bạn dùng theo chuẩn của Việt nam thì:

• Decimal symbol: , (phân cách số lẻ)
• Group digit symbol: . (phân cách hàng ngàn)
• 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.

[minhthu1987]

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

[ledinh121189]

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

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.