fyqt.net
当前位置:首页 >> 电子表格 VBA 如何用VBA给单元格插入公式? >>

电子表格 VBA 如何用VBA给单元格插入公式?

Cells(2, 12) = "=if(H2=C2,"""",""数据不一致"")"

把提取字符的公式写入sheet2单元格 Sub aa() Sheet2.Range("A1").Formula = "=left(sheet1!A1,5)" End Sub 直接把结果写入sheet2单元格 sub aa() sheet2.range("A1").value=left(sheet1.range("A1").value,5) end sub

Sub s() For k = 28 To 46 Step 6 For i = 1 To 5 For j = 1 To 6 Cells(k + i, 19 + j) = "=" & Chr(83 + j) & 54 + i Next Next NextEnd Sub

当前表的A1为公式,则可用 Sub test() MsgBox [a1].Formula End Sub 显示出来

你是要运行EXCEL工作表函数还是要给在VBA中给单元格写公式 如果是要用函数 applivation.worksheetfunction. 如果是要给格写公式比如B4=A1+1 请用range("B4").Formula = "=A1+1"

1楼的方法有可取之处 不过不直接 如果你的公式是固定的.那么就用1楼的第1个: range("B14").Formula="=SUM(B1:F3)" 如果想用相对的,就是这样了, range("B14").FormulaR1C1="sum(R1C:R3C[4])" 说明: RC分表代表行列,后面的数字代表了相应的行列号,...

1、打开Excel程序,按键盘组合键“Alt+F11”或切换至“开发工具”功能区并点击“Visual Basic”按钮进入VBA环境。 2、在VBA环境下,右击“Microsoft Excel对象”,从弹出的菜单中选择“插入”->“模块”项。 3、在打开的模块窗口中,输入以下代码: Function...

先手动建立一个引用公式,然后在VBA中替换到以下引号中,公式中比较麻烦的是变量要用 & 来连接到公式中, 假设i是变量的话 Cells(i, 1).Formula = "='[Samll tools for validation test.xls]sheet5'!$E$125" []之间为excel文件名称(如果是引用...

插入的公式,在vba里面其实是字符串,所以可以用字符连接符 & 连接变量,如下示例: Option ExplicitSub test() Dim i As Integer For i = 1 To 5 ActiveSheet.Range("a" & i).Formula = "=sum(" & i _ & "," & i + 1 & "," & i + 2 & "," & i +...

网站首页 | 网站地图
All rights reserved Powered by www.fyqt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com