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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة

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



09-09-2017 08:13 صباحا
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 264
الاعجاب : 29
 offline 
بسم الله الرحمن الرحيم
وبه نستعين
الحمد لله الذى بنعمته تتم الصالحات
السلام عليكم جميعا ورحمته الله وبركاته
تطرقت فى أولى مشاركتى بهذا الصرح المبارك لموضوع
نقل البيانات إعتمادا على شرط مع إدراج عدد محدد من الصفوف فى نقاط محددة
وقد تم على أكمل وجه بفضل من الله سبحانه وتعالى
ثم  بفضل الاستاذ القدير// ياسر خليل " أبو البراء"
 اما عن موضوعى الثانى هو لنفس مضمون الموضوع 
ولكن لورقتين الاولى بشرط وقد تمت على اكمل وجه وفقا للمرفق المبين أمام حضراتكم
الثانية بدون شرط حيث اننى فى حاجة الى نسخ الأعمدة من 1 : 5 من الورقة الرئيسية مع العمود رقم 46 ونقلها إلى ورقة "الصقر للتدريب"
بنفس تكنيك ورقة العمل Output *** برجاء ملاحظة الورقة "الصقر للتدريب"
ستلاحظ أن عدد البيانات المرحلة 100 بيان مع اختلاف القيم وكذا الاجماليات وجملة ماقبله
اما الورقة Output فعدد البيانات المرحلة 33 بيان
وفقا للشرط المحدد لها حسب ماورد بالكود الرائع لاخى وحبيبى فى الله أبو البراء
أرجو من الله العلى القدير ان تكون الفكرة واضحة **** وفقنا الله جميعا الى مايحب ويرضى
تقبلوا وافر تقديرى واحترمى **** وجزاكم الله خير
 
 
  اكاديميه الصقر للتدريب.xlsb.rar   تحميل rar مرات التحميل :(9)
الحجم :(46.081) KB



تم تحرير الموضوع بواسطة :أبو سجده
بتاريخ:10-09-2017 01:42 صباحا





09-09-2017 08:44 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
وعليكم السلام أخي العزيز أبو عبد الرحمن
أليس هو نفس الموضوع السابق ؟!! لما لا تحاول بنفسك تطبيق الكود السابق على الورقة الجديدة
حاول أن تصل لتطبيق الكود بنفسك .. وهذا ليس بخل مني ولكن لكي تتدرب وتستطيع الاستفادة مما يقدم ، لا أن يكون المنتدى للحلول الجاهزة وحسب ، فالمنتدى قائم على التعلم في المقام الأول .. لذا تجد قسم مخصص للشروحات

