【分享成果,随喜正能量】品味随和的人会成为智者;享受随和的人会成为慧者;拥有随和的人就拥有了一份宝贵的精神财富;善于随和的人,方能悟到随和的真谛。真正做到为人随和,确实得经过一番历练,经过一番自律,经过一番升华。为人随和一点,我们会感受到生活更加美好!
《VBA代码解决方案》这套教程是我最早推出的教程,目前已经是第二版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的积木编程思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。
这套教程共三册,一百四十七讲,内容覆盖较广,也是初级和中级间的过度教程,改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第13讲:VBA在单元格中如何录入公式
第十三讲 如何利用VBA在单元格中录入公式
今日给大家推出VBA代码方案的第13讲,如何利用VBA在单元格中录入公式.我们知道,在EXCEL中,录入公式是很平常的事,但在VBA中录入公式要借助于Range对象的Formula属性。下面用分几种途径来解决:
1 使用Range对象的Formula属性在单元格区域中写入公式
其语法如下:expression.Formula
参数expression是必需的,是一个Range对象。
实例:如下面的代码所示。
Sub mynz_13() 第13讲 如何利用VBA在单元格中录入公式
Sheets(“13”).Select
Range(“C2:C10”).ClearContents
Range(“C2:C10”).Formula = “=SUM(A2+B2)”
End Sub
代码解析:上述代码中利用了.Formula = “=SUM(A2+B2)”,我们把句话转换为EXCEL中的操作就是相当于在C2中录入公式= SUM(A2+B2),然后在C3,C4,C5,C6,C7,C8,C9,C10中复制上面的公式也就是说C3:= SUM(A3+B3); C4:= SUM(A4+B4); C5:= SUM(A5+B5); C6:= SUM(A6+B6); C7:= SUM(A7+B7); C8:= SUM(A8+B8); C9:= SUM(A9+B9); C10:= SUM(A10+B10)
我们看下面的代码截图:
代码运行前:
运行后:
2 使用FormulaR1C1属性返回或设置R1C1样式符号表示的公式
如下面的代码所示。
Range(“C1:C10”).FormulaR1C1 = “=SUM(RC[-2]+RC[-1])”
3 使用Range对象的FormulaArray属性写入数组公式
如果需要在单元格中写入数组公式则使用Range对象的FormulaArray属性。如下面的代码所示。
Range(“C2:C10”).FormulaArray = “=A2:A10+B2:B10”
Range对象的FormulaArray属性返回或设置单元格区域的数组公式。
好了,今日的代码方案就讲到这里,
今日内容回向:
1 expression.Formula expression.FormulaR1C1 expression.FormulaArray 意义是什么
2 上述的三个属性的返回值是什么?
我20多年的VBA实践经验,全部浓缩在下面的各个教程中:
第7套教程(共三册):《VBA之EXCEL应用》:是对VBA基本的讲解
第1套教程(共三册):《VBA代码解决方案》:是入门后的提高教程
第4套教程(16G):VBA代码解决方案之视频(第一套的视频讲解)
第3套教程(共两册):《VBA数组与字典解决方案》:是对数组和字典的专题讲解
第2套教程(共两册):《VBA数据库解决方案》:是对数据库的专题讲解
第6套教程(共两册):《VBA信息获取与处理》:讲解VBA的网络及跨程序应用
第5套教程(共两册):VBA中类的解读和利用:类及接口技术的讲解
第8套教程(共三册):VBA之Word应用(最新教程):word中VBA的利用
上述教程的学习顺序:
① 7→1→3→2→6→5或者7→4→3→2→6→5。
② 7→8
主题授权提示:请在后台主题设置-主题授权-激活主题的正版授权,授权购买:RiTheme官网