logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





16-02-2019 02:56 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
تصميم تبويبات أفقية – إكسيل
السلام عليكم ورحمة الله وبركاته ...الحمد لله الذي علّم بالقلم علم الإنسان ما لم يعلم وبعد:
من خلال متابعتي لدروس تعرض على اليوتيوب استوقفتني طريقة تصميم تبويبات أفقية وعمودية على الإكسيل دون الفورم.
طبقت هذه الطريقة ثم أحببت عرضها على أحبتي الكرام في هذا المنتدى الرائع عسى أن يكون حافزاً لمعشر الشباب للبحث عن أساليب جديدة للعرض إذ لا يمنع أن نستقطب الأفكار ثم نطورها بما يخدم حياتنا وأعمالنا..
bh2Rt7dqgNEFq6m
نقوم بكتابة معلومات عامة عن موظف ما في الخلايا من E2:E8
ثم بيانات ساعات العمل (حساب الوقت بين الدخول والخروج مثلاً)
بين الخلايا من M8:R18 .
FMS04oYOPXQ4PPR
ثم بيانات تتعلق بإجمالي الأجر من U8:Z18 كمرحلة أولى بين هذه البيانات المتفرقة أعمدة فارغة ...
نختار: من قائمة إدراج ... أشكال ... مستطيل ذو زاويتين مستديرتين من نفس الجانب ثم باستخدام Ctrl+D وبعد التنسيقات المطلوبة على الشكل من حيث توسيط الكتابة وحجم الخط وارتفاع وعرض الشكل ننسخه ليصبح 6 أشكال متناسقة
usZRqCDaLiPlkl9
نحدد 3 منها لننقلها جانباً لتشكل القسم الفاتح من التبويبات الثلاثة وذلك باستخدام التعبئة المتدرجة إذ يكون لونها قريباً من الخلفية ...ستستخدم لتعطي تشغيل التبويب On بينما الداكنة لتعطي عدم التشغيل Off نرتبها أفقياً باستخدام المحاذاة إلى أسفل ثم نطابق كل شكل قاتم مع مثيله المضيء(الفاتح). تتم المطابقة بين كل شكلين بنفس المسمى باستخدام المحاذاة إلى اليمين .
كل تبويب مؤلف من شكلين قاتم وفاتح...في مربع الاسم نسمي كلاً منها باسم محدد لا تفصل بين كلماته فراغات وذلك لاستخدامها ضمن كتابة الأكواد لتشغيل الشكل المراد الضغط عليه بينما البقية يتم إيقاف تشغيلها فتظهر باللون الداكن ويختفي اللون الداكن في التبويب ذاته دون التبويبات الأخرى .
في المرحلة التالية وبعد ضبط الأشكال وتنسيق الجداول نذهب إلى المطور أو باستخدام الاختصار Alt+F11
ندرج موديول ثم نسميه TabMacrs
تكتب هذه الأكواد لتقوم بالدور الذي ذكرناه من قبل ..
CODE

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
attachتصميم تبويبات أفقية.rar
 
 
  تصميم تبويبات أفقية.rar   تحميل rar مرات التحميل :(134)
الحجم :(107.199) KB


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


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

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


look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  16-02-2019 03:11 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
أحسنت استاذ محمد بارك الله فيك عمل رائع
جعله الله فى ميزان حسناتك

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


توقيع :ali mohamed ali


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

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



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

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


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




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

142 111 111



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

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


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

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




توقيع :الصقر

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


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




look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  17-02-2019 09:32 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
اسلام شعبان .. نور العلم ؟!!
هل هذا هو أنت؟




look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  17-02-2019 10:57 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
[/quote]
المشاركة الأصلية كتبت بواسطة: الصقر

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

المشاركة الأصلية كتبت بواسطة: eslam shapan شكرا مزيد من الابداع
تشرفت بمروركم العطر أخي الغالي حسام - الصقر
142 111 111

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

142 111 111




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

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


look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  17-02-2019 12:49 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 828
المشاركات : 183
الجنس :
تاريخ الميلاد : 7-7-1986
الدعوات : 1
قوة السمعة : 167
الاعجاب : 0
شكرا وجزاك الله خير علي البرنامج




look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  17-02-2019 02:50 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: yousifaziz شكرا وجزاك الله خير علي البرنامج
بارك الله فيكم أخي الكريم ولكم بمثل ما دعوتم ...آمين



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

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


look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  17-02-2019 03:41 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزاكم الله خيرا اخي الكريم ابو يوسف
تصميم روعة
تحياتي
142



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif تصميم تبويبات أفقية في شيت إكسيل
  17-02-2019 04:52 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby جزاكم الله خيرا اخي الكريم ابو يوسف
تصميم روعة
تحياتي
142
الأروع منه مروركم الطيب العطر على موضوعي أخي الحبيب أبو أسيل
111 111 111



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

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


اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 3 < 1 2 3 >




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

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









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

الساعة الآن 04:43 PM