电子表格EXCEL 如何自定义变量公式计算

1.EXCEL 如何自定义变量公式计算

打开一个空白的Excel点击“工具”菜单，选择“宏”中“Visual Basic”，在弹出的窗口中双击左边的工程中的“ThisWorkbook”然后弹出的空白窗口中输入如下代码：

Dim iWatermelon As Integer

'西瓜

Dim iBanana As Integer

'香蕉

Dim iSeeds As Integer

'瓜子

Dim iBread As Integer

'面包

Sub Countfruit(theNumber As Integer)

'计算水果

iWatermelon = iWatermelon + theNumber

iBanana = iBanana + 2 * theNumber

End Sub

Sub Countsnacks(theNumber As Integer)

'计算零食

iSeeds = iSeeds + theNumber

iBread = iBread + 3 * theNumber

End Sub

Sub CountSomething(theNumber As Integer)

'计算一堆东西

Countfruit (2 * theNumber)

Countsnacks (3 * theNumber)

iBanana = iBanana + theNumber

MsgBox （"现在有" & iWatermelon & "个西瓜；" & iBanana & "个香蕉；" & iSeeds & "包瓜子；" & iBread & "面包"）

End Sub

Sub countit()

'开始计算

CountSomething (12)

End Sub

然后把光标放在代码中的“开始计算”后，然后点击工具栏中的运行按钮即可跳出运算结果。

此问题可以用C#编程解决最好！