logo

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



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





23-06-2020 07:50 مساءً
السلام عليكم ....لقد ارفقت ملف اكسل لطلب القائمين على هذا المنتدى وزواره ايجاد صيغة مناسبة لتعبئة البيانات حسب الطلب في الملف المرفق
<colgroup>
<col style="width: 93pt;" width="124" />
<col style="width: 89pt;" width="119" />
<col style="width: 79pt;" width="105" />
<col style="width: 77pt;" width="103" />
<col style="width: 109pt;" width="145" />
<col style="width: 80pt;" width="106" />
<col style="width: 71pt;" width="95" />
<col style="width: 72pt;" width="96" />
<col style="width: 80pt;" width="107" />
<col style="width: 110pt;" width="147" />
<col style="width: 28pt;" width="37" />
</colgroup>


حيث أريد تعبئة الجدول ادناه من صفحة " كل البيانات " عن طريق قوائم منسدلة
حيث نختار من القائمة المنسدلة ما نريد احضاره من بيانات ليتم عرضها في الجدول وطباعتها
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب 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 مرات التحميل :(4)
الحجم :(128.924) KB





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

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 مرات التحميل :(7)
الحجم :(138.775) KB


أثارت هذه المشاركة إعجاب: abouelhassan، mostachar، YasserKhalil،



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

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

  2. أي بمعنى آخر ... و كاننا نقوم بعملية الفرز و التصفية على الاختيارات التي نريدها ان تظهر فقط دون غيرها ....

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




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

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




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











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

الملف من جديد
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Mostachar_New.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(169.798) KB


أثارت هذه المشاركة إعجاب: mostachar، ali mohamed ali،



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




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


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali


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

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

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 مرات التحميل :(4)
الحجم :(142.411) KB


أثارت هذه المشاركة إعجاب: هانى على، mostachar، abouelhassan، YasserKhalil،



look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
  24-06-2020 12:58 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس :
تاريخ الميلاد : 1-1-1979
قوة السمعة : 36
الاعجاب : 0
mrndU_Screenshotما شاء الله عليك أخي ولما ما تقدمه من فائدة ..
الصورة الموالية توضح المطلوب ..حيث انني في الملف الاول الذي ارسلته وضعت انسدالات عند كل عمود...حيث اختار ما ينبغي اختياره لاضافته الى القائمة وما لم يقع اختياري عليه وتركته فارغا فلا داعي لاظهاره
 
 





look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
  24-06-2020 01:02 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
بعد اختيار ما تريد اضغط الزر للتنفيذ

أثارت هذه المشاركة إعجاب: mostachar،



look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
  24-06-2020 01:22 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس :
تاريخ الميلاد : 1-1-1979
قوة السمعة : 36
الاعجاب : 0
nlGng_%D9%86%D9%85%D9%88%D8%B0%D8%AC%20%D8%B9%D9%86%20%D9%82%D8%A7%D8%A6%D9%85%D8%A9%20

حيث ان القائمة التي يمكن الحصول عليها تكون على سبيل المثال كما في الصورة...اي ما يتم اختياره من العناوين يظهر وما لم يتم اختياره لا يظهر...وشكر كبيييير جدا لكل القائمين على هذا المنتدى ..يكفي اننا نجد اعضاء يتجاوبون معنا وبارك الله فيكم وفي اعمالكم واولادكم..
 
  نموذج عن قائمة .jpg   تحميل jpg نموذج عن قائمة .jpg مرات التحميل :(0)
الحجم :(80.029) KB
 


أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif ملف تعبئة بيانات عن طريق القوائم المنسدلة
  24-06-2020 04:15 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
تم التعديل على الماكرو في هذا الملف (العنوان الفارغ لا يظهر شيئاً)
MTc2Mjcxmuatashar
الملف مرفق
 
 
  Mostachar_Supar.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(145.862) KB


أثارت هذه المشاركة إعجاب: هانى على، mostachar، YasserKhalil، abouelhassan،



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

جزاكم الله خيراً ....وجعلها في صحائف أعمالكم إلى يوم الدين....حقيقة يعجز اللسان


. ما شاء الله


أثارت هذه المشاركة إعجاب: salim، YasserKhalil،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
سلسلة تعليم بور كويري الجزء الثامن كيفية تعبئة البيانات لأسفل وكيفية التعبئة لأعلى في البور كويري mmagedmemo
2 1012 محمد حسن المحمد
كيفية تعبئة بيانات نموذج بنسخ ولصق من اكسيل أبو عبد الرحمن
0 804 أبو عبد الرحمن
ما مدى امكانية تعبئة هذا الجدول المقترح من قاعدة بيانات اكسل mostachar
3 1187 YasserKhalil
تعبئة الكومبوبكس ببيانات فريدة (غير مكررة) Fill ComboBox With Unique Items YasserKhalil
16 2657 YasserKhalil
تعبئة كومبو بوكس ببيانات غير مكررة من اكثر من شيت عبدالرحمن صبحى
8 2407 sobhi67

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









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

الساعة الآن 11:30 PM