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

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


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





ملف تعبئة بيانات عن طريق القوائم المنسدلة

السلام عليكم ....لقد ارفقت ملف اكسل لطلب القائمين على هذا المنتدى وزواره ايجاد صيغة مناسبة لتعبئة البيانات حسب الطلب في ..



23-06-2020 07:50 مساء
mostachar
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 1-1-1979
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 36
 offline 

السلام عليكم ....لقد ارفقت ملف اكسل لطلب القائمين على هذا المنتدى وزواره ايجاد صيغة مناسبة لتعبئة البيانات حسب الطلب في الملف المرفق 
حيث أريد تعبئة الجدول ادناه من صفحة " كل البيانات " عن طريق قوائم منسدلة
حيث نختار من القائمة المنسدلة ما نريد احضاره من بيانات ليتم عرضها في الجدول وطباعتها
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب MTMwNTUxMQ2929%D8%A7%D9%84%D8%AA%D8%B9%D8%A8%D8%A6%D8%A9%20%D8%A8%D8%A7%D8%B3%D8%AA%D8%B9%D9%85%D8%A7%D9%84%20%D8%A7%D9%84%D9%82%D9%88%D8%A7%D8%A6%D9%85%20%D8%A7%D9%84%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9

 
  التعبئة باستعمال القوائم المنسدلة.jpg   تحميل jpg التعبئة باستعمال القوائم المنسدلة.jpg مرات التحميل :(1)
الحجم :(191.773) KB
 
  التعبئة باستعمال القوائم المنسدلة.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(128.924) KB


23-06-2020 09:34 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
حرب هذا الملف
تم تغيير اسماء الصفحات لسهولة نسخ الكود و لصقه

Option Explicit
Sub insert_data()
Dim Da As Worksheet, Ch As Worksheet
Dim Rg_ch As Range
Dim frst, secd, cnt%, i%, Lr%, X%, tt%
Dim arr(8)
Set Da = Sheets("Data"): Set Ch = Sheets("Choise")

arr(0) = "A": arr(1) = "B": arr(2) = "G"
arr(3) = "K": arr(4) = "M": arr(5) = "F"
arr(6) = "N": arr(7) = "Q"

frst = Ch.Range("E2"): secd = Ch.Range("E3")
Set Rg_ch = Ch.Range("A5").CurrentRegion
If Rg_ch.Rows.Count > 1 Then _
  Rg_ch.Offset(1).Resize(Rg_ch.Rows.Count - 1).ClearContents

Lr = Da.Cells(Rows.Count, 1).End(3).Row
For i = 2 To Lr
  If Da.Range("F" & i) = frst And _
       Da.Range("G" & i) = secd Then
      
          With Ch.Cells(cnt + 6, 2)
          .Offset(, -1) = cnt + 1
              For tt = LBound(arr) To UBound(arr) - 1
               .Offset(, tt) = Da.Cells(i, arr(tt))
              Next tt
            cnt = cnt + 1
          End With
    
    End If
 Next
 
End Sub


 
 
 
  Mostachar.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(138.775) KB


23-06-2020 11:20 مساء
مشاهدة مشاركة منفردة [2]
mostachar
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 1-1-1979
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 36
 offline 
look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
  1. بارك الله فيك سيدي الفاضل............لقد وفيت وكفيت

    فقط  هناك ملاحظات
    1-.هو انني اريد ان تكون كل البيانات موجودة ومعبئة في الصفحة  المطلوبة  قبل تفعيل دور الاختيارات المنسدلة   ثم ياتي  بعدها دور و عمل كل اختيار حسب التدرج..فاذا اخترت المستوى مثلا فيتبغي ان تظهر البيانات لذاك المستوى وليس الصفحة فارغة  بعدها اذا اخترت القسم يتم عرض بيانات ذلك القسم وهكذا ....ارجو ا ان تكون الفكرة وصلت وصلت 
  2. أي بمعنى آخر ... و كاننا نقوم بعملية الفرز و التصفية على الاختيارات التي نريدها ان تظهر فقط دون غيرها ....

  3. اي اظهار البيانات وتخصيصها على ما يقع اختيارنا عليه من المنسدل...



  4.  
  5.  
  6. حتى انني في الملف تركت فراغ في القائمة المنسدلة حتى اتمكن من تجاهل الاختيار ان اردت ذلك

  7. ..ونفس الشيئ اريده في ااختيارات المنسدلة للعناوين..اي اذا وقع الاختيار يتم تفعيل ذلك واذا لم



  8.  
  9.  
  10.  

  11. يقع الاختيار وترك الفراغ فلا يتم عرض العنوان وبياناته...شكراااااااااا جزيييلااا






  12.  
  13.  
  14.  
  15.  
  16.  

23-06-2020 11:31 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
قم باضافة هذه الفقرة (بين علامات الــ+++) على الكود في المكان حسب الصورة (اذا كانت احد الخليتين فارغة او الاثنتين فارغتين) يقوم الماكرو بادراح كافة البيانات)
NTIzOTgxSalim_1

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



 
 
 
  Mostachar_New.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(169.798) KB


23-06-2020 11:57 مساء
مشاهدة مشاركة منفردة [4]
mostachar
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 1-1-1979
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 36
 offline 
look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
اخشى ان لا اكون قد ارهقتك.....سيدي يظهر ان القوائم المنسدلة الخاصة بعناوين الاعمدة لا تعمل معي ....لا ادري ما السبب ..او ممكن انك لم تنتبه اليها ...اي انك اكتفيت باعمل على المستوى و القسم دون العناوين

