Công thức excel

pttngan_kt84

Member
Hội viên mới
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
 
Ðề: Công thức excel

Có làm thử mà nó báo lỗi hòai dongnamnb ơi.
 
Ðề: 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
 
Ðề: 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!
 
Ðề: 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!
 
Sửa lần cuối:
Ðề: 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.
 
Ðề: 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
 
Ðề: 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 ********* 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.*********.com/forum/showthread.php?t=20290
 
Ðề: 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 )
 
Ðề: 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(").").
 
Ðề: 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
 
Ðề: 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ữ.
 
Ðề: 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
 
Ðề: 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ì:
  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.
 
Ðề: 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?
 
Ðề: 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.
 
Sửa lần cuối:

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top