当前位置: 代码迷 >> VBA >> 求EXcel函数,该怎么解决
  详细解决方案

求EXcel函数,该怎么解决

热度:4015   发布时间:2013-02-26 00:00:00.0
求EXcel函数
如图所示:求AO列所有001-----049打头的AU单元格写入"半成品库",用什么函数能解决这个问题,IF太麻烦了,实现不了,求解


------解决方案--------------------------------------------------------
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就得了
  相关解决方案