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

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


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





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

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



17-02-2019 12:14 مساء
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 68
يتابعونه : 32
قوة السمعة : 3995
عدد الإجابات: 2
 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

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

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

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


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

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


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

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


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

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

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


post-310


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

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


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




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


 










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

الساعة الآن 04:45 مساء