VBA与公式、函数

VBA与函数
• 在VBA中使用像工作表一样的函数 • 例1 Sub 函数1() Dim i% For i=1 To 10 Sheet1.Cells(i,6) = “=sum(a” & i &”:b” & i & “)” Next i End Sub
需注意：
若VBA使用的函数、公式本身有引号，处理时要再加一组 双引号。 例： Sub 引号() Cells(12,1) = “=COUNTIF(A1:A10,”>9”)” End Sub 在本例中，运行会提示编译错误，因为代码中有两对双引 号，程序没有办法识别如何区分谁是一对。 解决办法：在”>9”外再加一对双引号。
• 例2 Sub VBA计算2() Dim i% For i = 1 To 10 Sheet1.Cells(i, 5) = "=a" & i & "+b" & i Next End Sub
• 例3：VBA数组公式 Sub VBA公式3() Range("f1:f10").FormulaArray = "=a1:a10+b1:b10" End Sub 单元格中数组公式不变化，均显示{=A1:A10+B1:B10}， 数据不能删除。
VBA与公式、函数Βιβλιοθήκη Baidu
VBA与公式
• 在VBA中，也可以像在工作表中一样录入公式 • 比如A1:A10与B1:B10的数值分别相加 • 例1 Sub VBA计算1() Dim i% For i = 1 To 10 Range("d" & i) = Range("a" & i) + Range("b" & i) Next End Sub 但是，这种方法无法在点击单元格时看到公式。
VBA与运算符
• 定义：运算符是代表VBA某种运算功能的符号。 • 1）赋值运算符：= • 2）数学运算符：&（字符连接符）、+、-、Mod（取余） 、\（整除）、*、/、-、^ • 3）逻辑运算符：Not、And、Or、Xor、Eqv、Imp（隐含 ）。 • 4）关系运算符：=、<>、>、<、>=、<=、like