在VBA中计算通常涉及使用特定的函数和语句。以下是一些基本的VBA计算示例：
示例1：计算销售额
```vba
Sub 计算销售额（）
Dim sh As Worksheet
Set sh = Worksheets（"sheet1"）
Dim n As Integer
n = 2
Do
sh.Cells（n, 3）.Value = sh.Cells（n, 2）.Value * 12.5
n = n + 1
Loop Until sh.Cells（n, 2）.Value = ""
End Sub
```
在这个例子中，我们定义了一个常量`Price`来存储商品单价，然后在一个循环中计算每个商品的销售额，并将结果存储在`C`列。
示例2：自动求和
```vba
Sub 自动求和（）
Range（"A11"）.Value = WorksheetFunction.Sum（Range（"A1:A10"））
End Sub
```
在这个例子中，我们使用了`WorksheetFunction.Sum`函数来计算指定范围内的和，并将结果赋值给A11单元格。
示例3：智能计算
```vba
Sub 智能计算（）
Dim ws As Worksheet
Dim rng As Range
Dim resultCell As Range
Dim operationType As String
Dim resultValue As Double
Set ws = ThisWorkbook.Sheets（"Sheet1"）
Set rng = ws.Range（"A1:A10"）
Set resultCell = ws.Range（"B1"）
operationType = InputBox（"请输入计算类型： SUM（求和）, AVERAGE（平均值）, PRODUCT（乘积）"）
Select Case UCase（operationType）
Case "SUM"
resultValue = Application.WorksheetFunction.Sum（rng）
Case "AVERAGE"
resultValue = Application.WorksheetFunction.Average（rng）
Case "PRODUCT"
resultValue = Application.WorksheetFunction.Product（rng）
Case Else
MsgBox "无效的计算类型"
Exit Sub
End Select
resultCell.Value = resultValue
End Sub
```
在这个例子中，我们首先获取用户输入的计算类型，然后根据输入执行相应的计算，并将结果显示在指定单元格中。
示例4：计算代码运行时间
```vba
Sub CalculateRunTime（）
Dim StartTime As Double
Dim EndTime As Double
Dim TotalTime As Double
StartTime = Timer
' 你的代码段
EndTime = Timer
TotalTime = EndTime - StartTime
MsgBox "代码运行时间： " & Format（TotalTime, "0.00"） & " 秒"
End Sub
```
在这个例子中，我们使用`Timer`函数来记录代码段开始和结束的时间，然后计算并显示运行时间。
这些示例展示了如何在VBA中执行基本的计算任务。你可以根据需要修改和扩展这些代码段，以适应更复杂的计算需求。