أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تصميم تبويبات أفقية في شيت إكسيل

تصميم تبويبات أفقية ndash; إكسيل السلام عليكم ورحمة الله وبركاته ...الحمد لله الذي علّم بالقلم علم الإنسان ما لم يعلم ..



16-02-2019 02:56 مساء
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 68
يتابعونه : 32
قوة السمعة : 3995
عدد الإجابات: 2
 offline 


تصميم تبويبات أفقية – إكسيل
 
السلام عليكم ورحمة الله وبركاته ...الحمد لله الذي علّم بالقلم علم الإنسان ما لم يعلم وبعد:
من خلال متابعتي لدروس تعرض على اليوتيوب استوقفتني طريقة تصميم تبويبات أفقية وعمودية على الإكسيل دون الفورم.
طبقت هذه الطريقة ثم أحببت عرضها على أحبتي الكرام في هذا المنتدى الرائع عسى أن يكون حافزاً لمعشر الشباب للبحث عن أساليب جديدة للعرض إذ لا يمنع أن نستقطب الأفكار ثم نطورها بما يخدم حياتنا وأعمالنا..
bh2Rt7dqgNEFq6m
نقوم بكتابة معلومات عامة عن موظف ما في الخلايا من E2:E8
ثم بيانات ساعات العمل (حساب الوقت بين الدخول والخروج مثلاً)
بين الخلايا من M8:R18 .
FMS04oYOPXQ4PPR
ثم بيانات تتعلق بإجمالي الأجر من U8:Z18  كمرحلة أولى بين هذه البيانات المتفرقة أعمدة فارغة ...
نختار: من قائمة إدراج ... أشكال ... مستطيل ذو زاويتين مستديرتين من نفس الجانب ثم باستخدام  Ctrl+D وبعد التنسيقات المطلوبة على الشكل من حيث توسيط الكتابة وحجم الخط وارتفاع وعرض الشكل ننسخه ليصبح 6 أشكال متناسقة
usZRqCDaLiPlkl9
نحدد 3 منها لننقلها جانباً لتشكل القسم الفاتح من التبويبات الثلاثة وذلك باستخدام التعبئة المتدرجة إذ يكون لونها قريباً من الخلفية ...ستستخدم لتعطي تشغيل التبويب On  بينما الداكنة لتعطي عدم التشغيل Off نرتبها أفقياً باستخدام المحاذاة إلى أسفل ثم نطابق كل شكل قاتم مع مثيله المضيء(الفاتح). تتم المطابقة بين كل شكلين بنفس المسمى باستخدام المحاذاة إلى اليمين .
كل تبويب مؤلف من شكلين قاتم وفاتح...في مربع الاسم نسمي كلاً منها باسم محدد لا تفصل بين كلماته فراغات وذلك لاستخدامها ضمن كتابة الأكواد لتشغيل الشكل المراد الضغط عليه بينما البقية يتم إيقاف تشغيلها فتظهر باللون الداكن ويختفي اللون الداكن في التبويب ذاته دون التبويبات الأخرى .
في المرحلة التالية وبعد ضبط الأشكال وتنسيق الجداول نذهب إلى المطور أو باستخدام الاختصار Alt+F11
ندرج موديول ثم نسميه TabMacrs  
تكتب هذه الأكواد لتقوم بالدور الذي ذكرناه من قبل ..

Sub TabGen()
With Sheet1
Application.ScreenUpdating = False 'إيقاف تحديث الشاشة
.Shapes("GenOn").Visible = msoCTrue 'تفعيل هذا الشكل وتشغيله في حال الضغط عليه
.Shapes("GenOff").Visible = msoFalse 'يتم إخفاء هذا الشكل عندما نضغط على الشكل السابق

 .Shapes("TimOn").Visible = msoFalse 'إخفاء الأشكال الفاتحة المجاورة للشكل المضغوط عليه
.Shapes("TimOff").Visible = msoCTrue 'إظهار الشكل الغامق  طالما ظهر الشكل الفاتح السابق

.Shapes("EarOn").Visible = msoFalse 'إخفاء الأشكال الفاتحة المجاورة للشكل المضغوط عليه
.Shapes("EarOff").Visible = msoCTrue

