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

所以我一直在搞一些VBA代码，我试图将边界应用到三个单元格的范围。当我使用内置于Excel的VBA记录器记录代码时，我得到以下结果：VBA for Excel - 选择返回“编译错误：期望的函数或变量”

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

与其他方面一样。

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

我试图弄清楚，如果我昨天点击了错误的按钮，或者是因为某些原因，我的代码现在完全无法使用。

来源

2013-10-04 user2848029

我没有得到任何错误。我可以看看你的excel文件吗？ –

只是一个猜测，但如果你去工具>参考，是否有任何检查，说“失踪”？如果是这样，请尝试取消选中该参考。我不确定为什么，但是我在过去曾经遇到过一个缺失或丢失的引用，否则 - 正常的代码行为很古怪。

来源

2013-10-04 20:48:32

我看了，它看起来并不像缺少任何东西。这就是说我只检查了四个东西。我有Visual Basic for Applications，Microsoft Excel 15.0对象库，OLE自动化和Microsoft Office 15.0对象库。难道是不应该检查的东西吗？ – user2848029

我看不出有什么明显的，但你可以从“录”版本修改这个有点：

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-04 21:16:16

-1

由于高内存使用情况，我在Excel中打开过的东西;从那时起，内存使用率非常低（数百MB而不是GB）。我很确定关闭此功能与它有关。

来源

2014-03-17 16:44:25 Edward

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

回答

相关问题