[已解决]求助一句比较简化代码

scl5801

If .Range("f4").Value Like "*品" Or (.Range("f4").Value Like "*材料") Or _
           (.Range("f4").Value Like "*资产") Or (.Range("f4").Value Like "*采购") Or _
           (.Range("f4").Value Like "*物资") Or (.Range("f4").Value Like "*权") Or _
           (.Range("f4").Value Like "*包装物") Then
这一句如何简化，请大师们指教。

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-25 15:04

1. Sub Macro1()
   
2. w = Array("品", "材料", "资产", "采购", "物资", "权", "包装物")
   
3. s = 0
   
4. For i = 0 To UBound(w)
   
5.     If [f4] Like "*" & w(i) Then s = s + 1
   
6. Next
   
7. If s > 0 Then MsgBox "true"
   
8. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. w = Array("品", "材料", "资产", "采购", "物资", "权", "包装物")
   
3. s = 0
   
4. For i = 0 To UBound(w)
   
5.     If [f4] Like "*" & w(i) Then s = s + 1
   
6. Next
   
7. If s > 0 Then MsgBox "true"
   
8. End Sub

复制代码

爱疯

Sub Macro2()
    Dim w, i
    w = Array("品", "材料", "资产", "采购", "物资", "权", "包装物")
    For i = 0 To UBound(w)
        If [f4] Like "*" & w(i) Then MsgBox "满足条件": Exit For
    Next
End Sub



借用2楼的代码。
如果找到，则结束循环。

scl5801

谢谢两位老师。