tạo tên hàm trong excel

[Tuanh]

Em có đoạn code sau:

Sub lap()
X = 0
Y = 0
Z = 0
Range("A1").Select
Range("B1").Select
Range("C1").Select
Do While Abs(Z - Y) < 2
Y = X
X = Range("A1").Value + Range("B1").Value * X
Z = X
Loop
Range("C1").Value = Z
End Sub

Với đoạn code trên ,nếu cho A1=1,B1=3 thì ô C1=4.Giả sữ bây giờ em muốn tính giá trị ở ô A5=2,ô B5=5 thì ô C5=2,em phải sửa đoạn code trên như thế nào?Em muốn tạo 1 hàm giả lặp thì có cách nào không?rất mong sự giúp đỡ của mọi người.

 

[Mr Okebab]

Em có đoạn code sau:

Sub lap()
X = 0
Y = 0
Z = 0
Range("A1").Select
Range("B1").Select
Range("C1").Select
Do While Abs(Z - Y) < 2
Y = X
X = Range("A1").Value + Range("B1").Value * X
Z = X
Loop
Range("C1").Value = Z
End Sub

Với đoạn code trên ,nếu cho A1=1,B1=3 thì ô C1=4.Giả sữ bây giờ em muốn tính giá trị ở ô A5=2,ô B5=5 thì ô C5=2,em phải sửa đoạn code trên như thế nào?Em muốn tạo 1 hàm giả lặp thì có cách nào không?rất mong sự giúp đỡ của mọi người.

Bạn thử nhé :

Function Lap(AA As Range, BB As Range, CC As Range) As Double
    On Error Resume Next
    Application.Volatile (False)
    Dim X As Double, Y As Double, Z As Double
    Do While Abs(Z - Y) < 2
        Y = X
        X = AA + BB * X
        Z = X
    Loop
    Lap = Z
End Function

Thân!