Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 8151|回复: 5

[已解决]excel VBA怎么调用函数

[复制链接]
发表于 2011-12-1 18:24 | 显示全部楼层 |阅读模式
请问Excel VBA怎么调用函数???
最佳答案
2011-12-1 19:09
一、在单元格中输入公式
1、用VBA在单元格中输入普通公式
Sub t1()
    Range("d2") = "=b2*c2"
End Sub

Sub t2()
    Dim x As Integer
    For x = 2 To 6
        Cells(x, 4) = "=b" & x & "*c" & x
    Next x
End Sub

2、用VBA在单元格输入带引号的公式
Sub t3()
    Range("c16") = "=SUMIF(A2:A6,""b"",B2:B6)"    '遇到单引号就把单引号加倍
End Sub

3、用VBA在单元格中输入数组公式
Sub t4()
    Range("c9").FormulaArray = "=SUM(B2:B6*C2:C6)"
End Sub

二、利用单元格公式返回值
Sub t5()
    Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函数直接把公式表达式转化为数值
    Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
End Sub

三、借用工作表函数
Sub t6()
    Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")
End Sub'

四、利用VBA函数
Sub t7()
    Range("C20") = VBA.InStr(Range("a20"), "E")
End Sub
发表于 2011-12-1 19:09 | 显示全部楼层    本楼为最佳答案   
一、在单元格中输入公式
1、用VBA在单元格中输入普通公式
Sub t1()
    Range("d2") = "=b2*c2"
End Sub

Sub t2()
    Dim x As Integer
    For x = 2 To 6
        Cells(x, 4) = "=b" & x & "*c" & x
    Next x
End Sub

2、用VBA在单元格输入带引号的公式
Sub t3()
    Range("c16") = "=SUMIF(A2:A6,""b"",B2:B6)"    '遇到单引号就把单引号加倍
End Sub

3、用VBA在单元格中输入数组公式
Sub t4()
    Range("c9").FormulaArray = "=SUM(B2:B6*C2:C6)"
End Sub

二、利用单元格公式返回值
Sub t5()
    Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函数直接把公式表达式转化为数值
    Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
End Sub

三、借用工作表函数
Sub t6()
    Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")
End Sub'

四、利用VBA函数
Sub t7()
    Range("C20") = VBA.InStr(Range("a20"), "E")
End Sub

评分

参与人数 2 +22 收起 理由
macky591 + 12 赞一个!
liuts + 10 真详细啊

查看全部评分

回复

使用道具 举报

发表于 2011-12-1 19:53 | 显示全部楼层
不会吧楼上的真是高手啊,这么全
回复

使用道具 举报

发表于 2011-12-2 06:55 | 显示全部楼层

看看学习................感谢
回复

使用道具 举报

 楼主| 发表于 2011-12-2 19:02 | 显示全部楼层
谢谢诶回答的那么详细 非常感谢
回复

使用道具 举报

发表于 2014-3-2 12:46 | 显示全部楼层
有参考意义。谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:54 , Processed in 0.434298 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表