24-06-2020 11:21 صباحا
مشاهدة مشاركة منفردة [5]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
بارك الله فيك استاذ سليم عمل ممتاز
mostachar
شوف بنفسك الصورة خير دليل ... فالملف كما ترى يعمل بكفاءة عالية , وبكده يجب غلق الموضوع حتى لا يأخذ أكبر من حجمه
hqpfp_5
 
 
 

توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

24-06-2020 12:23 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
فهمت عليك ما تريد
العناوين من  B5 الى I5 تتغير من خلال قوائم منسدلة
 1-اذا كانت الخلية فارغة E2 الماكرو يستخرج حسب E3
2- اذا كانت الخلية فارغة E3 الماكرو يستخرج حسب E2
3-اذا كانت الخليتان فارغتين  الماكرو يستخرج كل البيانات
4-اذا كانت الخليتان غير فارغتين  الماكرو يستخرج
          حسب الشرطين(E2 & E3)

Option Explicit
Dim Da As Worksheet, Ch As Worksheet
Dim Rg_ch As Range, rg As Range
Dim frst, secd, cnt%, i%, Lr%, tt%, k%, x
'++++++++++++++++++++++++++++++++++++++++++++

Sub insert_data_By_data_val()
Dim arr(7)
Set Da = Sheets("Data"): Set Ch = Sheets("Choise")
'//////////////////////////////////////
Rem Initialize the Headres To array

For i = 2 To 9
 Set rg = Da.Range("A1:Q1").Find(Ch.Cells(5, i), lookat:=1)
  If Not rg Is Nothing Then
  x = Left(rg.Address(0, 0), 1)
  arr(i - 2) = x
  End If
 Next

'//////////////////////////////////////

frst = Ch.Range("E2"): secd = Ch.Range("E3")
Set Rg_ch = Ch.Range("A5").CurrentRegion
If Rg_ch.Rows.Count > 1 Then _
  Rg_ch.Offset(1).Resize(Rg_ch.Rows.Count - 1).Clear
  '++++++++++++++++++++++++++++++++++++++
  Lr = Da.Cells(Rows.Count, 1).End(3).Row
    Select Case True
      Case frst = vbNullString And secd <> vbNullString
          k = 6: GoTo frst_Yes_sec_No
      Case frst <> vbNullString And secd = vbNullString
          k = 5: GoTo frst_No_sec_yes
      Case frst = vbNullString And secd = vbNullString
          GoTo Both_no
      Case frst <> vbNullString And secd <> vbNullString
          GoTo Both_Yes
    End Select
    '+++++++++++++++++++++++++++++++++++++++
frst_Yes_sec_No:
cnt = 0
For i = 2 To Lr
    If Da.Cells(i, 1).Offset(, k) = secd Then
        With Ch.Cells(cnt + 6, 2)
            .Offset(, -1) = cnt + 1
                For tt = LBound(arr) To UBound(arr) - 1
                 .Offset(, tt) = Da.Cells(i, arr(tt))
                Next tt
            cnt = cnt + 1
        End With
    End If
Next i
GoTo Format_range
  
 '++++++++++++++++++++++++++++++++++++++++++++++++++++++++
frst_No_sec_yes:
cnt = 0
For i = 2 To Lr
    If Da.Cells(i, 1).Offset(, k) = frst Then
    With Ch.Cells(cnt + 6, 2)
        .Offset(, -1) = cnt + 1
            For tt = LBound(arr) To UBound(arr)
              .Offset(, tt) = Da.Cells(i, arr(tt))
            Next tt
        cnt = cnt + 1
    End With
    End If
Next i
GoTo Format_range
  '++++++++++++++++++++++++++++++++++++++++++++++++++++
Both_no:
cnt = 0
For i = 2 To Lr
    With Ch.Cells(cnt + 6, 2)
    .Offset(, -1).Select
        .Offset(, -1) = cnt + 1
          For tt = LBound(arr) To UBound(arr)
            .Offset(, tt) = Da.Cells(i, arr(tt))
          Next tt
    End With
    cnt = cnt + 1
Next
GoTo Format_range
  '+++++++++++++++++++++++++++++++
Both_Yes:
cnt = 0
For i = 2 To Lr
    If Da.Range("F" & i) = frst And _
        Da.Range("G" & i) = secd Then
        With Ch.Cells(cnt + 6, 2)
            .Offset(, -1) = cnt + 1
                For tt = LBound(arr) To UBound(arr)
                 .Offset(, tt) = Da.Cells(i, arr(tt))
                Next tt
            cnt = cnt + 1
        End With
    End If
Next
Format_range:
  Set Rg_ch = Ch.Range("A5").CurrentRegion
  If Rg_ch.Rows.Count > 1 Then
   Set Rg_ch = Rg_ch.Offset(1).Resize(Rg_ch.Rows.Count - 1)
    With Rg_ch
     .Font.Size = 18: .Font.Bold = True
     .InsertIndent 1: .Interior.ColorIndex = 35
      .Borders.LineStyle = 1
      .Value = .Value
      Columns(2).NumberFormat = "0000"
    End With
   End If
End Sub

الملف من جديد
 
 
 
  Mostachar_Super.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(142.411) KB





الكلمات الدلالية
القوائم ، طريق ، بيانات ، تعبئة ، المنسدلة ،


 










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

الساعة الآن 11:31 مساء