Question

所以我一直在搞乱一些VBA代码，我试图将边框应用到三个单元格的范围内。当我使用内置于Excel的VBA记录器记录代码时，我得到了回复：

Range("A1").Select
ActiveCell.Offset.Range("A1:A3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With

与其他方面等等。

我的问题是，一旦我尝试再次运行代码，它会在执行任何操作之前停止，突出显示第一个选择（以蓝色活动文本方式，而不是黄色步骤），并打开一个消息框说“编译错误：预期的函数或变量“。我已经查看了我已编写的其他代码段，现在他们也遇到了这个问题，我认为他们昨天没有这样做。

我想知道我昨天是否点击了一个错误的按钮，或者我的代码现在由于某种原因完全无法使用。

Answer 1

只是一个猜测，但如果你去工具＆gt;参考文献，是否有任何检查说“失踪”？如果是这样，请尝试取消选中参考。我不知道为什么，但是我在过去遇到过丢失或丢失的引用会使得正常的代码表现得很古怪。

Answer 2

我没有看到任何明显的东西，但你可以从“录制”版本中稍微修改一下：

With Range("A1:A3")
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End With

Answer 3

由于内存使用率很高，我在Excel中关闭了一些东西;从那以后，内存使用率非常低（以百万MB而不是GB）。我很确定这个功能关闭与它有关。

VBA for Excel - 选择返回“编译错误：预期函数或变量”

3 个答案: