Мой клиент получает ошибку компиляции; Не могу найти проект или библиотеку в его версии Excel 2010, однако я не получаю этого в своей версии 2010. Как я могу настроить этот код, чтобы он не отображался. Когда ошибка появляется в следующем коде, текст «ячейка» в «Для каждой ячейки в выборе» выделяется:
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`
Мой клиент также сообщает об ошибке в следующем коде с выделенным словом «Ответ». Это также не проблема для меня в моей версии Excel 2010. Любая помощь очень ценится.
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