如何使用excel宏命令快速完成财务指标的计算
发布网友
共1个回答
热心网友
送你两个函数，可以计算单元格或单元格区域中可能包含的四则运算（包括有括号）。如，我有15元+欠别人10元，汇总结果＝25，而不是 5
CharToValue() 函数可计算单个单元格中可能含有的计算公式。若A1单元格有3×4+3，要求B1出结果，请在B1的输入框中填写=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 = "12345670.+-*/ ()＋－×÷（）"
'取出算式
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
