thắc mắc về lỗi MgsBox trong VBA

[quanghao262]

em vừa tạo được VBA nội suy nhưng không hiểu sao dòng lệnh MgsBox không hoạt động được.khi em nhập 1 khoảng ngoài giá trị nội suy thì:
1 là nó không thông báo gì
hoặc nó báo lỗi MgsBox như hình dưới
còn đây là dòng lệnh của em

Function noisuy(vungtra As Range, X As Double)
Dim ktra As Boolean
Dim i As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
For i = 1 To vungtra.Cells.Count
ktra = False
If vungtra.Cells(i, 1) < X And vungtra.Cells(i + 1, 1) >= X Then
x1 = vungtra.Cells(i, 1): x2 = vungtra.Cells(i + 1, 1)
y1 = vungtra.Cells(i + 1, 2): y2 = vungtra.Cells(i + 1, 2)
noisuy = y1 + (y2 - y1) * (X - x1) / (x2 - x1)
ktra = True
End If
Next i
If ktra = False Then
mgsbox "ngoai vung gia tri", vbInformation
Exit Function
End If
End Function

mong anh chị giúp đỡ.

 

[TrungChinhs]

Bạn sửa Mgsbox thành Msgbox xem sao ?