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





كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية

بسم الله الرحمن الرحيم السادة الأفاضل مشرفي ورواد المنتدى الغالي تحية طيبة من عند الله أرجوا من سيادتكم مساعدتي في عمل ..



04-12-2017 09:44 مساء
Hatem Eissa
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1426
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 25-7-1971
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 48
الاعجاب : 19
 offline 
بسم الله الرحمن الرحيم

السادة الأفاضل مشرفي ورواد المنتدى الغالي



تحية طيبة من عند الله



أرجوا من سيادتكم مساعدتي في عمل تصفية لبيانات الملف المرفق أو ترحيل البيانات من الورقة واحد إلى الورقة 2 حسب قيمة الخلية M1 ولسيادتكم جزيل الشكر



مرفق ملف للتطبيق عليه .




 
 
  الترحيل.zip   تحميل zip مرات التحميل :(12)
الحجم :(56.055) KB





05-12-2017 06:50 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
السلام عليكم أخي الكريم حاتم
هلا وضعت شكل النتائج التي تريدها .. كنموذج يمكن العمل على أساسه
حيث أنني نظرت لورقة العمل الثانية ووجدتها فارغة تماماً
ضع الشكل العام للنتائج المتوقعة ليسهل على الأعضاء تقديم المساعدة المطلوبة

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



05-12-2017 03:21 مساء
مشاهدة مشاركة منفردة [2]
Hatem Eissa
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1426
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 25-7-1971
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 48
الاعجاب : 19
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
السلام عليكم أخي الكريم حاتم
هلا وضعت شكل النتائج التي تريدها .. كنموذج يمكن العمل على أساسه
حيث أنني نظرت لورقة العمل الثانية ووجدتها فارغة تماماً
ضع الشكل العام للنتائج المتوقعة ليسهل على الأعضاء تقديم المساعدة المطلوبة
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
السلام عليكم أخي الكريم حاتم
هلا وضعت شكل النتائج التي تريدها .. كنموذج يمكن العمل على أساسه
حيث أنني نظرت لورقة العمل الثانية ووجدتها فارغة تماماً
ضع الشكل العام للنتائج المتوقعة ليسهل على الأعضاء تقديم المساعدة المطلوبة


شكرا لمرور حضرتك تم رفع الملف المطلوب للعمل عليه وجزاك الله كل الخير ....
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الترحيل 2.rar   تحميل rar مرات التحميل :(5)
الحجم :(29.566) KB





05-12-2017 05:05 مساء
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 549
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 154
قوة السمعة : 3091
الاعجاب : 716
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية

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

 
 
  الترحيل.zip   تحميل zip مرات التحميل :(14)
الحجم :(39.789) KB


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



05-12-2017 05:35 مساء
مشاهدة مشاركة منفردة [4]
Hatem Eissa
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1426
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 25-7-1971
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 48
الاعجاب : 19
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
الأستاذ الفاضل المحترم : الصقر 
بارك الله في حضرتك وجزاك الله كل خير وبارك الله في هذا الصرح التعليمي الرائع المفيد وجل الله جميع أعمالكم في موازين حسناتكم
لي طلب أخير وأعتذر على إرهاق حضرتك :
1- برجاء مراجعة كافة التخصصات الموجودة في الخلية M1 في الورقة الأولى .
2- وهو جعل الخلية L4 في الورقة 2 يكون بها اسم المادة أو التوجيه الذي تم ترحيل بياناته والموجودة في الخلية
 M1 في الورقة الأولى .
ولسيادتكم جزيل الشكر



 
 
 
  نسخة من الترحيل.rar   تحميل rar مرات التحميل :(4)
الحجم :(38.887) KB



تم تحرير المشاركة بواسطة :Hatem Eissa
بتاريخ:05-12-2017 06:30 مساء





05-12-2017 06:14 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
بارك الله فيك أخي الغالي حسام خطاب
وجزاك الله خيراً على مساهماتك الرائعة

