اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

peter7boob

عضو جديد 01
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    13

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه peter7boob

    combobox برجاء المساعدة فى كود اظهار القائمة متغيرة متجددة

    في منتدى الاكسيل Excel

    قام بنشر

    فى هذا الملف ما اريده بالتحديد

    اظهار الاسماء فى الكمبوبوكس بناء على بيانات جدول

    Option Explicit
     
    Private Sub Worksheet_Activate()
    Dim lr, x
    With Sheets("sheet1")
    Application.ScreenUpdating = False
    lr = .Cells(Rows.Count, 1).End(3).Row
    Dim arr1(), arr2(), m%, n%
    For x = 2 To lr
     
    If .Cells(x, 2) = "نصف شهري" Then
     ReDim Preserve arr1(m): arr1(m) = Range("a" & x): m = m + 1
    Else
     ReDim Preserve arr2(n): arr2(n) = Range("a" & x): n = n + 1
    End If
     Next
     Me.ComboBox1.List = Application.Transpose(arr1)
     Me.ComboBox2.List = Application.Transpose(arr2)
    Erase arr1: Erase arr2
     
    Application.ScreenUpdating = True
    End With
    End Sub

    شكرا أ / Salim
    هل يمكن المساعدة فى اضافة الكود بطريقة صحيحة
    حيث اتمكن من فهم اين القيم التى يجب تغييرها لتعمل على الشيت الاساسى
    وهل هذا الكود يتم ظهور الاسماء حسب التصنيف ( شهرى / نصف شهرى ) فقط ام ( شهرى / نصف شهرى ) والحالة ( "نعم & اجازه" = ظهور      "لا"=اخفاء)
    البيانات الاساسية فى الشيت
    اسم الموظف من (A4:A63) ترتيب العمود " العمود رقم 2 "
    الراتب"شهري/نصف شهري" (CK4:CK63) ترتيب العمود " العمود رقم 89"
    الحالة "نعم/اجازة/لا" (CL4:CL63) ترتيب العمود " العمود رقم 90 "

    combobox برجاء المساعدة فى كود اظهار القائمة متغيرة متجددة

    في منتدى الاكسيل Excel

    قام بنشر

    الف شكر ل أ / حسن مأمون و أ / احمد يوسف

    بس الكود محتاج تعديل 

    بس تعديل صغير
    اول combobox 1 ويخص ال نصف شهرى مظبوط تمام ( لا يتم ظهور اسماء النصف شهرية ولا يتم ظهور الحالة لا )
    اما combobox 2  ويخص ال شهرى يحتاج تعديل صغير ( انه لا يتم ظهور اسماء النصف شهرية ولكن يظهر الحالة لا ) محتاج تعديل اخفاء الاسماء التى حالتها لا فى النصف شهرى

    وعمل الكود بشكل تلقائى متجدد عند تغيير نوع الراتب من (شهرى لنصف شهرى ... والعكس )او الحالة من ( نعم الى لا .. والعكس ) حيث ان نعم "ظهور الاسم" و لا " اخفاء الاسم "
    ولك جزيل الشكر والتقدير
    وبرجاء شرح الكود لتطبيقة على التصميم الخاص بى واكون جزيل الشكر لو تم شرح الكود

    test202020.xlsm

    س تعديل صغير
    اول combobox 1 ويخص ال نصف شهرى مظبوط تمام ( لا يتم ظهور اسماء النصف شهرية ولا يتم ظهور الحالة لا ) تمام
    اما combobox 2  ويخص ال شهرى يحتاج تعديل صغير ( انه لا يتم ظهور اسماء النصف شهرية ولكن يظهر الحالة لا ) محتاج تعديل اخفاء الاسماء التى حالتها لا فى الشهرى

    وعمل الكود بشكل تلقائى متجدد عند تغيير نوع الراتب من (شهرى لنصف شهرى ... والعكس )او الحالة من ( نعم الى لا .. والعكس ) حيث ان نعم "ظهور الاسم" و لا " اخفاء الاسم "
    ولك جزيل الشكر والتقدير
    وبرجاء شرح الكود لتطبيقة على التصميم الخاص بى واكون جزيل الشكر لو تم شرح الكود

    combobox برجاء المساعدة فى كود اظهار القائمة متغيرة متجددة

    في منتدى الاكسيل Excel

    قام بنشر

    الى خبراء الاكسيل والفيجوال 

    برجاء المساعدة فى فلترة الاسماء الظاهره فى الكمبوبوكس بشرط معين

     موظف نصف شهري يتم اظهاره فى كمبوبوكس 1

    موظف نصف شهري يتم اظهاره فى كمبوبوكس 2

    فى حالة وجود اسم الموظف ولا يوجد ( شهرى او نصف شهرى ) لا يتم ادراجه فى الكمبوبوكس 1 & 2

    فى حالة وجود اسم الموظف ولا يوجد الحالة ( نعم , لا ) لا يتم ادراجه فى الكمبوبوكس 1 & 2

    وفى حالة تغيير الموظف من شهرى لنصف شهرى يظهر فى كمبوبوكس1 ( الخاص به ) والعكس ...

    مرفق ملف توضيحى للمساعدة فى حل المشكلة:wavetowel:

    :jump:ولكم جذيل الشكر:jump:

    سوف تحذف جميع مشاركاتك اذا تكرر رفع نفس المشاركة على العديد من المشاركات القديمة المختلفة فهذا مخالف وممنوع

    Test.xlsm

    combobox برجاء المساعدة فى اظهار القائمة بشرط معين

    في منتدى الاكسيل Excel

    قام بنشر

    الى خبراء الاكسيل والفيجوال 

    برجاء المساعدة فى فلترة الاسماء الظاهره فى الكمبوبوكس بشرط معين

     موظف نصف شهري يتم اظهاره فى كمبوبوكس 1

    موظف نصف شهري يتم اظهاره فى كمبوبوكس 2

    فى حالة موظف شهرى او نصف شهرى لا يتم اخفائه من القائمتين

    وفى حالة تغيير الموظف من شهرى لنصف شهرى يظهر فى كمبوبوكس1 والعكس ...

    مرفق ملف توضيحى للمساعدة فى حل المشكلة

    ولكم جذيل الشكر

    Test.xlsx

×
×
  • اضف...

Important Information

  I accept