نتيجة البحث في الليست بوكس

[هاني بدر]

بسم الله الرحمن الرحيم

أرجو المساعدة في الملف المرفق حيث ان ناتج البحث يظهر في الليست بوكس ليس بتكرار الكلمة ولكن باول ما يقابل الموجود في التيكست بوكس فقط

Test5.rar

[هاني بدر]

بسم الله الرحمن الرحيم

هذا هو كود البحث بناء على تغيير القيم في التيكت بوكس 1

On Error Resume Next

Dim KH_Range As Range

Dim M As String

Dim W%

Dim KH_1%

Dim KH_2%

Dim F%

Dim A As Range

Set KH_Range = Range("Chart")

M = TextBox1.Text

ListBox1.Clear

If M = "" Then GoTo 1

W = ListBox1.ListCount

   With KH_Range

	  KH_1 = .Rows.Count

	  KH_2 = .Columns.Count

		 Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(M)

		 If Not A Is Nothing Then

		 F = A.Address

		 Do


			ListBox1.AddItem

			ListBox1.List(W, 0) = Sheets("Chart").Cells(A.Row, 6).Value

			ListBox1.List(W, 1) = Sheets("Chart").Cells(A.Row, 5).Value

			ListBox1.List(W, 2) = Sheets("Chart").Cells(A.Row, 4).Value

			ListBox1.List(W, 3) = Sheets("Chart").Cells(A.Row, 3).Value

			ListBox1.List(W, 4) = Sheets("Chart").Cells(A.Row, 2).Value

			ListBox1.List(W, 5) = Sheets("Chart").Cells(A.Row, 1).Value


			W = W + 1



		 Set A = Range(.Cells(1, 1), .Cells(KH_1, KH_2)).FindNext(A)

		 Loop While Not A Is Nothing And A.Address <> F

		 End If

  End With

Set A = Nothing

1 End Sub

[عبدالله المجرب]

اخي هاني

بصراحة المطلوب غير مفهوم

[هاني بدر]

بسم الله الرحمن الرحيم

اخي الكريم استاذ عبدالله تقبل خالص تحياتي لمرورك الكريم

المطلوب هو اذا كنت ابحث عن كلمة فانتظر ان يتم عرض كل السطور التي بها اول حروف كتبتها في التيكست بوكس ولكن ما يحدث هو ان يكتفي البحث باظهار اول سطر يقابله هذه الحروف ولا ياتي بالباقي المكرر فكلمة

Local

ستجدها مكررة ما يقارب الخمس مرات ولكن الناتج ياتي باول سطر فيه الكلمة فقط ارجو ان اكون قد اوضحت المطلوب واشكرك على تفاعلك السريع ادامكم الله جميعاً عونا لنا