JRE,都営,東メ,東急の距離-運賃表
Excel里有函数功能，但能不能自定义一个函数用呢，首先答案是肯定的，然后就要问，怎么用。
打开“开发”（或者ALT+F11），新建一个module，在module中建立的那些 function就可以在EXCEL的公式栏里输入一个等号并输入函数名，函数的返回值即相应单元格显示的结果。
Function TOEI(x As Integer)
Select Case x
Case 1 To 4
TOEI = 180
Case 5 To 9
TOEI = 220
Case 10 To 15
TOEI = 280
Case 16 To 21
TOEI = 330
Case 22 To 27
TOEI = 380
Case 28 To 46
TOEI = 430
End Select
End Function
Function TOKYU(x As Integer)
Select Case x
Case 1 To 3
TOKYU = 140
Case 4 To 7
TOKYU = 180
Case 8 To 11
TOKYU = 230
Case 12 To 15
TOKYU = 250
Case 16 To 20
TOKYU = 290
Case 21 To 25
TOKYU = 310
Case 26 To 30
TOKYU = 350
Case 31 To 35
TOKYU = 390
Case 36 To 40
TOKYU = 430
Case 41 To 45
TOKYU = 470
Case 46 To 50
TOKYU = 500
Case 51 To 56
TOKYU = 540
End Select
End Function
Function METRO(x As Integer)
Select Case x
Case 1 To 6
METRO = 170
Case 7 To 11
METRO = 200
Case 12 To 19
METRO = 250
Case 20 To 27
METRO = 290
Case 28 To 40
METRO = 320
End Select
End Function
Function JRE(x As Integer)
Select Case x
Case 1 To 3
JRE = 150
Case 4 To 6
JRE = 170
Case 7 To 10
JRE = 180
Case 11 To 15
JRE = 230
Case 16 To 20
JRE = 320
Case 21 To 25
JRE = 410
Case 26 To 30
JRE = 490
Case 31 To 35
JRE = 580
Case 36 To 40
JRE = 660
Case 41 To 45
JRE = 740
Case 46 To 50
JRE = 830
Case 51 To 60
JRE = 950
Case 61 To 70
JRE = 1110
End Select
End Function