نقطة أخرى : إذا أردت التعديل على الكود بإضافة سطر فلابد من الاستشارة والنصيحة ، لكي تتعلم مع هو الأفضل
بالنظر إلى الكود الذي أرفقته بالملف أجدك قد قمت بتغييرات في الكود (أنا لا أحفظ الكود لذا لا أستطيع أن أقارن بين ما قدمته سالفاً وبين ما عدلته أنت
لاحظت هذه الأسطر
                .Columns(1).NumberFormat = "0"
                .Columns(5).NumberFormat = "0"
                .Columns(6).NumberFormat = "0.00"

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

أرجو منك أن تقوم بمحاولات وإذا تعثرت في نقطة تسأل فيها ولن نتأخر عليك إن شاء الله
تقبل وافر تقديري واحترامي




09-09-2017 08:56 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
تلميح .. ليساعدك في الموضوع
قم باستبدال السطر التالي
x = Application.WorksheetFunction.CountIf(ws.Columns(9), s)

ليصبح بهذا الشكل
x = Application.WorksheetFunction.CountIf(ws.Columns(1), "<>")


تلميح آخر :
استبدل السطر التالي
If a(i, 9) = s Then

بهذا السطر
If a(i, 1) <> "" Then


أما بخصوص عمود المبلغ ففي الكود القديم كان رقم العمود داخل المصفوفة هي رقم 18 أما المبلغ المطلوب في الكود الجديد هو رقم 46 ...
 




09-09-2017 07:30 مساء
مشاهدة مشاركة منفردة [3]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 264
الاعجاب : 29
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
اخى وحبيبى فى الله ابو البراء
السلام عليكم ورحمته الله وبركاته
دعنى اولا أن أشكرك بتعديل مشاركتى الاولى باضافة  
ثم وعفوا ان كنت غفوت عنها فجزاكم الله تعالى خير الجزاء
فى الحقيقة تم تطبيق الكود على ورقة العمل الجديدة منذ امس وبنفس ماذكرته من تلميحات
مع تغير العمود المعنى بنقل البيانات دون شرط  الا وهو العمود AT بالورقة الرئيسية
ولكن أصبح الكود مكرر*** وكلا يسعى سعيه الى حيث الورقة المراد نقل البيانات اليها 
 الاول TransferUsingArrays الى الورقة "Output" وفقا للشرط المحدد له
والثانى Falcon الى الورقة " الصقرللتدريب" وبدون شرط وفقا لما تم من تغيرات
ولتنفيذ الكودين معا أستخدمت الاجراء Sub run_all ولكن مع التنفيذ يحدث خلل فى عرض الاعمدة بالورقتين "Output و الصقرللتدريب"
ومع تنفيذ كل كود على حدى تصبح الامور على مايرام **** ولا أدرى هل هذة النقطة لها علاقة بهذه المصفوفة ام لا
            c = Array(1, 2, 3, 4, 5, 6): d = Array(6, 19, 33, 15, 8, 13)

فهل من سبيل لمعالجة الموضوع برمجيا بما أن مصدر البيانات واحد دون الحاجة الى تكرار الكود
أم لك أخى العزيز الغالى رأى أخر فى هذه المسألة
برجاء الاطلاع على المرفق التالى
مع ملاحظة الورقتين "Output و الصقرللتدريب" قبل وبعد تنفيذ الكود 
تقبل وافر تقديرى واحترامى *** رزقكم الله وايانا من حيث لانحتسب **** وجزاكم الله خيرا
 
 
  الاستاذ القدير ياسر خليل.xlsb.rar   تحميل rar مرات التحميل :(11)
الحجم :(59.494) KB



تم تحرير المشاركة بواسطة :أبو سجده
بتاريخ:09-09-2017 10:47 مساء





09-09-2017 08:30 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
أخي العزيز أبو عبد الرحمن
كان لابد أن تنبهني لهذا الخطأ ولابد لك من أن تعرف السبب .. والسبب هو أننا في خضم هذا الكود المخضرم نسينا أن نشير لورقة العمل وهذا أمر ضروري للغاية
والسطر التالي هو المسئول عن تغيير عرض الأعمدة
Columns(c(i)).ColumnWidth = d(i)

وكما تلاحظ أنه لا توجد إشارة لورقة العمل .. وورقة العمل هنا هي الورقة الهدف التي يتم تنسيق البيانات داخلها وقد وضعنا لها متغير باسم Sh لذا أضف في بداية هذا السطر المتغير sh يليه نقطة .. ثم بقية السطر
وجرب مرة أخرى وأبدي ملاحظاتك




09-09-2017 11:18 مساء
مشاهدة مشاركة منفردة [5]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 264
الاعجاب : 29
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
اخى العزيز الغالى ابو البراء
السلام عليكم ورحمته الله وبركاته
هو مش كود مخضرم وبس ده انا سميته كود الباشا لانه كود باشاوات 
وحقيقى كتر خيرك على ماقدمته من جهد كبير فى هذا الموضوع فجزاكم الله تعالى عنى خير الجزاء
 وكتر خير الدنيا وبعد العمر ده  ان لسه فيه عندى استعداد للتعلم أكثر وأكثر طول مافيه نفس
تم بحمد الله  تعديل السطر المشار اليه اللى دوخنى حتى صباح اليوم ومنذ امس **** واصبحت الامور على مايرام
ان لم يكن هناك إزعاج اخى العزيز الغالى ارجو إعطائى بعض التلميحات التى من شأنها معالجة الكود برمجيا
بدلا من تكرار الكود بما أن مصدر البيانات مصدار واحدا *** هذا إذا أمكن ذلك *** وان لم يكن فى الوقت الحالى فلديك كامل الوقت 
تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا


تم تحرير المشاركة بواسطة :أبو سجده
بتاريخ:10-09-2017 12:54 صباحا





09-09-2017 11:37 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
تكرار الكود أمر لا مفر منه لأن البيانات التي سيتم معالجتها مختلفة تماماً وكل مجموعة بيانات ستكون في ورقة مختلفة
لا أدري كيف خطر ببالك لما خطر ببالك أن تقوم بالدمج والجمع بين الأمرين ..؟ البيانات مصدرها صحيح واحد لكن البيانات التي يتم استخراجها مختلفة تماماً (لأن أحدها بشرط والأخرى بدون شرط أو حتى شرط مختلف) فالنتائج ليست متطابقة وأوراق العمل التي ستوضع فيها النتائج ليست واحدة
الفكرة واحدة لكن لابد لكل ورقة عمل كود خاص به .. هذا والله أعلم
يمكن الدمج كما فعلت أنت أن تقوم باستدعاء الكودين في كود واحد بعد الانتهاء من كليهما
وفقك الله لما يحبه ويرضاه




10-09-2017 01:39 صباحا
مشاهدة مشاركة منفردة [7]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 264
الاعجاب : 29
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
اخى العزيز الغالى أبو البراء
السلام عليكم ورحمته الله وبركاته
وفقنا الله جميعا لما يحبه ويرضاه
جارى العمل على محاولة عدم تكرار الكود ليقينى بالله أنه بالامكان فعل ذلك 
حيث لدىّ كود يحقق هذا الهدف دون تكرار للكود وبنفس المضمون ولاكثر من شرط  *** ولكنه بالحلقات التكرارية وما أدراك مالحلقات التكرارية
بجد بشكرك من قلبى على مجهودك الطيب المبارك *** فأرجو عدم الانزعاج حال طلب التعاون معى فى اى نقطة من نقاط  تلك المحاولة 
 رزقنا الله تعالى واياكم من حيث لانحتسب **** تقبل وافر تقديرى واحترامى ***** وجزاكم الله خيرا




10-09-2017 12:55 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
أخي العزيز أبو عبد الرحمن
المشكلة أن الكود متداخل بشكل كبير مما يصعب أن يتدخل معه كود آخر فلو كان بالحلقات التكرارية لربما كان الموضوع أيسر ..

وإن شاء الله مفيش أي انزعاج على الإطلاق .. إنت أخ عزيز وغالي .. 
تقبل وافر تقديري واحترامي




14-09-2017 10:16 صباحا
مشاهدة مشاركة منفردة [9]
أبو سجده
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 189
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 264
الاعجاب : 29
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
اخى العزيز الغالى / ابو البراء
السلام عليكم ورحمته الله وبركاته
لقد حاولت العمل عدة مرات على المرفق ولكن دون جدوى
فهل من سبيل ؟ ارجو تفاعل جميع السادة الاخوة الزملاء فى هذا الموضوع
تقبلوا جميعا وافر تقديرى واحترامى وجزاكم الله خيرا
 
 
  الاستاذ القدير ياسر خليل.xlsb.rar   تحميل rar مرات التحميل :(6)
الحجم :(51.541) KB





18-09-2017 12:36 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نقل البيانات من الرئيسية مع إدراج عدد محدد من الصفوف فى نقاط محددة لاكثر من ورقة
أخي العزيز أبو عبد الرحمن
يرجى تحديد المشكلة بالضبط ليتمكن الأخوة من تقديم المساعدة المطلوبة إن شاء الله






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
7 528 YasserKhalil
ماكرو بحث وتعديل البيانات oshebly
1 49 oshebly
مسح البيانات من كل أوراق العمل ما عدا المعادلات ClearContents Exclude Formulas In All Worksheets YasserKhalil
11 552 YasserKhalil
مشكلة ظهور رسالة عند نسخ البيانات بشكل افقي المبتدأ
11 152 salim
مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر المبتدأ
9 145 YasserKhalil

الكلمات الدلالية
البيانات ، الرئيسية ، إدراج ، محدد ، الصفوف ، نقاط ، محددة ، لاكثر ، ورقة ،


 








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

الساعة الآن 07:16 مساء

أعلن هنا
أعلن هنا
أعلن هنا