وعليكم السلام ورحمة الله وبركاته
أخي الكريم قم بإضافة كائن أوفيس إلى المشروع وذلك بالطريقة التالية:
من القائمة Project --> Add Reference
ثم من التبويب COM
نختار Microsoft Office 11.0 Object Library بحسب الإصدار (هنا الإصدار 11)
ثم قم بوضع مربعي نص TextBox1 و TextBox2 وButton1
حيث أن الأول تكتب الكلمة المراد حساب عدد التكرار لها والثاني عدد التكرار
وبعد ذلك ضع الكود التالي
كود :
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
Dim Index As Integer = 1
With exl_wst
Dim Value As String
For I = 1 To .UsedRange.Rows.Count
Value = .Range("D" & I).Value
Application.DoEvents()
If Value = TextBox1.Text Then
Counter += 1
End If
Next
End With
TextBox2.Text = Counter
End Sub
End Class
الآن شغل البرنامج مع وضع المسار الصحيح لملف الإكسل
ثم اكتب الكلمة ولتكن (فرنسا) ثم قم بالضغط على الزر
أخيرا ستظهر لك النتيجة في TextBox2
مع الملاحظة أنني اخترت هنا العمود D وتستطيع أنت تغييره إلى العمود الذي تريد مثلا A أو B
بالتوفيق