اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information