Sub IIF函數(shù)應(yīng)用()
Cells(2, 3) = IIf(Cells(1, 2) >= 90, "優(yōu)秀", IIf(Cells(1, 2) >= 80, "良好", IIf(Cells(1, 2) >= 70, "中等", "較差")))
End Sub
學(xué)習(xí)達(dá)人
|
seeuswu
展開(kāi)
|
餅餅不吃餅干
展開(kāi)
Public Sub chengji_level()
Dim a As Integer, b As String
a = Sheet4.Range("B1")
If a >= 90 Then
b = "優(yōu)秀"
ElseIf a >= 80 And a < 90 Then
b = "良好"
ElseIf a >= 70 And a < 80 Then
b = "中等"
ElseIf a >= 60 And a < 70 Then
b = "較差"
Else
b = "不及格"
End If
Sheet4.Range("B2 |
|
阿迪大師1
展開(kāi)
|
|
學(xué)習(xí)達(dá)人
|
T822721nq
展開(kāi)
|
學(xué)習(xí)達(dá)人
|
星空之痕
展開(kāi)
|
學(xué)習(xí)之星
|
尾號(hào)8355
展開(kāi)
|
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。