返回目录：excel表格制作
CharToValue() 函数可计算单个单元格中可能含有的计算公式。若A1单元格有3×4+3，要求B1出结果，请在B1的输入框中填写e68a84e8a2ade799bee5baa6334=CharToValue(A1) 。并支持下拉自动应用公式。
StrToSUM()函数可计算单元格区域中可能含有的计算公式。若想在H10中求A1:F10的汇总结果，请在H10的输入框中填写=StrToSUM(A1:F10) 。
'以下是需要使用的代码，请按下ALT+F11启动VBA编辑器，插入一个模块，将以下代码粘贴其中，就可以应用了。
Public Function CharToValue(myRange As Range) As Single
'将单元格中可能存在的算式进行计算(仅限于四则运算和括号）
On Error Resume Next
Dim Str1 As String, Str2 As String, Str3 As String, Str4 As String
Dim i As Integer
Str1 = myRange.Text
Str2 = "1234567890.+-*/ ()＋－×÷（）"
'取出算式
For i = 1 To Len(Str1)
Str3 = Mid(Str1, i, 1)
If InStr(1, Str2, Str3) > 0 Then
Str4 = Str4 & Str3
End If
Next
'替换算式中因为习惯可能存在的非法，以利计算
Str4 = Replace(Str4, "＋", "+")
Str4 = Replace(Str4, "－", "-")
Str4 = Replace(Str4, "×", "*")
Str4 = Replace(Str4, "÷", "/")
Str4 = Replace(Str4, "（", "(")
Str4 = Replace(Str4, "）", ")")
Str4 = Evaluate(Str4)
If IsNumeric(Str4) = True Then
CharToValue = Val(Str4)
Else
CharToValue = 0
End If
End Function
Public Function StrToSUM(myRange As Range) As Single
'将单元格区域中含有的算式汇总结果——区域中单元格必须连续
'如：我有15元+欠别人10元，汇总结果＝25，而不是 5
Dim i As Long
Dim SumSing As Single
With myRange
For i = 1 To .Cells.Count
SumSing = SumSing + CharToValue(.Cells(i))
Next
End With
StrToSUM = SumSing
End Function
公式比来较简源单了知
在D2写道 =b2+c2*0.2
VBA
sub test()
for i=2 to application.counta(range("a:a"))
cells(i,4)=cells(i,2)+cells(i,3)*0.2
next
end sub
宏的功能比函数要强啊.宏可以调用函数,反过来好像不行吧.
宏就是编程了.嵌入office的vb,也叫vba.微软叫vba.
说到编程,那她还能调用其他的东西.
总之,使用宏想怎么计算就怎么计算.
excel 是否自动计算 在 选项 自动计算 里可以设置……
宏 的使用 是如果你的文档中 已经有了宏 那么你可以使用 工具 宏 选择知一个 执行……就可以了
你还可以使用 宏 录制 自己把你的操作 录制成道 一个宏 ……
你还可以 通过在vbe 窗口中 插入 模块的方式 插入一段 vba 代码……
看了你的补充，你这根本就不是需要什么 宏 来做的事情……看样子像是使用公式 进行计算……
1、应该类似 b1= left(e1,1) 、c1= mid(e1,2,1) 、d1= right(e1,1)……
2、g1 =b1+d1
3、略了……
你不要在这里使用这版么多假如 你最好把假如更确切些……这样才好有答案……你的题目 与你的补充相差实在太远……
最好的办法 就是找一些有关excel 的学习资料……到百度文库里找 很多的 先从基础学起 有一个 总提概念 然后在逐步深入……祝你快乐权……