小编Exc*_*ers的帖子

我的客户正在收到编译错误; 在他的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 & …