Chào các anh chị.
Như mọi người đã biết khi dùng 1 hàm trong excel khi mở ngoặc sẽ hiển thị các tham số của hàm (ví dụ ảnh đính kèm).
Tuy nhiên đối với hàm tự tạo có hàm nhiều biến sẽ khó nhớ thứ tự trước sau, vậy làm thế nào để hiện thị được tên biến như vậy?
Cảm ơn các anh chị.
_________ VD hàm:
Function Ac(Gama As Single, LDinh As Single, Phi As Integer)
On Error GoTo sai
Dim A As Single, B As Single, D As Single, Pi As Single, ThapPhan As Single
Dim Doo As Byte, Phut As Byte, LenPhi As Byte
Dim PhiStr As String
Pi = 3.14159
PhiStr = CStr(Phi)
LenPhi = Len(PhiStr)
'Tach do phut
If LenPhi = 3 Then
Doo = Mid(Phi, 1, 1)
Phut = Mid(Phi, 2, 2)
Else
Doo = Mid(Phi, 1, 2)
Phut = Mid(Phi, 3, 2)
End If
ThapPhan = Application.Radians((Doo + Phut / 60))
A = Round((0.25 * Pi) / (1 / Tan(ThapPhan) + ThapPhan - Pi / 2), 3)
B = 1 + Pi / (1 / Tan(ThapPhan) + ThapPhan - Pi / 2)
D = Pi * (1 / Tan(ThapPhan)) / (1 / Tan(ThapPhan) + ThapPhan - Pi / 2)
Ac = (Gama * 0.1 * (1 * A + 1 * B) + D * LDinh) / 1
Exit Function
Như mọi người đã biết khi dùng 1 hàm trong excel khi mở ngoặc sẽ hiển thị các tham số của hàm (ví dụ ảnh đính kèm).
Tuy nhiên đối với hàm tự tạo có hàm nhiều biến sẽ khó nhớ thứ tự trước sau, vậy làm thế nào để hiện thị được tên biến như vậy?
Cảm ơn các anh chị.
_________ VD hàm:
Function Ac(Gama As Single, LDinh As Single, Phi As Integer)
On Error GoTo sai
Dim A As Single, B As Single, D As Single, Pi As Single, ThapPhan As Single
Dim Doo As Byte, Phut As Byte, LenPhi As Byte
Dim PhiStr As String
Pi = 3.14159
PhiStr = CStr(Phi)
LenPhi = Len(PhiStr)
'Tach do phut
If LenPhi = 3 Then
Doo = Mid(Phi, 1, 1)
Phut = Mid(Phi, 2, 2)
Else
Doo = Mid(Phi, 1, 2)
Phut = Mid(Phi, 3, 2)
End If
ThapPhan = Application.Radians((Doo + Phut / 60))
A = Round((0.25 * Pi) / (1 / Tan(ThapPhan) + ThapPhan - Pi / 2), 3)
B = 1 + Pi / (1 / Tan(ThapPhan) + ThapPhan - Pi / 2)
D = Pi * (1 / Tan(ThapPhan)) / (1 / Tan(ThapPhan) + ThapPhan - Pi / 2)
Ac = (Gama * 0.1 * (1 * A + 1 * B) + D * LDinh) / 1
Exit Function