在没有指令的情况下，macros正在清除其他工作表中的单元格
我收到以下错误。
我在模块1中有两个macros，在模块4中有两个macros，分别命名为“RestricPref”和“TailoredInputs”。 现在“TailoredInputs”应该在“Inputs”表格中进行更改，但是我只是使用With命令来做到这一点，但是由于未知的原因，它也在“Preferences”表单中进行了更改。
要更好地理解这个问题，请先运行模块1并查看“PreferencesTab”中的更改，然后运行模块4，您将发现它在“PreferencesTab”中更改数据时不应该这样做。
任何人都可以find错误？
Module1代码运行良好：
Option Explicit Sub RestrictPref() Dim ws As Worksheet Set ws = Sheets("Preferences") With ws 'Set to No Range("C11").Value = "No" Range("C13").Value = "No" Range("F11:H11").Value = "No" Range("F13:H13").Value = "No" Range("C17:E17").Value = "No" Range("C19:E19").Value = "No" Range("C23:H23").Value = "No" Range("D27:H27").Value = "No" Range("C31:F31").Value = "No" 'Clear Contents Range("D11:e11").ClearContents Range("D13:e13").ClearContents 'Set C27 to Yes Range("C27").Value = "Yes" End With End Sub
模块4代码产生的错误：
Option Explicit Sub TailoredInputs() Dim ws As Worksheet Dim i, j, l As Integer, rngHide As Range Set ws = Sheets("Inputs") Application.ScreenUpdating = False With ws ws.Range("A7:A200").EntireRow.Hidden = False For j = 10 To 152 If ws.Cells(j, "J").Value = "H" Or ws.Cells(j, "K").Value = "H" Then For l = 4 To 9 If ws.Cells(j, l).Interior.ColorIndex = 19 Then If Cells(j, l).MergeCells Then Cells(j, l).MergeArea.ClearContents Else Cells(j, l).ClearContents End If Else: End If Next l 'build the range which will be hidden If rngHide Is Nothing Then Set rngHide = ws.Cells(j, 1) Else Set rngHide = Application.Union(rngHide, ws.Cells(j, 1)) End If Else: End If Next j 'anything to hide? Hide it. If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = True With Sheets("Inputs") .Select .Range("Spendinginput").Select End With Application.ScreenUpdating = True End With End Sub
所有对Cells属性的引用，如下所示，都需要用一个点作为前缀。
这个：
Cells(j, l).ClearContents
需要这样做：
.Cells(j, l).ClearContents