1

所以我一直在搞乱一些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

以此类推。

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

我试图弄清楚我昨天是否单击了错误的按钮，或者由于某种原因我的代码现在完全无法使用。

4

3 回答 3

0

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

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
于 2013-10-04T21:16:16.410 回答
0

只是一个猜测，但如果你去工具>参考，是否有任何被选中的说“丢失”？如果是这样，请尝试取消选中参考。我不知道为什么，但我过去曾遇到过这样的情况，即缺少或丢失的引用会使原本正常的代码表现得古怪。

于 2013-10-04T20:48:32.893 回答
-1

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

于 2014-03-17T16:44:25.037 回答