hossam200s قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 السلام عليكم ورحمة الله وبركاته أخواتى الافاضل اتمنى لو أجد أجابة على سؤالى اريد ان أعمل شيت بة ازرار للتنقل بين صفحات فيل الأكسل مع أخفاء باقى الصفحات بمعنى أخر مثلا : فايل الأكسل يحتوى على 15 شيت ولكن انا أتحكم فى الفايل بشيت واحدهو اللى ظاهر فى الملف كله وفقط وفيه عدد معين من الأزرار مثلا 15 وبمجرد الضغط على زر معين انتقل الى الشيت المعين ولكن كل الشيتات غير ظاهرة والشيت الظاهر هو الشيت المعمول فيه الازرار شكراً رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 اخي الكريم شاهد المرفق المصنف1.rar رابط هذا التعليق شارك More sharing options...
hossam200s قام بنشر يونيو 25, 2011 الكاتب مشاركة قام بنشر يونيو 25, 2011 شكرا اخى الكريم على سرعة الرد لكن ممكن شرح اكثر او لينك لموضوع بة شرح رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 اخي الكريم بالنسبة للازرار عبارة عن اشكال عادية ثم نجعل لها ارتباط تشعبي اما الاوراق فيمكن اخفاؤها من فائمة الادوات ثم خيارات ثم اظهار تبويب الاوراق ازل التاشير ارجوا انني وضحت المطلوب رابط هذا التعليق شارك More sharing options...
hossam200s قام بنشر يونيو 25, 2011 الكاتب مشاركة قام بنشر يونيو 25, 2011 شكرا اخى العزيز وصلت الفكرة رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يونيو 25, 2011 مشاركة قام بنشر يونيو 25, 2011 الاستاذ يحياوي : الله يجزيك الخير وفقك الله ياسر الحافظ رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يونيو 26, 2011 مشاركة قام بنشر يونيو 26, 2011 كلام سليم وأضيف أنه يمكنك إخفاء الشيتات بطريقة أقوى من داخل الفيجوال بيزك فى حالة الرغبة فى إخفاء الشيتات بشكل كامل رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 27, 2011 مشاركة قام بنشر يونيو 27, 2011 كلام سليم وأضيف أنه يمكنك إخفاء الشيتات بطريقة أقوى من داخل الفيجوال بيزك فى حالة الرغبة فى إخفاء الشيتات بشكل كامل اخي الكريم يوسف بارك الله فيك على التعقيب ولكن عند اخفاء الاوراق لا يمكن التنقل بينها رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 كيف يمكن اخفاء الشيتات بطريقة اقوى عن طريق الفيجوال رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 اخي الكريم لاحظ الصورة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 السلام عليكم بعد اذن الاخوة الافاضل تفضل المرفق صفحة واجهة دخول للوراق اضغط دبل كليك على الخلايا الملونه وعند الرجوع للواجهه تختفي الورقه هذه عن طريق الاكواد صفحة تنقل.rar رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 السلام عليكم بعد اذن الاخوة الافاضل تفضل المرفق صفحة واجهة دخول للوراق اضغط دبل كليك على الخلايا الملونه وعند الرجوع للواجهه تختفي الورقه هذه عن طريق الاكواد اخي العيدروس فكرة ممتازة اليك هذا الملف نفس الملف به بعض الاضافة windows-1256__صفحة تنقل.rar رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 السلام عليكم ورحمة الله الاخ حســـام بالإضـــافة إلى حل الإخوة إليك حل آخر فأختار ماتريد بإمكانك إضافة اي عدد من الصفحات فتظهر تلقائي في الكومبو بكس والخاص بفورم الذهاب إلى الصفحة عند تحميل الفورم يقوم الكود بقراءة أسماء الصفحات فيظهرها في الكومبوبكس إخفاء كافة الصفحات والتنقل بينها برقمها فقط.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 28, 2011 مشاركة قام بنشر يونيو 28, 2011 الاخ الفاضل يحياوي تسلم على الاضافه الاخ الفاضل KHMB حل جميل بارك الله فيكم تحياتي رابط هذا التعليق شارك More sharing options...
باسنت العمري قام بنشر نوفمبر 7, 2011 مشاركة قام بنشر نوفمبر 7, 2011 السلام عليكم / الاساتذة الكرام / هل يمكن تطبيق التنقل بين الصفحات بالاكواد على 40 صفحة . آمل منكم مساعدتي فأنا بحاجة لهذه الطريقة رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 السلام عليكم / الاساتذة الكرام / هل يمكن تطبيق التنقل بين الصفحات بالاكواد على 40 صفحة . آمل منكم مساعدتي فأنا بحاجة لهذه الطريقة يمكن ذلك ولو تلحظ حل الاخ KHMB انه لو يتم اضافة صفحات جديدة انه يتم ادراجها ضمن الاوراق الموجودة مسبقا رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 الاخوة الزملاء أراء رائعة وكل عام وانتم بخير بعد اذنكم اضافة اوراق عمل اى عدد تحدده او مسح ورقة عمل او تسمية من زميل عزيز عليه من المنتدى مع بعض التعديلات مجدى يونس Last Add Remove قائمة منسدله.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 السلام عليكم عيدكم مبارك وكل عام وأنتم بخير موضوع مميز وأفكار جديدة تشكرون يا أساتذتي الكرام وجعلها الله في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
باسنت العمري قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 (معدل) السلام عليكم جزاك الله خيرا أستاذي ، ولكن أنا بحاجة لطريقة الاستاذ alidroos . عند إضافة صفحات واستخدام الطريقة لا يعمل الكود . تم تعديل نوفمبر 8, 2011 بواسطه باسنت العمري رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 اخوانى الافاضل كنت قد طرحت فورم بسيط يمكن التنقل به عبر الاوراق والكمبوبكس تقبل الكتابة داخلها وتضيف منها اوراق شكرا لكم تحياتى سعد عابد التنقل والاضاف.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 السلام عليكم الاخت الفاضلة باسنت العمري تم عمل اللازم على ملف العيدروس تم تعديل الكود ليقوم بإخفاء جميع الاوراق حتى المضاف منها كما ان اي ورقة جديدة تضتف الى الملف ستجدها في الورقة الاولى وبالضغط عليها ستنقلك الى هذه الورقة. جرب واعلمني هل هذا هو المطلوب صفحة تنقل.rar رابط هذا التعليق شارك More sharing options...
باسنت العمري قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 (معدل) أستاذي الكريم / شاكرة ومقدرة لك مساعدتي وبارك الله فيك هذا هو المطلوب ، ولكن عند تغيير الخلية من مكانها لاعادة الترتيب فإن الامر لا يعمل . صفحة تنقل .rar تم تعديل نوفمبر 8, 2011 بواسطه باسنت العمري رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 الاخت الفاضلة بسنت العمري امسحي هذ السطر من الكود If Target.Row <> 4 Then Exit Sub ليصبح الكود هكذا Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Value <> "" Then x = Target.Value Sheets(x).Visible = True Sheets(x).Select End If End Sub رابط هذا التعليق شارك More sharing options...
باسنت العمري قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 أستاذي الكريم / اا عبد اللّه المجرب اا هذا هو المطلوب شاكرة لك تعاونك معي وابداعك الأكثر من رائع . رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر نوفمبر 9, 2011 مشاركة قام بنشر نوفمبر 9, 2011 بالفعل النتيجة النهائية رائعة بل وأكثر من رائعة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان