ExcelVBA 实例教程 013：单元格中的公式 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行认真校对，但是难免会有疏漏的地方，但是任然希望（ExcelVBA 实例教程013：单元格中的公式）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，假如觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为 ExcelVBA 实例教程 013：单元格中的公式的全部内容。1、在单元格中写入公式使用 Range 对象的 Formula 属性可以在单元格区域中写入公式,如下面的代码所示。1. Sub rngFormula()2. Sheet1。Range（”C1:C10")。Formula = ”=SUM(A1+B1）”3. End Sub代码解析：应用于 Range 对象的 Formula 属性返回或设置 A1 样式表示的 Range 对象的公式，语法如下：expression.Formula参数expression是必需的，返回一个Range对象.还可以使用 FormulaR1C1 属性返回或设置以 R1C1-样式符号表示的公式，如下面的代码所示。1. Sub rngFormulaRC(）2. Sheet2.Range("C1：C10")。FormulaR1C1 = ”=SUM(RC[—2］+RC[—1]）"3. End Sub假如需要在单元格中写入数组公式则使用 Range 对象的 FormulaArray 属性。如下面的代码所示。1. Sub RngFormulaArray（）2. Sheet3。Range（"C1").FormulaArray = "=A1：A2*B1：B2"3. End SubRange 对 象 的 FormulaArray 属 性 返 回 或 设 置 单 元 格 区 域 的 数 组 公 式 。2、检查单元格是否含有公式使用单元格的 HasFormula 属性检查单元格是否含有公式，如下面的代码所示。1. Private Sub CommandButton1_Click（）2. Select Case Selection。HasFormula3. Case True4. MsgBox ”公式单元格!”5. Case False6. MsgBox ”非公式单元格！"7. Case Else8. MsgBox " 公 式 区 域 ： " ＆ Selection 。 SpecialCells(xlCellTypeFormulas ， 23）。Address（0， 0）9. End Select10. End Sub代码解析：工 作 表 中 按 钮 的 单 击 过 程 ， 检 查 所 选 择 的 单 元 格 区 域 是 否 含 有 公 式 。第 2 行代码返回所选择单元格区域的 HasFormula 属性值。假如区域中所有单元格均包含公式,则 该 值 为 ...
