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

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


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





تعبئة تلقائية

السلام عليكم ورحمة الله وبركاته الكود التالى لنسخ محتويات معادلات فى صف محدد ( صف رقم 2 ) ولصق هذه المعادلات فى صف محدد ..



19-04-2020 11:06 مساء
أبو سجده
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 328
 offline 

السلام عليكم ورحمة الله وبركاته
الكود التالى لنسخ محتويات معادلات فى صف محدد ( صف رقم 2 ) ولصق هذه المعادلات فى صف محدد ( صف رقم 8 ) الكود يعمل بطريقة ممتازة
لكنى فى حاجة إلى إجراء بعض التعديلات على نفس الكود
بحيث أتمكن من عمل تعبئة تلقائية كلصق قيم بداية من الصف رقم 8 وحتى أخر صف يحتوى على بيانات إعتمادا على الصف رقم 2
أرجو أن يكون طلبى منطقيا فكيف يمكننى تحقيق ذلك ***** تقبلوا وافر تقديرى وجزاكم الله خيرا
 
 
  تعبئة تلقائية.rar   تحميل rar مرات التحميل :(8)
الحجم :(19.429) KB


21-04-2020 08:52 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعبئة تلقائية
وعليكم السلام 
لم أفهم المطلوب بشكل كامل .. هل تريد تعبئة الصفوف بقيم أم بمعادلات؟ 
السؤال الثاني: إلى أي حد تريد أن تتم عملية التعبئة التلقائية؟ من الصف الثامن إلى الصف ..... (لا أدري الهدف الأخير)؟

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

21-04-2020 02:51 مساء
مشاهدة مشاركة منفردة [2]
أبو سجده
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 328
 offline 
look/images/icons/i1.gif تعبئة تلقائية
أخى العزيز المحترم // أبو البراء
السلام عليكم ورحمة الله وبركاته وكل عام أنتم بخير بمناسبة حلول شهر رمضان المبارك
أولا أريد تعبئة الصفوف بقيمها بداية من الصف الثامن وحتى أخر صف يحتوى على بيانات
والهدف الحقيقى هو تخفيف حدة ثقل الملف خاصة وأننى اتعامل مع كم هائل من الصفوف والأعمدة
أما عن المعادلات المستخدمة فى الصف الثانى فهى معادلات معقدة للغاية يصعب علىّ تحويلها الى أكواد vba
حيث تحتوى هذة المعادلات على الكثير والكثير من الشروط المتداخلة
طيب حضرتك هتقولى ولماذا لا تكون بداية المعادلات من الصف الثامن ومن ثم تحويلها الى قيم
الاجابة هى اننى لدى كود لهدف معين أستخدمه وهو أيضا معقد للغاية ولكن مع تشغيله يتم حذف جميع المعادلات المستخدمة
فمن هنا جاءت فكرتى **** أرجو أن تكون هذة الإيضاحات كافيه لحل هذا الموضوع
وافر تقديرى واحترامى للجميع وجزاكم الله تعالى خيرا عما سوف يُقدم من حلول
أخيكم أبو عبد الرحمن

21-04-2020 03:34 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعبئة تلقائية
لم توضح شكل المعادلات المعقدة ؟؟ هل هي معادلات صفيف أم معادلات عادية؟
ولما لا يمكن تحويلها إلى VBA .. الشروط مهما تعددت وتعقدت كان من الأيسر استخدام الأكواد وليس المعادلات .. اسمح لي أن أختلف معك في طريقة وصولك للحل

21-04-2020 04:58 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعبئة تلقائية
جرب التعديل التالي عله يفي بالغرض رغم أنني لم أفهم شكل النتائج المتوقعة للآن وأنا لا أحب التخمين وأنت تعلم ذلك جيداً
Sub Copy_Formulas()
    Dim cel As Range
  
    Application.ScreenUpdating = False
        For Each cel In Range("A2:ES2").SpecialCells(-4123)
            cel.Copy
            cel.Offset(6).Resize(10).PasteSpecial
        Next cel
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub


غير الرقم 10 لعدد الصفوف المطلوبة لأن النقطة دي مش واضحة

21-04-2020 05:02 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعبئة تلقائية

22-04-2020 06:17 صباحا
مشاهدة مشاركة منفردة [6]
أبو سجده
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 95
المشاركات : 222
الجنس : ذكر
تاريخ الميلاد : 2-2-1965
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 328
 offline 
look/images/icons/i1.gif تعبئة تلقائية
أخى ابو البراء
السلام عليكم ورحمة الله وبركاته
شكرا جزيلا على هذا الرابط الذى يحتوى على ذات الفكرة تماما
Option Explicit
    'http://techno7asry.com/forum/t273
    Sub Test()
    Dim sh      As Worksheet
    Dim rg      As Range
    Dim cl      As Range
    Dim lr      As Long
    Dim co      As Long
    
    Application.ScreenUpdating = False
        Set sh = ThisWorkbook.Worksheets("data")
        lr = sh.Cells(Rows.Count, 6).End(xlUp).Row
        Set rg = sh.Rows(2).SpecialCells(xlCellTypeFormulas)
        
        For Each cl In rg
            co = cl.Column
            With sh.Range(sh.Cells(8, co), sh.Cells(lr, co))
                .Formula = sh.Cells(2, co).Formula
                .Value = .Value
            End With
        Next cl
    Application.ScreenUpdating = True
End Sub


وبالأمانه الشديدة تمت تجربة الكود على الملف الخاص بأستاذى الفاضل / محمد الدسوقى على 30000 صف
وهو يعمل بكفائة عاليه من حيث النتائج ومن حيث الوقت حيث أستغرق وقت التنفيذ 5 ثوانى فقط
لكن للأسف الشديد عندما قمت بتجربته على ملفى الأصلى حدث خلل ما لم أستوعبه حتى هذه اللحظه
أضفت معادلة مكررة فى الصف الثانى كمثال فى الخلايا الصفراء مع وضع بعض الشروط فى العمود K بداية من الخلية K8 لتوضيح فكرة الموضوع
برجاء الاطلاع على المرفق التالى والإفادة بحول الله تعالى**** وجزاكم الله خيرا
 
 
  تعبئة تلقائية+11111.rar   تحميل rar مرات التحميل :(6)
الحجم :(30.812) KB





الكلمات الدلالية
تعبئة ، تلقائية ،


 










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

الساعة الآن 05:15 صباحا