【分享成果，随喜正能量】品味随和的人会成为智者；享受随和的人会成为慧者；拥有随和的人就拥有了一份宝贵的精神财富；善于随和的人，方能悟到随和的真谛。真正做到为人随和，确实得经过一番历练，经过一番自律，经过一番升华。为人随和一点，我们会感受到生活更加美好！
《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广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)”vba是什么，我们把句话转换为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属性写入数组公式
娜娜项目网每日更新创业和副业项目
网址：nanaxm.cn 点击前往娜娜项目网
站 长 微 信： nanadh666
如果需要在单元格中写入数组公式则使用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
娜娜项目网每日更新创业和副业项目
网址：nanaxm.cn 点击前往娜娜项目网
站 长 微 信： nanadh666