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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



16-02-2019 02:56 مساء
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3194
الاعجاب : 239
 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 مرات التحميل :(90)
الحجم :(107.199) KB


أثارت هذه المشاركة إعجاب: كاري محمد، السعيد الجزائري،


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

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




16-02-2019 03:11 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6335
الاعجاب : 962
 Online 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
أحسنت استاذ محمد بارك الله فيك عمل رائع
جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


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

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



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

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



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





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

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

142 111 111




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

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



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

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



أثارت هذه المشاركة إعجاب: محمد حسن المحمد،


توقيع :الصقر

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



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

أثارت هذه المشاركة إعجاب: محمد حسن المحمد،




17-02-2019 09:32 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8167
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23793
الاعجاب : 2466
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
اسلام شعبان .. نور العلم ؟!! 
هل هذا هو أنت؟

أثارت هذه المشاركة إعجاب: محمد حسن المحمد،




17-02-2019 10:57 صباحا
مشاهدة مشاركة منفردة [8]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3194
الاعجاب : 239
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل

[/quote]
المشاركة الأصلية كتبت بواسطة: الصقر

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


المشاركة الأصلية كتبت بواسطة: eslam shapan
شكرا مزيد من الابداع


تشرفت بمروركم العطر أخي الغالي حسام - الصقر 
142 111 111

كما أشكر الأخ إسلام شعبان على كلماته الطيبة.
والسلام عليكم.

142 111 111
 








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

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



17-02-2019 12:49 مساء
مشاهدة مشاركة منفردة [9]
yousifaziz
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 828
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 7-7-1986
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 134
الاعجاب : 9
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
شكرا وجزاك الله خير علي البرنامج

أثارت هذه المشاركة إعجاب: محمد حسن المحمد،




17-02-2019 02:50 مساء
مشاهدة مشاركة منفردة [10]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3194
الاعجاب : 239
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
المشاركة الأصلية كتبت بواسطة: yousifaziz
شكرا وجزاك الله خير علي البرنامج

بارك الله فيكم أخي الكريم ولكم بمثل ما دعوتم ...آمين
 



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

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



17-02-2019 03:41 مساء
مشاهدة مشاركة منفردة [11]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1225
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 39
يتابعهم : 2
يتابعونه : 615
قوة السمعة : 8892
الاعجاب : 546
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
جزاكم الله خيرا اخي الكريم ابو يوسف
تصميم روعة
تحياتي
142


أثارت هذه المشاركة إعجاب: محمد حسن المحمد،


توقيع :Yasser Elaraby
663013020



17-02-2019 04:52 مساء
مشاهدة مشاركة منفردة [12]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3194
الاعجاب : 239
 offline 
look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby
جزاكم الله خيرا اخي الكريم ابو يوسف
تصميم روعة
تحياتي
142

الأروع منه مروركم الطيب العطر على موضوعي أخي الحبيب أبو أسيل
111 111 111



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

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




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصميم تبويبات عمودية في شيت إكسيل محمد حسن المحمد
29 2152 محمد حسن المحمد

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


 







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



الساعة الآن 09:45 صباحا

أعلن هنا
أعلن هنا
أعلن هنا