logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





17-02-2019 12:14 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
تصميم تبويبات عمودية في شيت إكسيل السلام عليكم ورحمة الله وبركاته
كما أسلفت - إخوتي الكرام - في موضوع تصميم تبويبات أفقية في شيت إكسيل ، تابعت أيضاً تصميم تبويبات عمودية
حيث يتم تصميمها بالأشكال وباستخدام التنسيق الشرطي ...بعد تصميم الملف مجزأَ إلى نطاقات بعدد التبويبات التي نريد تصميمها
نقوم بالتنسيق بالألوان والخطوط المناسبة والمنسجمة فيما بينها ...
ثم من إدراج - أشكال - المستطيل مستدير الزوايا ...نقوم بتنسيقها وتوسيط الكلمات داخلها بحيث تظهر بلون الخلفية
1yqpEHPRtf0vn2C
9GxO49DvPMWxPKt 0vd7iyrnTS8ADMU ddxFDT58ntQ5ZGF
ثم نقوم بتسميتها في مربع الاسم بأسماء ستستخدم في الأكواد التالي ذكرها
* في حدث المصنف يتم وضع الكود التالي للتنقل بين التبويبات ثم ينقلك إلى الكود المراد تنفيذه في الموديول حسب تنقلك بين هذه التبويبات:
CODE

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


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

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


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


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


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

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


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




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



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

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


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




look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
  17-02-2019 07:27 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 169
الدولة : سورية
الجنس :
تاريخ الميلاد : 10-2-1968
قوة السمعة : 280
الاعجاب : 0
جزاكم الله خيرا




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



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

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


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




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




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




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




look/images/icons/i1.gif تصميم تبويبات عمودية في شيت إكسيل
  01-04-2019 04:42 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: sam جزاك الله خيراً
المشاركة الأصلية كتبت بواسطة: Khairi بارك الله فيك أخي
المشاركة الأصلية كتبت بواسطة: abotala2015 شكررررررررررررررررررررررررررررررا
المشاركة الأصلية كتبت بواسطة: F.Y جزاك الله خيراً
post-310





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




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

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


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




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




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




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

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









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

الساعة الآن 08:31 AM