Question

我正在研究Excel VBA代码，以导入和处理CSV文件中的某些数据。突然，我的代码的一部分不再起作用，尽管以前没有问题。

大约是range.select，然后是selection.Interior.Pattern = xlSolid

我试图将代码的同一小部分复制到另一本工作簿中，在这里工作得很完美。

Dim iPhase As Integer
iPhase = Application.WorksheetFunction.CountIf(Range("A:A"), "Phase")
Dim h As Integer
h = 1

Range("A6").Select

Do Until h > iPhase
    Cells.Find(What:="Phase", after:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
    ActiveSheet.Range(ActiveCell, ActiveCell.Offset(0, 16)).Select
    With selection.Interior
        .Pattern = xlSolid
        .Interior.PatternColorIndex = xlAutomatic
        .Interior.ThemeColor = xlThemeColorAccent6
        .Interior.TintAndShade = 0
        .Interior.PatternTintAndShade = 0
    End With
    With selection.Font
        .Bold = True
    End With
    h = h + 1
Loop

我收到一个编译错误：预期的函数或变量@“ selection.interior”

Answer 1

注释已经标识出您的代码存在的问题；但是这是使用array[i-1]和Filter选择可见数据的替代方法。注释包含在代码中。

SpecialCells

在“选择时”起作用的问题

1 个答案: