如何使用EXCEL宏命令实现自动计算功能？

Answer 1

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 = "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

微软的OFFICE是最为流行的办公软件，主要有OFFICE2010和OFFICE2007两个版本。Office 2000是第三代办公处理软件的代表产品，可以作为办公和管理的平台，以提高使用者的工作效率和决策能力。Office 2000中文版有4种不同的版本：标准版、中小企业版、中文专业版和企业版。

在Office 2000中各个组件仍有着比较明确的分工：一般说来，Word主要用来进行文本的输入、编辑、排版、打印等工作；Excel主要用来进行有繁重计算任务的预算、财务、数据汇总等工作；PowerPoint主要用来制作演示文稿和幻灯片及投影片等；Access是一个桌面数据库系统及数据库应用程序；Outlook是一个桌面信息管理的应用程序；FrontPage主要用来制作和发布因特网的Web页面。

Microsoft Office XP是微软有史以来所发行的Office版本中最重要的版本，而且也被认为是迄今为止功能最强大、最易于使用的Office产品。新版Office放弃了以往以产品发布年命名的惯例！产品名称中的XP，是英文Experience（体验）的缩写，代表着新版Office在包容覆盖广泛设备的Web服务之后，将给用户带来丰富的、充分扩展的全新体验。

除核心的 Office XP 程序 — Microsoft Word、Excel、Outlook和 PowerPoint— 外，Office XP 专业版 中包含 Microsoft Access 2002，它是 Office XP 数据库解决方案，可帮助用户存储、访问和分析数据。