محمد حجازي قام بنشر يناير 22, 2005 مشاركة قام بنشر يناير 22, 2005 (معدل) السلام عليكم ... هذا كود يقوم بالانتقال للورقة التي تقوم بإدخال اسمها : Sub SelectSheets() Dim MySheets As Worksheet Dim SheetsName As String 1 SheetsName = Application.InputBox(prompt:="ادخل اسم الورقة المراد الانتقال إليها", Title:="اسم الورقة", Type:=2) If SheetsName = "" Or SheetsName = "False" Then Exit Sub Else For Each MySheets In ActiveWorkbook.Worksheets If MySheets.Name = SheetsName Then Sheets(SheetsName).Select Exit Sub End If Next MySheets MsgBox ("لاتوجد ورقة بهذا الاسم") GoTo 1 End If End Sub SelectSheets.zip تم تعديل يناير 25, 2005 بواسطه محمد حجازي رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر يناير 23, 2005 مشاركة قام بنشر يناير 23, 2005 السلام عليكم ورحمة الله وبركاتة , ماشاء الله عليك اخي محمد متميز . يعطيك الله الف عافية اتمني لك ولجميع الاخوان التوفيق والنجاح ,,,, رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر يناير 26, 2005 مشاركة قام بنشر يناير 26, 2005 (معدل) أكثر من رائع أخي محمد حجازي .... تميز بلا حدود ولكن هل يمكن تطوير ذلك للأنتقال للصفحه المطلوبه عن طريق قائمة منسدله تحوي أسماء الصفحات ؟ تم تعديل يناير 26, 2005 بواسطه حسام نور رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر يناير 26, 2005 الكاتب مشاركة قام بنشر يناير 26, 2005 السلام عليكم ... الأخ حسام نور ، تفضل المثال كما طلبت : SelectSheets1.zip رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر يناير 26, 2005 مشاركة قام بنشر يناير 26, 2005 - تميز وإبداع بلا حدود أخي محمد حجازي ... تستحق كل خير والحقيقه هذه الميزه جاءت بوقتها حيث اقوم بعمل يحتاج لمثل هذه الميزه الرائعه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها