Khách hàng của tôi đang gặp phải Lỗi Biên dịch; Không thể tìm thấy dự án hoặc Thư viện trên phiên bản Excel 2010 của mình, tuy nhiên tôi không nhận được điều này trên phiên bản của tôi năm 2010. Làm cách nào tôi có thể điều chỉnh mã này để mã sẽ không xuất hiện. Khi lỗi xuất hiện trong đoạn mã sau dòng chữ "tế bào" trong "Đối với mỗi cell trong vùng chọn" được tô đậm:Tôi nhận được 'Lỗi biên dịch: Không thể tìm thấy dự án hoặc thư viện' trong một số phiên bản Excel 2010 duy nhất. Khó kiểm tra điều này
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$9" Then
Columns("D:CB").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False
Sheet17.Range("E48:CB48").Select
For Each cell In Selection
If cell = 0 Then
Range(cell.Address).EntireColumn.Hidden = True
End If
Next
Application.ScreenUpdating = True
Sheet17.Range("b9").Select
End If
End Sub`
Khách hàng của tôi cũng báo cáo một lỗi trong đoạn mã sau với từ "đáp ứng" được nhấn mạnh . Điều này, là tốt, không phải là một vấn đề đối với tôi, trên phiên bản của tôi của Excel 2010. Bất kỳ và tất cả sự giúp đỡ được đánh giá cao.
If Sheet1.Range("E18") = 3 Then
Response = MsgBox("Reminder Emails have been set to be sent automatically at " & Sheet1.Range("f18").Value & ", " & Sheet1.Range("Q4").Value & " day(s) before" & vbCrLf & "the scheduled appointment. Do you want to send reminder e-mails now anyway?", vbYesNo)
If Response = vbNo Then
Exit Sub
End If
End If
Bạn đang sử dụng 'Phản hồi' để giữ một biến dài, do đó, điều này không nên gây ra lỗi (trừ khi' Response' là một phần của mô hình đối tượng của tham chiếu thư viện - đoán). Tôi sẽ sử dụng 'lngResponse' cho tên và kích thước của nó. – brettdj
Điều này có thể giống với: http://stackoverflow.com/questions/507191/cant-find-project-or-library-for-standard-vba-functions – Smandoli
OK tôi sẽ thử. Kể từ trên máy tính của tôi, tất cả các tùy chọn này hoạt động tốt, tôi phải chờ phản hồi của khách hàng, điều này hơi bực bội. Cảm ơn bạn rất nhiều lần nữa – ExcelForFreelancers