Excel 添加一个函数并应用到宏

 

工具 -> 宏 -> Visual basic 编辑器 -> 插入一个模块 -> 添加下列代码

 

ruby 代码

1. Function cal_tax(v) As Double   
2. Dim result As Double   
3.   
4.  Select Case v   
5.     Case Is <= 500   
6.       result = v * 0.1 - 25   
7.     Case Is <= 1600   
8.       result = v * 0.1 - 25   
9.     Case Is <= 2000   
10.       result = (v - 1600) * 0.1 - 25   
11.     Case Is <= 5000   
12.       result = (v - 1600) * 0.15 - 125   
13.     Case Is <= 20000   
14.       result = (v - 1600) * 0.2 - 375   
15.     Case Is <= 40000   
16.       result = (v - 1600) * 0.25 - 1375   
17.     Case Is <= 60000   
18.       result = (v - 1600) * 0.3 - 3375   
19.     Case Is <= 80000   
20.       result = (v - 1600) * 0.35 - 6375   
21.     Case Is <= 100000   
22.       result = v * 0.1 - 25   
23.     Case Is > 100000   
24.       result = (v - 1600) * 0.45 - 15375   
25.   End Select   
26.   
27. cal_tax = result   
28. End Function   

另存为一个 "加载宏格式 .xla".

工具 -> 加载宏 ->　浏览　-> 选择这个文件就行了