KHMB قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 (معدل) Private Sub CommandButton1_Click() Dim i As Long 'Check if sheet name found or not For i = 1 To Worksheets.Count If Me.TextBox1.Text = Worksheets(i).Name Then Me.TextBox2.Text = Worksheets(i).Name MsgBox "ÅÓã ÇáÕÝÍÉ ãæÌæÏ ãÓÈÞÇ, íÑÌì ÅÎÊíÇÑ ÅÓã ÃÎÑ", vbOKOnly + vbCritical, "ÊäÈíå" Exit Sub End If Next السلام عليكم ورحمة الله وبركاتة المطلوب البحث عن إسم الصفحة من خلال مرع النص (Text1) وإظهار النتيجة في مربع النص (Text2) مع ملاحظـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــة / ان إسم الشيت أحيانا بأرقام فقط واحيانا بحروف فقط واحيانا بارقام وحروف معا لانني حاولت عندما اعطي نوع المتغير I Integer : يظهر لي الأسماء التي بالأرقام اعطيتة متغير نصي لم يظهر لي نتيجة لا ارقا ولا الاسم بالحروف ثم حاولت ب Long ظهرت لي النتيجة للاسماء بالأرقام مثل Integer مرفق المثال بحث عن شيت.rar تم تعديل نوفمبر 20, 2014 بواسطه KHMB
ibn_egypt قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 أخى الفاصل جرب الملف المرفق، وطلبك الاخر قيد التنفيذ واوشك على الانتهاء خالص تحياتى بحث عن شيت.rar
ياسر خليل أبو البراء قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 (معدل) الأخ الحبيب .. أنت تريد ظهور نتيجة البحث وفي نفس الوقت أن تكتب اسم ورقة العمل في مربع النص الأول ... يعني نتيجة البحث = مربع النص الأول تم تعديل نوفمبر 20, 2014 بواسطه YasserKhalil
KHMB قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 (معدل) السلام عليكم ورحمة الله وبركاتة اخي ابن مصر ادعوا لك وأتمنى من الله السداد والتوفيق لك ولاهلك وان يبارك فيكم جزاك الله خير وهذا الطلب هو لغرض المحاولة في الطلب السابق كمجهود كي اتعلم فقط بغض النظر عن العيوب والنواص فيه. إنما إعتمادي كعمل متقن هو ماتبدعوه . الطلب الأول الذي تعمل علية خذ راحتك حسب الفرص والظروف المتاحة لديك ولا جزاء لك عندنا إلا الدعاء من القلب بصدق نية والله خير الشاهدين اخيك المحب في الله أبو الحسن والحسين تم تعديل نوفمبر 20, 2014 بواسطه KHMB
KHMB قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 السلام عليكم ورحمة الله الأخ ياسر خليل ارجع لبداية السطر الأول وستلاحظ الطلب بارك الله فيك
ibn_egypt قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 السلام عليكم ورحمة الله وبركاتة اخي ابن مصر ادعوا لك وأتمنى من الله السداد والتوفيق لك ولاهلك وان يبارك فيكم جزاك الله خير وهذا الطلب هو لغرض المحاولة في الطلب السابق كمجهود كي اتعلم فقط بغض النظر عن العيوب والنواص فيه. إنما إعتمادي كعمل متقن هو ماتبدعوه . اخيك المحب في الله أبو الحسن والحسين أحبك الله الذي أحببتني فيه، وبارك لك في الحسن والحسين ورزقك برهما اللهم آمين تحياتي
KHMB قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 (معدل) السلام عليكم ورحمة الله تمت التجربة بالبحت عن أسماء الشيتات سوى بالحروف او الأرقام فهي 100 % جزاك الله خير تم تعديل نوفمبر 20, 2014 بواسطه KHMB
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.