Dòng báo lỗi này có nghĩa là gì?

[health]

Xin các bạn giải thích giùm mình.Mình có 1 file tính toán sử dụng macro.Khi mở lên sau dòng kích hoạt macro,nó lại hiện một thông báo:No RETURN() function found on macro sheet.Các bạn giải thích giùm mình nó bị lỗi gì và cách khắc phục.Chân thành cảm ơn rất nhiều.

 

[tedaynui]

Xin các bạn giải thích giùm mình.Mình có 1 file tính toán sử dụng macro.Khi mở lên sau dòng kích hoạt macro,nó lại hiện một thông báo:No RETURN() function found on macro sheet.Các bạn giải thích giùm mình nó bị lỗi gì và cách khắc phục.Chân thành cảm ơn rất nhiều.

Lâu rồi không nhớ chắc lắm. Hình như lỗi này khi viết Macro4. Khi kết thúc 1 macro thì phải có =RETURN() giống như trong VBA có END SUB vậy. Bạn kiểm tra lại xem

TDN

 

[health]

Lâu rồi không nhớ chắc lắm. Hình như lỗi này khi viết Macro4. Khi kết thúc 1 macro thì phải có =RETURN() giống như trong VBA có END SUB vậy. Bạn kiểm tra lại xem

TDN

thí dụ mình có 1 đoạn như sau:

Public Function Linear2d(x As Double, y As Double, tb As Range)
Dim i, j As Long
Dim x1, x2, y1, y2, q11, q12, q21, q22, q1, q2 As Double
' tra theo chieu doc
    i = 3
    Do While (tb.Cells(i, 1) < x) And (i < tb.Rows.Count)
        i = i + 1
    Loop
    i = i - 1
' tra theo chieu ngang
    j = 3
    Do While (tb.Cells(1, j) < y) And (j < tb.Columns.Count)
        j = j + 1
    Loop
    j = j - 1
' tinh gia tri cac diem
    x1 = tb.Cells(i, 1)
    x2 = tb.Cells(i + 1, 1)
    y1 = tb.Cells(1, j)
    y2 = tb.Cells(1, j + 1)
    q11 = tb.Cells(i, j)
    q12 = tb.Cells(i, j + 1)
    q21 = tb.Cells(i + 1, j)
    q22 = tb.Cells(i + 1, j + 1)
' noi suy duong dung
    q1 = q11 + (x - x1) * (q21 - q11) / (x2 - x1)
    q2 = q12 + (x - x1) * (q22 - q12) / (x2 - x1)
' noi suy duong ngang
    Linear2d = q1 + (y - y1) * (q2 - q1) / (y2 - y1)
End Function

Vậy thì thêm vào như thế nào?Cảm ơn bạn rất nhiều.

 

[tedaynui]

Mình thấy code trên vẫn chạy tốt mà. Chỉ góp ý thêm vài ý :

Dim i, j As Long
Dim x1, x2, y1, y2, q11, q12, q21, q22, q1, q2 As Double

- Khai báo biến chưa đúng. Ví dụ : Dim i As Long, j As long
- Bẫy lỗi khi (x2 - x1) = 0 ; (y2 - y1) = 0

TDN

 

[ndu96081631]

Xin các bạn giải thích giùm mình.Mình có 1 file tính toán sử dụng macro.Khi mở lên sau dòng kích hoạt macro,nó lại hiện một thông báo:No RETURN() function found on macro sheet.Các bạn giải thích giùm mình nó bị lỗi gì và cách khắc phục.Chân thành cảm ơn rất nhiều.

Cái này sau giống virus quá, bạn kiểm tra lại xem, có phải câu báo lổi là:

No return() or halt funtion on macro sheet

Nếu đúng thì 90% file bị nhiểm virus. Hảy kiểm tra xem có sheet nào đang ẩn, và tùm lum các name trong Define name

 

[health]

Cái này sau giống virus quá, bạn kiểm tra lại xem, có phải câu báo lổi là:

Nếu đúng thì 90% file bị nhiểm virus. Hảy kiểm tra xem có sheet nào đang ẩn, và tùm lum các name trong Define name

Đúng rồi,nó hiện câu báo lỗi đó.Bạn có cách nào làm cho hết không?Cảm ơn rất nhiều.

 

[ndu96081631]

Đúng rồi,nó hiện câu báo lỗi đó.Bạn có cách nào làm cho hết không?Cảm ơn rất nhiều.

Chủ đề này đã có nói nhiều trên diển đàn rồi, bạn chịu khó tìm, với từ khóa: "Diệt virus macro 4" .. bảo đãm có cả đóng các giãi pháp