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

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


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





تعديل كود اخفاء صفوف معينة بمجرد اختيار من قائمة منسدلة

السلام عليكم اساتذتى الكرام وعام سعيد عليكم جميعاً .. أرجو التكرم من حضراتكم على مساعدتى فى تعديل هذا الكود ,,, فعندما أ ..


موضوع مغلق


25-12-2021 07:32 مساء
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 480
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 

السلام عليكم اساتذتى الكرام وعام سعيد عليكم جميعاً .. أرجو التكرم من حضراتكم على مساعدتى فى تعديل هذا الكود ,,, فعندما أقوم بأختيار هذه الجملة من القائمة المنسدلة الموجودة بالخلية B6 

                     

Individual Luxor              أو      Luxor Over Day  

يتم اخفاء الصف 13 & 14 معاً

أما عند اختيار    

Dandara Luxor          أو    Individual Dandara                                              يتم اخفاء الصف رقم 14 فقط

وأخيراً عند اختيار    Luxor Over Day Deluxe     أو   Individual Luxor Deluxe          يتم بناءاً عليه اخفاء الصف رقم 13 فقط

ولكم جزيل الشكر وبارك الله فى مجهوداتكم جميعاً

Private Sub Worksheet_Change2(ByVal Target As Range)
    If Range("B6").Value = "Luxor Over Day" Then
        Rows("13:14").EntireRow.Hidden = True
    ElseIf Range("E50").Value = "luxor Dandara" Then
         Rows("14").EntireRow.Hidden = True
    End If
End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  Row Hidden.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(19.315) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمة الله وبركاته 
كيف حالك اخى هانى

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.EntireRow.Hidden = False
Select Case Range("B6").Value
Case "Individual Luxor"
Rows("13:14").EntireRow.Hidden = True
Case "Luxor Over Day"
Rows("13:14").EntireRow.Hidden = True
Case "Dandara Luxor"
Rows("14").EntireRow.Hidden = True
Case "Individual Dandara"
Rows("14").EntireRow.Hidden = True
Case("Luxor Over Day Deluxe")
Rows("13").EntireRow.Hidden = True
Case("Individual Luxor Deluxe")
Rows("13").EntireRow.Hidden = True
End Select
End sub
عرض الإجابة




26-12-2021 02:56 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تعديل كود اخفاء صفوف معينة بمجرد اختيار من قائمة منسدلة
وعليكم السلام ورحمة الله وبركاته 
كيف حالك اخى هانى

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.EntireRow.Hidden = False
Select Case Range("B6").Value
Case "Individual Luxor"
Rows("13:14").EntireRow.Hidden = True
Case "Luxor Over Day"
Rows("13:14").EntireRow.Hidden = True
Case "Dandara Luxor"
Rows("14").EntireRow.Hidden = True
Case "Individual Dandara"
Rows("14").EntireRow.Hidden = True
Case("Luxor Over Day Deluxe")
Rows("13").EntireRow.Hidden = True
Case("Individual Luxor Deluxe")
Rows("13").EntireRow.Hidden = True
End Select
End sub

26-12-2021 08:51 صباحا
مشاهدة مشاركة منفردة [2]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 480
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif تعديل كود اخفاء صفوف معينة بمجرد اختيار من قائمة منسدلة

والله الحمد لله أكرمك الله استاذ حسونة وبارك الله فيك وفى اولادك ووسع الله فى رزقك ... جزاك الله خير الثواب وفرج الله عنك كربات يوم القيامة



بالفعل هذا هو المطلوب



26-12-2021 10:39 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تعديل كود اخفاء صفوف معينة بمجرد اختيار من قائمة منسدلة
الحمد لله الذي بنعمته تتم الصالحات 
وفيك بارك اخى هانى 

27-12-2021 07:27 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل كود اخفاء صفوف معينة بمجرد اختيار من قائمة منسدلة
بارك الله فيك أخي العزيز حسونة وجزيت خيراً

27-12-2021 11:00 صباحا
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif تعديل كود اخفاء صفوف معينة بمجرد اختيار من قائمة منسدلة
وفيك بارك استاذنا الغالى ابو البراء 
وجزاكم مثله اخى الغالى 



الكلمات الدلالية
تعديل ، اخفاء ، صفوف ، معينة ، بمجرد ، اختيار ، قائمة ، منسدلة ،


 










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

الساعة الآن 06:43 مساء