VBA预期的“=”

Question

我试图做VBA简单For循环，按照文档https://msdn.microsoft.com/en-us/library/5z06z1kb.aspx

不过，我在这条线得到一个错误：

For iiii As Integer = 1 To 20 

它说我在这一行有一个语法错误，但我不明白为什么当我写它就像例子。

整个循环是像这样：

For iiii As Integer = 1 To 20 
worksheet.Range("B1:B20").Value = "=getSalesData(A" & iiii & ")" 
Next iiii 

Answer 1

这里有一些事情正在进行。首先，For Each ... Next语句的格式与VB.Net风格不同，而不是VBA。其次，你迭代循环20次，但每次都将公式放在B1：B20中。您可以每次将公式放入一个单元格中。

Dim iiii As long 
For iiii = 1 To 20 
    worksheet.Range("B" & iiii).Formula = "=getSalesData(A" & iiii & ")" 
Next iiii 

请注意，我已经使用了Range .Formula property而不是Range .Value property分配公式。如果你明确地告诉Excel你提供了一个公式，那么这就是你得到的。如果单元格被设置为文本格式，并且您没有指定Range .Formula属性，则会获得一个文本字符串为=getSalesData(A1)的单元格。只要您可以或者承受让Excel为您做出决定的后果，请具体说明。

最后，循环实际上是不必要的。您可以在没有循环的情况下批量加载公式。

worksheet.Range("B1:B20).Formula = "=getSalesData(A1)" 

这将式更改为= getSalesData（A1），= getSalesData（A2），= getSalesData（A3）等因为它填充到B1：B20。

Answer 2

VBA不VB.Net

在VB.Net你可以混合变量声明和控制结构中，似乎很自然，如果你的方式来自C++或Java。在VBA中你不能。您需要

Dim iiii As integer 'typically at top of sub or function 

For iiii = 1 To 20 
    worksheet.Range("B1:B20").Value = "=getSalesData(A" & iiii & ")" 
Next iiii