6 函数与公式
来源:互联网 发布:vb文字动画代码大全 编辑:程序博客网 时间:2024/04/29 16:25
Option Explicit
'一、在单元格中输入公式
'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
'五、编写自定义函数
Function wn()
wn = Application.Caller.Parent.Name
End Function
'一、在单元格中输入公式
'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
'五、编写自定义函数
Function wn()
wn = Application.Caller.Parent.Name
End Function
0 0
- 6 函数与公式
- 多元函数的高阶微分公式 与 Taylor公式
- Excel 2007函数与公式应用大全
- Excel -- 2. 公式与函数应用
- [函数与公式] 如何用函数公式实现双条件排名?
- [函数与公式] 如何根据数据规律简化长长的IF公式?[示例]
- Excel 2007函数与公式应用大全 实例目录
- 【水晶报表内功心法】--公式、函数与运行时总计
- 新书:《Excel公式与函数大辞典》已出版上市
- 【转】水晶报表--公式、函数与运行时统计
- C#委托的匿函数与lambda公式
- Excel公式与函数笔记—第一篇
- 排序公式 与 组合公式
- matlab函数公式拟合
- 通达信公式函数
- EXCEL常用函数公式
- EXCEL常用函数公式
- 公式VS函数
- 子查询优化
- 放下的是你,放不下的是故事
- url类详解
- dp入门(2)
- AS配置夜神模拟器
- 6 函数与公式
- 贪吃蛇程序C语言
- 多线程讲解
- 网络编程10
- Tanks案例笔记(一、场景搭建)
- Leetcode——409. Longest Palindrome
- static2----Java基础042
- 取模性质-个人赛
- 重拾java基础(六):面向对象基础总结