File NAY BỊ lỗi gì (1 người xem)

[namhungskec]

Dear mọi người.

EM vừa viết 1 file có FUNCTION trong VBA XEL. Vậy nó bị lỗi. Hàm trả về giá trị sai hết. Mong các cao thủ chỉ giáo.

File của em đây ah

 

[Quang_Hải]

Dear mọi người.

EM vừa viết 1 file có FUNCTION trong VBA XEL. Vậy nó bị lỗi. Hàm trả về giá trị sai hết. Mong các cao thủ chỉ giáo.

File của em đây ah

Public Function taochuoi(x As Range) As String
Dim a As Double
a = x.Value
If a > 0 Then taochuoi = " day la so duong"
If a < 0 Then taochuoi = " day la so am"
End Function

 

[Ba Tê]

Dear mọi người.

EM vừa viết 1 file có FUNCTION trong VBA XEL. Vậy nó bị lỗi. Hàm trả về giá trị sai hết. Mong các cao thủ chỉ giáo.

File của em đây ah

Nhìn mấy Function cũng vui quá.
Làm "thí thí" xem sao

Function danhgia(x As Double) As String
If x < 18.5 Then
    danhgia = "DUOI CHUAN"
ElseIf x <= 25 Then
    danhgia = "CHUAN"
ElseIf x <= 30 Then
    danhgia = "THUA CAN"
ElseIf x <= 40 Then
    danhgia = "BEO"
Else
    danhgia = "QUA CHOI BEO"
End If
End Function

Public Function taochuoi(x As Double) As String
If x > 0 Then
    taochuoi = "day la so duong"
ElseIf x < 0 Then
    taochuoi = "day la so am"
Else
    taochuoi = "hong biet so gi"
End If
End Function

Private Function Remark(bmi_value As Single) As String

Tieng nuoc ngoai hong biet

End Function

 

[ndu96081631]

[h=2]File NAY BỊ lỗi gì[/h]

Tiêu đề chung chung ---> Đóng topic