如何使用EXCEL宏命令實現自動計算功能？
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 數據庫解決方案，可幫助用戶存儲、訪問和分析數據。