[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 Value1, Value2 As String
            For I = 1 To .UsedRange.Rows.Count
                Value1 = .Range("D" & I).Value
                Value2 = .Range("C" & I).Value
                Application.DoEvents()
                If Value1 = TextBox1.Text AndAlso Value2 = TextBox2.Text Then
                    Counter += 1
                End If
            Next
        End With
        TextBox3.Text = Counter
    End Sub
End Class

بالتوفيق