根据《别怕》一书，自己改良的动态考核评定表（for next）

iaskmore

根据《别怕》一书，自己改良的动态考核评定表（for next），大家给提提意见？
在vba中能不能用vlookup函数啊？还有没有更好的解决办法？

1. Sub casetest()
   
2.     Dim xj As String, i As Integer
   
3.     For i = 6 To 23
   
4.     Select Case Cells(i, "h")
   
5.     Case Is < 85
   
6.     xj = "不评级"
   
7.     Case Is < Range("E2")
   
8.     xj = "一星级"
   
9.     Case Is < Range("C2")
   
10.     xj = "二星级"
    
11.     Case Is < 130
    
12.     xj = "三星级"
    
13.     Case Is < 150
    
14.     xj = "四星级"
    
15.     Case Else
    
16.     xj = "五星级"
    
17.     End Select
    
18.     Cells(i, "i") = xj
    
19.     Next i
    
20. 
    
21. End Sub
    

复制代码

kls00

记号，慢慢学习。

dajiahaoxinku12

vba中可以使用vlookup的

iaskmore

问一下大家：
如果用worksheet.vlookup的方法，该怎么编写代码

ysyzygz

iaskmore 发表于 2013-2-12 14:50
问一下大家：
如果用worksheet.vlookup的方法，该怎么编写代码

Application.VLookup()