Tạo hàm Daucham()

[truonggiang73]

Trong Excel tôi hay phải sử dụng :
Giả sử tại ô A1 có giá trị là 123.456.789 (Định dạng dấu chấm phân cách nhóm số)
Tại ô A2 tôi có công thức :="Giá trị của ô A1 là "& A1&" USD"; kết quả là :
Giá trị của ô A1 là 123456789 USD
Nhờ mọi người lập giúp cho hàm Daucham() để khi nhập công thức
="Giá trị của ô A1 là "& Daucham(A1)&" USD"
thì được kết quả là
Giá trị của ô A1 là 123.456.789 USD

Cảm ơn nhiều

 

[ndu96081631]

Trong Excel tôi hay phải sử dụng :
Giả sử tại ô A1 có giá trị là 123.456.789 (Định dạng dấu chấm phân cách nhóm số)
Tại ô A2 tôi có công thức :="Giá trị của ô A1 là "& A1&" USD"; kết quả là :
Giá trị của ô A1 là 123456789 USD
Nhờ mọi người lập giúp cho hàm Daucham() để khi nhập công thức
="Giá trị của ô A1 là "& Daucham(A1)&" USD"
thì được kết quả là
Giá trị của ô A1 là 123.456.789 USD

Cảm ơn nhiều

Hổng có hàm DauCham() gì ráo trọi
Công thức bạn cần là:

=TEXT(A1,"""Giá trị của A1 là ""#.##0"" USD""")

Với điều kiện dấu phân cách trên máy bạn thật sự là dấu chấm
Còn nếu dấu phân cách trên máy bạn là dấu phẩy thì phải thêm chút thủ thuật

="Giá trị của A1 là "&SUBSTITUTE(TRIM(TEXT(A1,"### ### ### ### ###"))," ",".")&" USD"

Công thức dưới tuy dài nhưng đúng trên mọi máy tính

 

[SA_DQ]

Xin gởi bạn 1 tham khảo viết hàm

Option Explicit
Function DauCham(Num As Double) As String
 Dim Chu As String:              Const Ph As String = "."
 Dim TF As Byte, jJ As Long
 
 Chu = CStr(Num)
 TF = InStr(Chu, Ph)
 If TF = 0 Then
   TF = Len(Chu) + 1
 Else
   Chu = Left(Chu, TF - 1) & "," & Mid(Chu, TF + 1, 9)
 End If
 For jJ = TF - 3 To 2 Step -3
   Chu = Left(Chu, jJ - 1) & Ph & Mid(Chu, jJ, Len(Chu))
 Next jJ
 DauCham = Chu & " USD"
End Function

Bạn có thể kiểm lại thêm nha.