[كويس]

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.xlsx")
        exl_wst = exl_wrk.Worksheets(1)
        Dim Counter As New List(Of String)
        Dim Values As New List(Of String)
        With exl_wst
            Dim Value1, Value2 As String
            Dim Index As Integer
            For I = 1 To .UsedRange.Rows.Count
                If Not String.IsNullOrEmpty(.Range("D" & I).Value) Then
                    Value1 = .Range("D" & I).Value.ToString.Split(" ")(0)
                    Value2 = .Range("E" & I).Value
                    Index = Values.IndexOf(Value1)
                    Application.DoEvents()
                    If Index = -1 Then
                        Values.Add(Value1)
                        Counter.Add("0")
                        Index = Values.Count - 1
                    End If
                    Counter.Item(Index) = Val(Counter.Item(Index)) + IIf(Value2 = TextBox1.Text, 1, 0)
                End If
            Next
        End With
        ListBox1.Items.AddRange(Values.ToArray)
        ListBox2.Items.AddRange(Counter.ToArray)
    End Sub
End Class

بالتوفيق

شكرا للمساعده مره اخرى اخى العزيز
الكود لا يعمل لا ادرى لماذا
ارجو ان تراجع الكود ولو تكون النتائج على ملف اكسيل جديد يكون افضل
توضيح مره اخرى لما اريده فى السطر الاول اريد ان تكتب التواريخ التى بالشيت ثم فى العمود الاول تكتب اسماء الدول وتحت التواريخ تكتب كم مره ظهر اسم الدوله والتاريخ مثل المثال الاتى

اسم الدوله---1/1/2012---------2/1/2012
مصر----------5-------------------7
سوريا---------9-------------------4
السودان--------2 -------------------11
السعوديه-------5 -------------------3