Foxtable(狐表)用户栏目专家坐堂 → EXCEL表LOOKUP公式在FOX表如何做?


  共有5727人关注过本帖树形打印复制链接

主题:EXCEL表LOOKUP公式在FOX表如何做?

帅哥哟,离线,有人找我吗?
e-png
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2013/12/20 21:14:00 [显示全部帖子]

Dim s1() As Integer = {0,97,101,105,110,115,120,125,130,135,140,145,150,155,160,165,170,175,180,185,190,195,200,205,210,215,220,225,230,241,256,271,286,301,316,331,351,371,385,401}
Dim s2() As Double = {1.07,1.03,1,0.97,0.93,0.9,0.87,0.85,0.82,0.8,0.78,0.76,0.74,0.72,0.71,0.69,0.68,0.66,0.65,0.64,0.63,0.62,0.61,0.6,0.59,0.58,0.57,0.56,0.55,0.53,0.51,0.5,0.48,0.47,0.46,0.44,0.43,0.42,0.41,0.4}
Dim n As Integer = 188            '这里就是要确定范围内的数值
For i As Integer = 1 To s1.length
    If s1(i-1) < n And s1(i) >= n

        Output.Show(s2(i))
        Exit For
    End If
Next


 回到顶部