vba编译公式
‘壹’ 在Excel中，如何使用VBA写函数公式
把提取字符的公式写入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
‘贰’ 如何在VBA中编写有变量的数组公式。
前一句写入数组公式，后一句公式向下填充，最后用循环清除0值的单元格数据
代码如下
Subtt()
Range("BE2").FormulaArray="=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$337,$B$1:$B$337,0)=ROW($1:$337),ROW($1:$337),65536),ROW(2:2)))"
AutoFillDestination:=Range("BE2:BE337")
Forx=2To337
IfRange("BE"&x)=0ThenRange("BE"&x).ClearContents
Nextx
EndSub
‘叁’ Excel表格如何用vba定义一个公式
Excel表格用VBA定义一个公式，其实就是自定义函数。
根据你的补充信息描述，帮你写了一个自定义函数，代码需要你手动输入进去，具体操作步骤如下:
1、按Alt+F11组合键打开VBA的编辑器;
2、依次单击“插入”菜单--“模块”;
3、在模块中写入下图红色字的代码，就可以使用了。
‘肆’ 如何在VBA中编制函数公式
一楼说的对啊~
我补充一下
比如要一个加1的函数公式，打开VBA编译器，插入一个mole，在里面写
Function addone(ByRef range As range)
addone = range.Value + 1
End Function
插入公式的时候，在用户自定义里面就可以找到"addone"这个公式了
‘伍’ 如何用VBA在Excel中写入公式
用VBA在Excel中写入公式的方法：
把提取字符的公式写入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
VBA主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。
(5)vba编译公式扩展阅读：
VBA的相关要求规定：
1、VBA是基于Visual Basic for Windows 发展而来的。与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。
2、VBA 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码，使工作自动化。
3、VB是独立的开发工具，不需要依附于任何其他应用程序，有自己完全独立的工作环境和编译、链接系统。VBA却没有自己独立的工作环境，必须依附于某一个主应用程序，VBA专门用于Office的各应用程序中，如Word、 Excel、 Access等。在Access中，可以通过VBA编写模块来满足特定的需要。
‘陆’ Excel VBA如何编写特定的计算公式
使用VBA的function功能。
VBA->插入模块->编辑以Function为首的代码
例如，如下代码可实现将引用单元格的平方倒数。
使用时直接在sheet内打ABC即可应用公式。
Function ABC(myRange As Range)
ABC = 1 / (myRange) ^ 2
End Function
FunctionABC(myRangeAsRange)
ABC=1/(myRange)^2
EndFunction
‘柒’ VBA编程公式，请高手指教
Dim zidingyi
zidingyi = Range("A2") / 2 + Range("B2") / 3 + Range("C2") / 4 + Range("D2") / 5
If zidingyi < 50 Then
Worksheets("sheet2").Range("E2").Value = "风险很小"
ElseIf zidingyi > 50 And zidingyi < 70 Then
Worksheets("sheet2").Range("E2").Value = "风险中等"
Else
Worksheets("sheet2").Range("E2").Value = "风险很大"
End If
‘捌’ vBA如何编辑omaths公式
创建公式后，对于包含公式的单元来说，可以对其重新编辑，添加或减少公式中的数据元素，改变公式的算法。
编辑公式时，有3个核心问题需要解决。1，需要有办法快速的编辑公式、并在公式中插入特殊字符。
2、很多时候，公式要居中，而公式的标号需要右对齐。
3、需要在正文中引用公式的标号。
‘玖’ 使用VBA编程实现word公式编辑代码
sub 1722187970()
dim m,n
m=inputbox("请输入m的值")
n=inputbox("请输入n的值")
msgbox "m+n的结果为" & m+n
end sub