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

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


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



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





تصميم تبويبات عمودية في شيت إكسيل

تصميم تبويبات عمودية في شيت إكسيل السلام عليكم ورحمة الله وبركاته كما أسلفت - إخوتي الكرام - في موضوع تصميم تبويبات أف ..



17-02-2019 12:14 مساء
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3192
الاعجاب : 238
 offline 

تصميم تبويبات عمودية في شيت إكسيل 
السلام عليكم ورحمة الله وبركاته
كما أسلفت -  إخوتي الكرام - في موضوع تصميم تبويبات أفقية في شيت إكسيل ، تابعت أيضاً تصميم تبويبات عمودية 
حيث يتم تصميمها بالأشكال وباستخدام التنسيق الشرطي ...بعد تصميم الملف مجزأَ إلى نطاقات بعدد التبويبات التي نريد تصميمها
نقوم بالتنسيق بالألوان والخطوط المناسبة والمنسجمة فيما بينها ...
ثم من إدراج - أشكال - المستطيل مستدير الزوايا ...نقوم بتنسيقها وتوسيط الكلمات داخلها بحيث تظهر بلون الخلفية
1yqpEHPRtf0vn2C
9GxO49DvPMWxPKt 0vd7iyrnTS8ADMU ddxFDT58ntQ5ZGF
ثم نقوم بتسميتها في مربع الاسم بأسماء ستستخدم في الأكواد التالي ذكرها 
   * في حدث المصنف يتم وضع الكود التالي للتنقل بين التبويبات ثم ينقلك إلى الكود المراد تنفيذه في الموديول حسب تنقلك بين هذه التبويبات:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E5:E8")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Range("B3").Value = Target.Row
Run "ShowTab" & Target.Row - 4
End If
End Sub

أما في الموديول الذي سيتم تنفيذ أكواده حسب التنقل بين التبويبات تتم كتابة الأكواد التالية:

Sub ShowTab1()
'معلومات عامة
Application.ScreenUpdating = False
HideAll
Sheet1.Shapes("GenInfoLabel").Visible = msoCTrue
Sheet1.Range("G:K").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub
Sub ShowTab2()
'تفاصيل ساعات العمل
Application.ScreenUpdating = False
HideAll
Sheet1.Shapes("TimeCLockLabel").Visible = msoCTrue
Sheet1.Range("O:S").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub
Sub ShowTab3()
'سجل الأجور
Application.ScreenUpdating = False
HideAll
Sheet1.Shapes("PayrollLabel").Visible = msoCTrue
Sheet1.Range("X:AB").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub
Sub ShowTab4()
'ملاحظات حول الموظف
Application.ScreenUpdating = False
HideAll
Sheet1.Shapes("NotesLabel").Visible = msoCTrue
Sheet1.Range("AH:AH").EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub
Sub HideAll() 'إخفاء الكل
With Sheet1
.Shapes("GenInfoLabel").Visible = msoFalse
.Shapes("TimeCLockLabel").Visible = msoFalse
.Shapes("PayrollLabel").Visible = msoFalse
.Shapes("NotesLabel").Visible = msoFalse
.Range("G:AH").EntireColumn.Hidden = True
End With
End Sub

أرجو أن يكون مفيداً ..نسأل الله تعالى أن يزيدنا من علمه وأن يجعله نافعاً خالصاً لوجهه الكريم
والسلام عليكم ورحمة الله وبركاته.
 
 
  تبويبات عمودية.rar   تحميل rar مرات التحميل :(108)
الحجم :(40.445) KB


أثارت هذه المشاركة إعجاب: Galal ELGammal، dovani، kby، karwan، aitlouvbatou،


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

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




17-02-2019 12:35 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
بارك الله فيك أخي الحبيب أبو يوسف وجزيت خيراً
مجهود رائع .. جعله الله في ميزان حسناتك يوم القيامة

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




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





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

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



17-02-2019 06:11 مساء
مشاهدة مشاركة منفردة [3]
mohamed_omar
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-12-2018
رقم العضوية : 10142
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 7-4-1975
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 76
الاعجاب : 3
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
بارك الله فيك





17-02-2019 07:27 مساء
مشاهدة مشاركة منفردة [4]
abdulwahed catran
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 162
الجنس : ذكر
تاريخ الميلاد : 10-2-1968
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 266
الاعجاب : 8
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
جزاكم الله خيرا





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


post-310





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

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



18-02-2019 10:02 مساء
مشاهدة مشاركة منفردة [6]
Khairi
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 161
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 1
يتابعونه : 6
قوة السمعة : 105
الاعجاب : 6
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
بارك الله فيك أخي 

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




01-04-2019 04:11 مساء
مشاهدة مشاركة منفردة [7]
abotala2015
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-04-2019
رقم العضوية : 12214
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 1-3-1984
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
شكررررررررررررررررررررررررررررررا

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




01-04-2019 04:14 مساء
مشاهدة مشاركة منفردة [8]
sam
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1865
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 11-5-1974
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
جزاك الله خيراً

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




01-04-2019 04:15 مساء
مشاهدة مشاركة منفردة [9]
F.Y
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-11-2018
رقم العضوية : 8996
المشاركات : 46
الجنس : أنثى
تاريخ الميلاد : 1-2-1988
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 106
الاعجاب : 9
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
جزاكم الله خير

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




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

المشاركة الأصلية كتبت بواسطة: Khairi
بارك الله فيك أخي 

المشاركة الأصلية كتبت بواسطة: abotala2015
شكررررررررررررررررررررررررررررررا

المشاركة الأصلية كتبت بواسطة: F.Y
جزاك الله خيراً 

post-310






تم تحرير المشاركة بواسطة :محمد حسن المحمد
بتاريخ:01-04-2019 04:47 مساء




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

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



01-04-2019 04:59 مساء
مشاهدة مشاركة منفردة [11]
مالك ماريه
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 571
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 8
قوة السمعة : 930
الاعجاب : 137
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
جزاكم الله خيرا

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




01-04-2019 06:02 مساء
مشاهدة مشاركة منفردة [12]
yassrsat
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 19-12-2017
رقم العضوية : 2662
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 10-1-1979
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 1
 offline 
look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
شكراااااااااااااااااا

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





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

الكلمات الدلالية
تصميم ، تبويبات ، عمودية ، إكسيل ،


 







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



الساعة الآن 07:17 صباحا

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