[已解决]求VBA一段代码

xiaoda

具体见附件！请各位老师帮个忙！谢谢

最佳答案

月排行榜 / 总排行榜

tianti

2011-12-1 13:23

1. Option Explicit
   
2. Sub 计算得分()
   
3.   Dim i As Integer
   
4.     For i = 7 To Range("b65536").End(xlUp).Row
   
5.         If Range("d" & i) > 140 And Range("d" & i) < 140.9 Then
   
6.            If Range("e" & i) < 28.6 Then Range("f" & i) = 50
   
7.            If Range("e" & i) < 35.2 Then Range("f" & i) = 60
   
8.            If Range("e" & i) < 42.6 Then Range("f" & i) = 100
   
9.          End If
   
10.     Next i
    
11. End Sub

复制代码

跳转到最佳答案楼层

mxg825

请把 （身高 体重 对照表） 先列出来！

mxg825

Select Case 用法 在140到140.9 之间，用TO 写法如下
Case 140 To 140.9

xiaoda

身高体重对照表！

xiaoda

请教师：帮写一段代码。

tianti

1. Option Explicit
   
2. Sub 计算得分()
   
3.   Dim i As Integer
   
4.     For i = 7 To Range("b65536").End(xlUp).Row
   
5.         If Range("d" & i) > 140 And Range("d" & i) < 140.9 Then
   
6.            If Range("e" & i) < 28.6 Then Range("f" & i) = 50
   
7.            If Range("e" & i) < 35.2 Then Range("f" & i) = 60
   
8.            If Range("e" & i) < 42.6 Then Range("f" & i) = 100
   
9.          End If
   
10.     Next i
    
11. End Sub

复制代码