قمت فقط باختصار الكود الخاص بك حيث يمكن عمل حلقة تكرارية داخلية ..
أما فيما يخص وضع اسم المادة في الخلية L4 أخي الكريم حاتم فقم بفعلها بشكل يدوي حيث أن الكود لا يتناول التعامل مع هذه الخلية ...
قم بربطها بالخلية الموجودة في ورقة العمل الأولى باستخدام معادلة بسيطة تستخدم فيها يساوي ثم تشير للخلية الموجودة في ورقة العمل الأولى
Sub Alsqr()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim w       As String
    Dim lr      As Long
    Dim i       As Long
    Dim j       As Long
    Dim d       As Long

    Set ws = ThisWorkbook.Worksheets("ورقة1")
    Set sh = ThisWorkbook.Worksheets("ورقة2")
    w = ws.Range("M1").Value
    If w = "" Then MsgBox "قم باختيار الفترة المطلوبة": Exit Sub
    d = 8

    Application.ScreenUpdating = False
        sh.Range("A8:O100000").ClearContents
        lr = ws.Cells(Rows.Count, "C").End(xlUp).Row
        With sh
            For i = 8 To lr
                For j = 5 To 15 Step 2
                    If ws.Cells(i, j) = w Then
                        .Cells(d, 1) = ws.Cells(i, 1)
                        .Cells(d, 2) = d - 7
                        .Cells(d, 3) = ws.Cells(i, 3)
                        .Cells(d, j - 1) = ws.Cells(i, j - 1)
                        .Cells(d, j) = ws.Cells(i, j)
                    End If
                Next j
                d = .Cells(.Rows.Count, "c").End(xlUp).Row + 1
            Next i
        End With
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، الصقر، ahmed moh،



05-12-2017 06:37 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
بارك الله فيك استاذ حسام عمل رائع وايجاد حل ممتاز اشكرك على هذا الدرس


بارك الله فيك استاذ ياسر اختصار اكثر من رائع وبجد تعلمت منه الكثير ايضا 


بصراحة انتم الثلاثة كل من 
[mention]Yasser Elaraby[/mention]
[mention]yasserkhalil[/mention]
[mention]الصقر[/mention]
بجد انتم منارة عظيمة بهذا الصرح العلمى العظيم ولا نستطيع ان نستغنى عن وجودكم 

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


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

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

 

تحياتى وتقدير للجميع / محمود ابوالدهب



05-12-2017 06:45 مساء
مشاهدة مشاركة منفردة [7]
Hatem Eissa
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1426
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 25-7-1971
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 48
الاعجاب : 19
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الغالي حسام خطاب
وجزاك الله خيراً على مساهماتك الرائعة

قمت فقط باختصار الكود الخاص بك حيث يمكن عمل حلقة تكرارية داخلية ..
أما فيما يخص وضع اسم المادة في الخلية L4 أخي الكريم حاتم فقم بفعلها بشكل يدوي حيث أن الكود لا يتناول التعامل مع هذه الخلية ...
قم بربطها بالخلية الموجودة في ورقة العمل الأولى باستخدام معادلة بسيطة تستخدم فيها يساوي ثم تشير للخلية الموجودة في ورقة العمل الأولى
Sub Alsqr()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim w       As String
    Dim lr      As Long
    Dim i       As Long
    Dim j       As Long
    Dim d       As Long

    Set ws = ThisWorkbook.Worksheets("ورقة1")
    Set sh = ThisWorkbook.Worksheets("ورقة2")
    w = ws.Range("M1").Value
    If w = "" Then MsgBox "قم باختيار الفترة المطلوبة": Exit Sub
    d = 8

    Application.ScreenUpdating = False
        sh.Range("A8:O100000").ClearContents
        lr = ws.Cells(Rows.Count, "C").End(xlUp).Row
        With sh
            For i = 8 To lr
                For j = 5 To 15 Step 2
                    If ws.Cells(i, j) = w Then
                        .Cells(d, 1) = ws.Cells(i, 1)
                        .Cells(d, 2) = d - 7
                        .Cells(d, 3) = ws.Cells(i, 3)
                        .Cells(d, j - 1) = ws.Cells(i, j - 1)
                        .Cells(d, j) = ws.Cells(i, j)
                    End If
                Next j
                d = .Cells(.Rows.Count, "c").End(xlUp).Row + 1
            Next i
        End With
    Application.ScreenUpdating = True
End Sub