.Range("D:K").EntireColumn.Hidden = False 'هذه الأعمدة المحددة ضمن النطاق ستظهر تحت التبويب فقط
.Range("L:AA").EntireColumn.Hidden = True 'هذه الأعمدة المحددة ضمن النطاق سيتم إخفاؤها
Application.ScreenUpdating = True 'تحديث الشاشة
End With
End Sub

Sub TabTime()
With Sheet1
Application.ScreenUpdating = False
.Shapes("TimOn").Visible = msoCTrue
.Shapes("TimOff").Visible = msoFalse

 
.Shapes("GenOn").Visible = msoFalse
.Shapes("GenOff").Visible = msoCTrue

.Shapes("EarOn").Visible = msoFalse
.Shapes("EarOff").Visible = msoCTrue

.Range("L:S").EntireColumn.Hidden = False
.Range("D:K,T:AA").EntireColumn.Hidden = True
Application.ScreenUpdating = True
End With
End Sub
Sub TabEarn()
With Sheet1
Application.ScreenUpdating = False
.Shapes("EarOn").Visible = msoCTrue
.Shapes("EarOff").Visible = msoFalse

 
.Shapes("GenOn").Visible = msoFalse
.Shapes("GenOff").Visible = msoCTrue

.Shapes("TimOn").Visible = msoFalse
.Shapes("TimOff").Visible = msoCTrue

.Range("T:AA").EntireColumn.Hidden = False
.Range("D:S").EntireColumn.Hidden = True
Application.ScreenUpdating = True
End With
End Sub


ولمنع اهتزاز الشاشة نكتب سطرأ قبل تنفيذ الكود وآخر بعده.
ملاحظة: دائماً نظهر عموداً قبل وبعد الخلايا المراد وضعها ضمن ناق التبويب .
وفي النهاية نقوم بتحديد هذه الأشكال لربطها بالماكرو لتصبح أزراراً للتبويبات
أرجو أن أكون بينت الأسلوب المتبع في هذا الموضوع
هذا الجهد المستطاع ...نسألكم الدعاء
والسلام عليكم ورحمة الله وبركاته.
142
  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
 
  تصميم تبويبات أفقية.rar   تحميل rar مرات التحميل :(131)
الحجم :(107.199) KB

توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


16-02-2019 03:11 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
أحسنت استاذ محمد بارك الله فيك عمل رائع
جعله الله فى ميزان حسناتك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

16-02-2019 03:14 مساء
مشاهدة مشاركة منفردة [2]
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 68
يتابعونه : 32
قوة السمعة : 3995
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
أحسنت استاذ محمد بارك الله فيك عمل رائع
جعله الله فى ميزان حسناتك

أحسن  الله إليكم أخي الغالي علي وبارك بكم ..آمين
تشرفت بمروركم العطر 81
تقبل تحياتي العطرة والسلام عليكم
111
 
توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


16-02-2019 08:08 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
بسم الله ما شاء الله
موضوع رائع وملف قمة في روعة التصميم
بارك الله فيك أخي الغالي أبو يوسف وجزيت خير الجزاء

17-02-2019 08:25 صباحا
مشاهدة مشاركة منفردة [4]
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 68
يتابعونه : 32
قوة السمعة : 3995
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بسم الله ما شاء الله
موضوع رائع وملف قمة في روعة التصميم
بارك الله فيك أخي الغالي أبو يوسف وجزيت خير الجزاء

الأروع هو دعاؤكم الطيب
تشرفت بمروركم العطر أخي الحبيب أبو البراء.

142 111 111

توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


17-02-2019 09:06 صباحا
مشاهدة مشاركة منفردة [5]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل

جزاكم الله خيرا ابويوسف
موضوع رائع
142


توقيع :الصقر

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


17-02-2019 09:28 صباحا
مشاهدة مشاركة منفردة [6]
eslam shapan
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 09-12-2018
رقم العضوية : 9896
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 6-2-1990
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
شكرا مزيد من الابداع




الكلمات الدلالية
تصميم ، تبويبات ، أفقية ، إكسيل ،


 










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

الساعة الآن 12:26 صباحا