Question

excel中if语句用vba怎么写

比如单元格中的公式是：b1=if (a1>=80,"A",if(a1>=60,"B","C"))这是想把11科的分数改成像公式里一样的abc等，我不想用公式，这个公式在vba中怎么写因为有11科，所有就会有，有11列，60多行，有没有简便方法，比如调用过程等能让vba运行得快些而且VBA代码还没有太多重复，不乱套

Answer 1

1. 函数中的if语句=if（条件，符合条件结果，不符合条件结果）。
   

2. VBA中也有一个同样的函数，为了跟函数的if区分，vba中的名称为iif，使用方法与函数完全一致，iif（条件，符合条件结果，不符合条件结果）。

3. VBA中另外一种if表达方式更为常用，格式为

if 条件 then 执行结果

或者

if 条件 then
结果一
结果二
else if 条件
结果
end if

4. VBA中的if语句常用来与for..next循环搭配使用，亦可用do while...Loop语句代替。

Answer 2

Dim I As Integer
Private Sub Worksheet_Change(ByVal Target As Range) For I = 1 To 100 If Range("a" & I).Value <> "" Then If Range("a" & I).Value >= 80 Then Range("b" & I).Value = "A" ElseIf Range("a" & I).Value >= 60 Then Range("b" & I).Value = "B" Else Range("b" & I).Value = "C" End If End If NextEnd Sub

Answer 3

Public Function dj(A As Integer)
Dim Rst As String
Rst = ""
Select Case A
Case Is >= 80
Rst = "A"
Case Is >= 60
Rst = "B"
Case Else
Rst = "C"
End Select
dj = Rst
End Function