الأستاذ الفاضل المحترم ياسر خليل .
والأستاذ المحترم : حسام خطاب
تحية طيبة من عند الله
خالص التحية والاحترام والتقدير لسيادتكم لما تقدمونه من معلومات مفيدة نافعة
ولكن طمعي في زيادة العلم أدي بي إلى أن أطلب من معاليكم مراجعة كل التخصصات حيث أنني لا أعرف بسبب خطأ مني في الاستخدام يتم ترحيل مواد ومواد أخري لا يتم ترحيلها بصورة صحيحة مثل ( حاسب آلي - الرياضيات - علم النفس - الوحدة المنتجة - الجودة - التعليم الثانوي - التعليم الإعدادي - التعليم الابتدائي - التعليم الخاص .......... الخ )
وجزاكم الله كل الخير ونفعكم بعلمكم
 
 
  الترحيل 3.rar   تحميل rar مرات التحميل :(15)
الحجم :(37.493) KB





05-12-2017 07:36 مساء
مشاهدة مشاركة منفردة [8]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
استاذ حاتم عيسي الامر وما فيه يجب التأكد من ان الاسماء في القائنة المنسدلة هى نفسها بجوار اسم الموجة 
فمثلا لو كانت اللغة العربية 
مكتوبة بجوار المفتش اللغه العربية
وبالقائمة اللغة العربية
اى الاختلاف في النقتطين عليه سيعتبر ان الاسمين غير متطابقين وعليه
اولا علم القائمة المنسدلة في جميع الخلايا متشابة فيها الاسماء مع القائمة المنسدلة الرئيسية
ثانيا في الكود يعتمد على اسماء المدارس في الترحيل والتصفية فلو حضرتك عامل بيانات بدون ذكر اسم المدرسة فلن تظهر تلك البيانات في صفحة العمل

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

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


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

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

 

تحياتى وتقدير للجميع / محمود ابوالدهب



05-12-2017 07:44 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
بارك الله فيك أخي العزيز محمود أبو الدهب
بالفعل لابد من تطابق اسم المواد كما بالجدول الرئيسي وأي اختلاف سيؤدي إلى عدم إظهار النتائج بشكل صحيح
لذا في هذه الحالة أفضل أن تقوم بعمل قائمة منسدلة بالمواد لتجنب الخطأ ..

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، الصقر،



05-12-2017 08:40 مساء
مشاهدة مشاركة منفردة [10]
Hatem Eissa
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1426
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 25-7-1971
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 48
الاعجاب : 19
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي العزيز محمود أبو الدهب
بالفعل لابد من تطابق اسم المواد كما بالجدول الرئيسي وأي اختلاف سيؤدي إلى عدم إظهار النتائج بشكل صحيح
لذا في هذه الحالة أفضل أن تقوم بعمل قائمة منسدلة بالمواد لتجنب الخطأ ..


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

p_70454mesymanu2
 


تم تحرير المشاركة بواسطة :Hatem Eissa
بتاريخ:05-12-2017 08:43 مساء





05-12-2017 09:40 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
اذكر تخصص من التخصصات التي لا تعمل لمراجعة الملف ومحاولة فهم المشكلة .. 
هل تأكدت من تطابق المادة الموجودة في الخلية M1 مع الخلايا في الجدول .. هل كتبت بنفس الشكل تماماً؟

أثارت هذه المشاركة إعجاب: الصقر، ahmed moh،



05-12-2017 10:33 مساء
مشاهدة مشاركة منفردة [12]
Hatem Eissa
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1426
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 25-7-1971
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 48
الاعجاب : 19
 offline 
look/images/icons/i1.gif كيفية عمل تصفية للبيانات حسب قيمة خلية أو ترحيل البيانات حسب قيمة الخلية
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
اذكر تخصص من التخصصات التي لا تعمل لمراجعة الملف ومحاولة فهم المشكلة .. 
هل تأكدت من تطابق المادة الموجودة في الخلية M1 مع الخلايا في الجدول .. هل كتبت بنفس الشكل تماماً؟


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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصفية متقدمة khalidsy90
2 62 محمد الدسوقى
تصفية عن طريق vba ... ممكن محمد النيل
14 132 محمد النيل
كود ضبط معاينة الطباعة مع التصفية محمد طولان
1 114 محمد طولان

الكلمات الدلالية
كيفية ، تصفية ، للبيانات ، قيمة ، خلية ، ترحيل ، البيانات ، قيمة ، الخلية ،


 







الساعة الآن 02:58 صباحا