البحث في جميع اوراق العمل

[blueray]

السلام عليكم ورحمة الله وبركاته

أشكر الأخ كيماس على جهودة التي يبذلها لنشر العلم والمعرفة؛ جعلها الله في ميزان حسناته وجزاه عنا خير الجزاء.

ثانياً:- أنا لدي استفسار أمل منكم التكرم بايجاد الحل ويتمثل في الآتي:-

لدي مستند اكسل به 32 ورقة

إحدى هذه الأوراق بأسم بحث سريع وبداخلها وضعت شرح للمستخدم بأن يقوم بإدخال القيمة ( رقم تسلسلي لجهاز أو رقم إداري " الرقم عبارة عن مجموعة أرقام أو أرقام وحروف " ) المطلوب البحث عنها بحيث يكون مجال البحث شامل للأوراق من 1 إلى 28 لكي يستطيع أن يوجد لي الرقم الذي أبحث عنه موجود بأي ورقة ولو أمكن يقوم بالإنتقال إلى الورقة الموجود بها الرقم وتحديداً لخلية الرقم الذي تم البحث عنه.

طبعاً كل ورقة بها بيانات كبيرة من الأرقام التسلسلية والإدارية لأجهزة حاسبات وشاشات وطابعات واجهزة أخرى.

أمل سرعة الرد على طلبي ممن لديه الحل مع توضيح خطوات الحل وجزاكم الله خيرا.

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

السلام عليكم

تم فصل الموضوع للفائدة

==================

اخي الفاضل

يمكنك الاستفادة من هذا الرابط ففيه موضوع مشابه لما تطلبه

http://www.officena.net/ib/index.php?showtopic=38530

[blueray]

السلام عليكم ورحمة الله وبركاته

أخي الفاضل / عبدالله المجرب

وفقني الله وإياك لما يحب ويرضى وجزاك الله خير الجزاء على ما قدمته لي من خدمة تشكر عليها.

فقد وجدت ضالتي بفضل الله ثم بفضل تجاوبك مع موضوعي.

وأود أن أفيد الأخوة بأن الكود الخاص بعملية البحث داخل أوراق المستند كان في المرفق الذي تم رفعه من قبل الأخ أبو ريان جزاه الله خيرا وهو على النحو التالي:-

Sub MySearsh()

  Dim Searsh As String

  Dim FirstValue As String

  Dim NextValue As String

  Searsh = Application.InputBox(prompt:="ÃÏÎá ÞíÃÉ ÇáÈíË", Title:="ÈíË Úä ßáÃÉ", Type:=2)

  For Each Sh In Worksheets

	With Sh

	  If .Cells.Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1

	  .Activate

	  With .Cells.Find(What:=Searsh, After:=ActiveCell)

		.Activate

		FirstValue = .Address

	  End With

	  Do

		If .Cells.FindNext(After:=ActiveCell) Is Nothing Then GoTo 1

		If MsgBox("åá ÊÑíÏ ÇáÈíË Úä äÊíÌÉ ÃÎÑÌ", vbYesNo, "ÇáÈíË Úä ÇáÊÇáí") = vbNo Then Exit Sub

		With .Cells.FindNext(After:=ActiveCell)

		  .Activate

		  NextValue = .Address

		End With

	  Loop Until FirstValue = NextValue

	End With

1  Next Sh

MsgBox ("تم إنهى عملية البحث حيث لم تعد توجد نتائج للبحث")

End Sub

بارك الله فيكم وجعل ما تقدمونه في موازين حسناتكم.

لي عودة بمشيئة الله لأضيف شرح مصور لكيفية إضافة الكود بالورقة الخاصة بالبحث.

تم تعديل يناير 3, 2012 بواسطه blueray