当 ELSE 存在时，For 循环忽略真 IF 条件

Question

当循环体中存在ELSE 条件时，我似乎无法让我的 For 循环确认我有一个 True IF 条件。这是我写的：

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    'TEST FIND/SEARCH FEATURES
    Dim String2Find As String = txtCPUSerial.Text
    Dim ColumnNumber As Integer = 1

    'Access the worksheet
    Dim xlApp As Excel.Application
    xlApp = CreateObject("Excel.Application")
    xlApp = GetObject(, "Excel.Application")

    Dim xlWB As Excel.Workbook = xlApp.Workbooks.Open("C:\Users\Machine\Desktop\DocDirectory\MyDoc.xls") 

    Dim xWS As Excel.Worksheet

    xWS = xlWB.Worksheets("Sheet1")

    'TRY TO LOOP THROUGH THE ROWS..

     For x As Integer = 1 To xWS.Rows.Count Step 1

        'Check if cell value matches the search string...
        If xWS.Cells(x, ColumnNumber).value = String2Find Then
            MessageBox.Show("Got it..." & String2Find & " in row " & x)

        Else
            MessageBox.Show("Item not in the sheet...")

            Exit For
        End If
    Next

End Sub

我尝试在String2Find <> txtCPUSerial.Text 的Else 中写一个直接的语句，但要么语法错误，要么我仍然收到的消息对话框“项目不在工作表中.. ."，因此我的 For 循环的 True 部分在单步执行时会被忽略，并且在获得 True 条件时不会返回对话框。

如果我删除我的Else，那么显然代码会相应地循环并返回文本，如果我的工作表中确实存在文本框值（我在工作表中写了一个任意值以查找。我不是什么包括或指定导致这种情况发生的原因？

Answer 1

如果代码的目的是查找所有出现并替换它们，我建议使用查找和替换方法。

示例代码，经过测试和工作：

Sub FindAndReplace()
    Dim FoundCell As Range

    With Columns("A:A")
        Set FoundCell = .Find(What:="old", After:=.Cells(1), _
        LookIn:=-4163, LookAt:=1, SearchOrder:=1, SearchDirection:=1, MatchCase:=True, MatchByte:=False, SearchFormat:=False)

        If FoundCell Is Nothing Then
            MsgBox ("Item not in the sheet...")
            Exit Sub
        Else
            .Replace What:="old", Replacement:="new", LookAt:=1, _
                SearchOrder:=1, MatchCase:=True, SearchFormat:=False, _
                ReplaceFormat:=False
        End If
    End With
End Sub

它的作用：

1. find 方法返回找到的单元格的Range object 或Nothing 以防它没有找到任何东西。将结果存储在 FoundCell 变量中。
2. 它检查FoundCell 变量是否为Nothing
3. 如果没有，则显示消息并退出子。
4. 如果不是什么都没有（意味着它找到了匹配项），它使用替换方法将所有“旧”值更改为“新”值。

Answer 2

向您展示如何找到它的示例似乎比解释代码中的所有问题更容易：

Dim xlApp = New Excel.Application  ' this starts new Excel Application
Dim xlWB = xlApp.Workbooks.Open("C:\Users\Machine\Desktop\DocDirectory\MyDoc.xls") 
Dim xlWS = xlWB.Worksheets("Sheet1") 
Dim xlColA = xlWS.Range("A:A")       ' Column A
Dim xlCell = xlColA.Find(txtCPUSerial.Text) ' or .Find(txtCPUSerial.Text,,,XlLookAt.xlWhole)

If xlCell Is Nothing Then
    MsgBox(txtCPUSerial.Text & " not found")
Else 
    MsgBox(txtCPUSerial.Text & " found on row " & xlCell.Row)
End If

' don't forget to close the Workbook and Excel Application
xlWB.Close() 
xlApp.Quit()

How to: Programmatically Search for Text in Worksheet Ranges