Hướng dẫn lập hàm tính Icsv trong excelx

Hướng dẫn lập hàm tính Icsv trong excel. Like nếu bạn thấy có ích :))
Cảm ơn Đỗ Mạnh Hùng đã giúp tôi hoàn thành cái này.
B1: Khởi động Excel - Cái này chắc ai cũng biết làm .... hí hí
B2: Ấn tổ hợp phím Alt-F11 để chuyển qua môi trường soạn thảo
B3: Trên môi trường soạn thảo , vào Insert/Module
B4: Hiện ra cửa sổ soạn thảo, bạn paste đoạn sau vào :
Quote:
Function ICSV(U As Double, R As Double, A As Double, alpha As Double) As Double
Dim d As Integer
Dim i As Double
i = 11: d = 0
Do
d = d + 1: i = i - 0.001 * (R * i + A * i ^ alpha - U) / (R + A * 0.03 * i ^ (alpha - 1))
Loop While (d < 30000)
ICSV = i
End Function
B5: Ấn tổ hợp Alt-Q để thoát
B6: Chọn File/SaveAs:
-Trong khung File Name: Nhập tên tập tin theo ý mình (abc.xla).
-Trong khung Save As type: Chọn Microsft Excel Add-In.
-Nhấn OK để lưu lại thư viện dưới dạng tệp Add-In.
B7: Khởi động lại Excel. Chọn lệnh Tools.Add-Ins ( File/Option/Add in)
- Phần manage. Chọn Go
B8: Trong danh sách Add-Ins available, đánh dấu chọn vào mục có đúng tên thư viện của mình. Nếu
chưa có thì bấm Browse ... để dẫn tới thư mục đã save file
Kể từ đây bạn có thể dùng các hàm mới này như những hàm đã được định nghĩa sẵn trong Excel. Chúng
sẽ được liệt kê trong nhóm hàm User Defined.
Với đoạn lập trình như trên, ta có hàm Icsv(U,R,A,alpha)