[sooriaty03]

تفضل يا غالي
هذا تعديل على الكود السابق

كود :

Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim exl_app As New Excel.Application
        Dim exl_wrk As Excel.Workbook
        Dim exl_wst As Excel.Worksheet
        exl_app = CreateObject("Excel.Application")
        exl_wrk = exl_app.Workbooks.Open("c:\Book1.xls")
        exl_wst = exl_wrk.Worksheets(1)
        Dim Counter As Integer = 0
        With exl_wst
            Dim Value As String
            For I = 1 To .UsedRange.Rows.Count
                If Not String.IsNullOrEmpty(.Range("D" & I).Value) Then
                    Value = .Range("D" & I).Value.ToString.Split(" ")(0)
                    Application.DoEvents()
                    If Value = TextBox1.Text Then
                        Counter += 1
                    End If
                End If
            Next
        End With
        TextBox2.Text = Counter
    End Sub
End Class

بالتوفيق