判断字符串是否包含在数据集中,只能用遍历法吗??

[ningyong58]

表名如下：
ShtName = Array("Line", "Circle", "Arc", "Spline", "Polyline", "LWPolyline", "Dim", "Ellipse")
Dim tempSheet As Worksheet
For ii = 0 To UBound(ShtName)

ThisWorkbook.Sheets.Add after:=ActiveSheet
ActiveSheet.Name = ShtName(ii)
Next ii

有的网友提出用nothing 方法
Set tempSheet=Sheets(ShtName(ii))此句不能赋值为Nothing
由于on Error Resume next,Set tempSheet=Sheets(ShtName(ii))不存在(提示下标越界)将越过不执行.实现不了预期目的.

还有的网友提出的方法是遍历法,程序通过.

Function WorksheetExists(wb As Workbook, sName As String) As Boolean
Dim s As String
On Error GoTo ErrHandle
s = wb.Worksheets(sName).Name
WorksheetExists = True
Exit Function
ErrHandle:
WorksheetExists = False
End Function

Sub test()
If WorksheetExists(ThisWorkbook, "pop") = False Then
MsgBox "不存在"
Else
MsgBox "存在"
End If
End Sub

问:判断字符串是否包含在数据集中,只能用遍历法吗??

[dufuguang]

一般比较常用了。。。

[ning84]

JF

[deven1116]

用if exists()非常简单