[كويس]

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

بالتوفيق

شكرا على ردك ومساعدتك لى
كنت عاوز تعديل بسيط اخير
لو عاوز مااكتبش التاريخ فى تيكست بوكس 1 عاوز البرنامج هو يكتب التاريخ ف التكست بوكس لوحده ويقولى ف تيكست بوكس 2 كم مره اتكرر
يعنى على فرض ان فيه تاريخين بس ف الشيت ف انا هعمل 4 تيكست بوكس
فوظيفة البرنامج انه يكتب ف التيكست بوكس 1 و 2 التاريخين اللى ف الشيت
والتيكست بوكس 3 و 4 اتكررو كام مره