<em>excel</em> <em>vb</em> 关于<em&

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语句代替。

if not worksheets("sheet2").range("g:g").find("到期项") is nothing then
msgbox "有到期", vbokonly, "提示"
end if
如果A2单元百格的第3、4个字符是01，显示1班。
如果A2单元格的第3、4个字符是02，显示2班。
否则显示3班。（看来只有3个班）
公式度可以简化为
=IF(A2="","",--MID(A2,3,2)&"班")
=IF(A2="","",MID(A2,3,2)+0&"班")
=IF(A2="","",MID(A2,3,2)-0&"班")
=IF(A2="","",MID(A2,3,2)*1&"班")
=IF(A2="","",MID(A2,3,2)/1&"班")
=IF(A2="","",VALUE(MID(A2,3,2))&"班")
或
=IF(A2<>"",--MID(A2,3,2)&"班","")
=IF(A2<>"",MID(A2,3,2)+0&"班","")
=IF(A2<>"",MID(A2,3,2)-0&"班","")
=IF(A2<>"",MID(A2,3,2)*1&"班","")
=IF(A2<>"",MID(A2,3,2)/1&"班","")
=IF(A2<>"",VALUE(MID(A2,3,2))&"班","")
下拉填充

IF语法内
=IF(条件，符合容条件的结果，不符合条件的结果）
MID语法
MID(文本,要提取的第一个字符的位置,提取的字符个数)

打开EXCEL表
按ALT+F11
从左边栏双击你要百操作的表度比如SHEET
复制以下代码
Sub yx()
For i = 1 To 100
If Cells(i, 3) = "mp3" Then Cells(i, 4) = "数码"
If Cells(i, 3) = "cd" Then Cells(i, 4) = "光盘"
If Cells(i, 3) = "12" Then Cells(i, 4) = "one"
Next
End Sub
运行就是。工版具栏有个倒三角，点一下权就行了