Chủ đề: Công thức excel
-
12-25-2008, 12:23 AM #1
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Công thức excel
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àm nhật kí- sổ cái trên excel
- hiển thị số trong excel 2007
- Hàm sumif
- Ứng dụng Excel trong Quản lý bán hàng - Phần mềm QLBH bằng Excel (Bản Pro)
- Hỏi: Xóa cột cũ mà giá trị cột mới vẫn tồn tại.
- Sử dụng Hàm ngày và thời gian
- Bài tập Execl từ cơ bản tới nâng cao....( p/s : có lời giải kèm theo na mọi người )
- Cách chuyển số thành chữ trong Excel - Video hướng dẫn
- Cần anh chị gúp hàm này với
- đém ô(dòng) trong excel
-
12-25-2008, 06:09 AM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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)
-
12-25-2008, 04:46 PM #3
Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 72
Ðề: Công thức excel
Có làm thử mà nó báo lỗi hòai dongnamnb ơi.
-
12-25-2008, 05:51 PM #4
Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 52
Ðề: Công thức excel
Gửi bởi hoatrenda
-
12-26-2008, 12:15 AM #5
Silver member
- Ngày tham gia
- May 2016
- Bài viết
- 5
Ðề: 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
-
12-26-2008, 07:56 AM #6
Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 9
Ðề: 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!
-
12-26-2008, 03:44 PM #7
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
-
12-26-2008, 04:14 PM #8
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 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!
-
12-26-2008, 04:41 PM #9
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 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.
-
12-26-2008, 05:00 PM #10
Silver member
- Ngày tham gia
- May 2016
- Bài viết
- 47
Ðề: 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
Bao cao su đôn dên là sản phẩm tương trợ dục tình được người dùng tại Việt Nam ưa chuộng. Hiện tại trên thị trường sản phẩm này có rất nhiều dòng với mẫu mã đa dạng. Dưới đây là Top 5 bao cao su đôn...
Bao cao su đôn dên X78PM gai toàn thân để làm mới cuộc vui