首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

求EXcel函数,该怎么解决

2013-01-01 
求EXcel函数如图所示:求AO列所有001-----049打头的AU单元格写入半成品库,用什么函数能解决这个问题,IF太

求EXcel函数
如图所示:求AO列所有001-----049打头的AU单元格写入"半成品库",用什么函数能解决这个问题,IF太麻烦了,实现不了,求解
求EXcel函数,该怎么解决

[解决办法]
Sub 宏2()
For i = 2 To 65535
If Left(Sheets("Sheet2").Cells(i, 1), 3) <> "" Then
j = CInt(Left(Sheets("Sheet2").Cells(i, 1), 3))
If j > 0 And j < 50 Then
Sheets("Sheet2").Cells(i, 2) = "半成品库"
End If
End If
Next i
End Sub
[解决办法]
用if函数可以解决:
在AU列输入


=IF(AND(VALUE(LEFT(AO,3))>0,VALUE(LEFT(AO,3))<50),"半成品库","")

即可
[解决办法]
引用:
001---049打头的,需要判断49次,IF最多嵌套7层,不能实现

没有你说的那么麻烦,直接设个小于50就得了

热点排行