以下是在 Excel 中使用 VBA 计算最大三个数的和的代码:
```VBA
Sub GetMaxThreeNumbers()
Dim threeMax as integer
Dim i as integer
Dim j as integer
Dim k as integer
' 获取三个最大数
threeMax = 0
i = 1
j = 1
k = 1
' 循环遍历每个数
Do
If i > threeMax Then threeMax = i
If j > threeMax Then threeMax = j
If k > threeMax Then threeMax = k
i = i + 1
j = j + 1
k = k + 1
Loop
' 计算这三个数的和
Result = i + j + k
' 输出结果
MsgBox "最大三个数为:" & Result
End Sub
```
这个代码中,我们首先定义了三个变量 `threeMax`、`i`、`j`、`k`,分别用于存储三个最大数的值。然后,我们使用一个 `Do` 循环来获取这三个数,并将它们存储在变量 `i`、`j`、`k` 中。在循环的每个阶段,我们比较当前数与 `threeMax` 的大小,如果当前数大于 `threeMax`,则 `threeMax` 更新为当前数,并将 `i`、`j`、`k` 的值加一。循环结束后,我们返回 `i`、`j`、`k` 的最大值,并将其存储在变量 `Result` 中,最后输出 `Result` 的值。