ابو محمد نصري قام بنشر أبريل 2, 2015 قام بنشر أبريل 2, 2015 (معدل) ..... قم في عمليه الترحيل من صفحه bon الي اليوميات و سوفي تلحظ اكسيل بطئ book1.rar تم تعديل أبريل 2, 2015 بواسطه ابو محمد نصري
ياسر خليل أبو البراء قام بنشر أبريل 2, 2015 قام بنشر أبريل 2, 2015 يا أخي لا فيه زر أمر يخص الترحيل ولما دخلت محرر الأكواد الاقي أكواد كتير .. إنت عايز تشتغل على أي كود !! خليك أكثر تحديداً في طلبك حتى تجد استجابة من الأخوة الأعضاء
ياسر خليل أبو البراء قام بنشر أبريل 2, 2015 قام بنشر أبريل 2, 2015 إذا كان هذا هو الكود جرب التعديل بهذا الشكل Sub Tarhilممم() Dim WS As Worksheet, SH As Worksheet Dim LRWS As Long, LRSH As Long Dim X As Long, I As Long Set WS = Sheets("bon de livraison "): Set SH = Sheets("اليوميات") LRWS = WS.Cells(50, 1).End(xlUp).Row X = Application.WorksheetFunction.CountA(WS.Range("A20:A" & LRWS)) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False For I = 1 To X LRSH = SH.Cells(Rows.Count, 4).End(xlUp).Row + 1 'ترحيل التاريخ SH.Cells(LRSH, 4).Value = WS.Range("B17") SH.Cells(LRSH, 3).Value = WS.Range("F13") 'ترحيل الاسم SH.Cells(LRSH, 5).Value = WS.Range("B11") 'ترحيل البيان SH.Cells(LRSH, 6).Value = WS.Cells(19 + I, 2).Value 'ترحيل الكمية SH.Cells(LRSH, 7).Value = WS.Cells(19 + I, 1).Value 'ترحيل السعر SH.Cells(LRSH, 8).Value = WS.Cells(19 + I, 3).Value 'ترحيل الإجمالي SH.Cells(LRSH, 9).Value = WS.Cells(19 + I, 6).Value Next I MsgBox "تم الترحيل بحمد الله", vbInformation, "YasserKhalil" Application.EnableEvents = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub سيتم حل مشكلتك بإذن الله
ابو محمد نصري قام بنشر أبريل 3, 2015 الكاتب قام بنشر أبريل 3, 2015 شكرا اخي الغالي ياسر الله يجعلها في ميزان حسناتك 1
صابر محمد بصير قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 إذا كان هذا هو الكود جرب التعديل بهذا الشكل Sub Tarhilممم() Dim WS As Worksheet, SH As Worksheet Dim LRWS As Long, LRSH As Long Dim X As Long, I As Long Set WS = Sheets("bon de livraison "): Set SH = Sheets("اليوميات") LRWS = WS.Cells(50, 1).End(xlUp).Row X = Application.WorksheetFunction.CountA(WS.Range("A20:A" & LRWS)) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False For I = 1 To X LRSH = SH.Cells(Rows.Count, 4).End(xlUp).Row + 1 'ترحيل التاريخ SH.Cells(LRSH, 4).Value = WS.Range("B17") SH.Cells(LRSH, 3).Value = WS.Range("F13") 'ترحيل الاسم SH.Cells(LRSH, 5).Value = WS.Range("B11") 'ترحيل البيان SH.Cells(LRSH, 6).Value = WS.Cells(19 + I, 2).Value 'ترحيل الكمية SH.Cells(LRSH, 7).Value = WS.Cells(19 + I, 1).Value 'ترحيل السعر SH.Cells(LRSH, 8).Value = WS.Cells(19 + I, 3).Value 'ترحيل الإجمالي SH.Cells(LRSH, 9).Value = WS.Cells(19 + I, 6).Value Next I MsgBox "تم الترحيل بحمد الله", vbInformation, "YasserKhalil" Application.EnableEvents = True Application.Calculation = xlAutomatic Application.ScreenUpdating = True End Sub سيتم حل مشكلتك بإذن الله استذنا أنا عملت الكود ده عندي مع تغيير اسماء الخلايا والشيتات .. بطيييييييييييئ جدا
ياسر خليل أبو البراء قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 ارفق الملف الأصلي للإطلاع عليه هذا أفضل لمحاولة علاج أمر البطء
صابر محمد بصير قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 ارفق الملف الأصلي للإطلاع عليه هذا أفضل لمحاولة علاج أمر البطء
صابر محمد بصير قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 ارفق الملف الأصلي للإطلاع عليه هذا أفضل لمحاولة علاج أمر البطء أستاذي الملف جيت أرفعة علي المنتدي رفض وبيقولي لا يسمح برفع هذا النوع من الملفات هو مساحته تقريبا 825 كيلو بايت مفيش طريقة تانية أرفع بيها الملف لحضرتك
ياسر خليل أبو البراء قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 الحجم مسموح بيه أخي الفاضل فقط اضغط الملف أولاً قبل رفعه ثم قم برفعه .. سؤال : كم يستغرق الكود في عملية التنفيذ؟ سؤال آخر : هل جربت الكود في المشاركة رقم 5 ؟
صابر محمد بصير قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 استاذ ياسر .. هذا هو الملف التطبيق.rar
ياسر خليل أبو البراء قام بنشر أبريل 23, 2015 قام بنشر أبريل 23, 2015 أخي الفاضل جربت اغير في طريقة التعامل مع الكود ولغيت الحلقات التكرارية وبردو الملف بطيء .. أعتقد ان المشكلة ليست في الكود على الإطلاق خصوصاً أن نطاق البيانات الذي يتم التعامل معه صغير وليس نطاق كبير الحجم يعني بالعامية كدا المفروض الكود يتم تنفيذه في أقل من 3 ثواني (على أكثر تقدير) لكن يبدو والله أعلم أن هناك عمليات حسابية أو معادلات صفيف مرتبطة بأوراق العمل المرحل إليها .. حاول تراجع ملفك وشوف السبب لأني مش هفهم في ملفك أكتر منك
محمودبك قام بنشر أبريل 25, 2015 قام بنشر أبريل 25, 2015 الاستاذ / ياسر المحترم تحية طيبة لست اعلم منكم بالاكواد ولكنى متابع لموضوعاتك ربما يكون اسماء الصفحات فى الكود يكون السبب فى ذلك وشكرا تحياتى
ياسر خليل أبو البراء قام بنشر أبريل 25, 2015 قام بنشر أبريل 25, 2015 لو الكود به مشكلة لظهرت ولكن الكود سليم والنتائج أعتقد أنها سليمة إذا فهناك مشكلة ما في المصنف نفسه .. لربما يكون هناك معادلات صفيف مرتبطة بعمليات حسابية كثيرة وعند تنفيذ الكود يتم إعادة العمل على هذه العمليات الحسابية لا أدري صراحة ..حاول تتفقد الملف كل ورقة عمل على حدا
سلمان المجذوب قام بنشر أبريل 25, 2015 قام بنشر أبريل 25, 2015 (معدل) اخي ابو محمد البطئ سببه كثرة المعادلات في اوراق العمل انا عانيت من نفس المشكلة...لين حولت المعادلات الى اكواد صار العمل بشكل جيد وسلس شوف انا نزلت الورقة بتاعك..وقمت بحذف ورقة المخازن و ورقة تقرير وجربت اسوي ترحيل ......... ترحل صارووووووووخ... يعني لازم تحول المعادلات الي بورقتي المخازن والتقارير الى اكواد...وان شا الله العمل با يصير سلس جدا والسلام عليكم تم تعديل أبريل 25, 2015 بواسطه سلمان المجذوب 1
احمد عبد الناصر قام بنشر أبريل 28, 2015 قام بنشر أبريل 28, 2015 السلام عليكم جرب اضافة هذا السطر في بداية الكود Application.Calculation = xlCalculationManual و هذا في نهايته Application.Calculation = xlCalculationAutomatic ليعطل عملية الحساب في الاكسل فترة تنفيذ الكود , لست متأكدان كان هذا يفي بالغرض . تحياتي
ياسر خليل أبو البراء قام بنشر أبريل 28, 2015 قام بنشر أبريل 28, 2015 الأخ الحبيب والأستاذ الكبير أحمد عبد الناصر تم إضافة هذه الأسطر في المشاركة رقم 5 .. يبدو أن الملف يقوم بعمليات حسابية تتطلب وقتاً كبيراً .. ولكن الغريب في الأمر أنني قمت بإبطال كل الخواص ScreenUpdating و EnableEvents و Calculation ولا زال الملف بطيء ، ولن أقول الكود ، حيث أن الكود يتعامل مع بيانات قليلة وليس من المطنقي وليس من البديهي أن يستغرق كل ذلك الوقت
احمد عبد الناصر قام بنشر أبريل 29, 2015 قام بنشر أبريل 29, 2015 السلام عليكم استاذنا ياسر -معذرة فلم اشاهد الكود بالمشاركة 5 عند اضافة مشاركتي بالفعل هو يفي بالغرض و زيادة وسريع جدا كالمتوقع يكاد يكون "لحظي" . -جربت الكود في الملف في المشاركة رقم 12 فلم يكن تعطيل الحساب موجود وكان كود الترحيل بطيء جداااا و عند اضافة كودك عليه من المشاركة 5 يعمل سريع جدا لحظي , لكن الملف بدون تشغيل اكواد او اي شيء يحتاج و قت طويل لاعادة عمليات الحساب فيه (اكيد في عدد كبير من المعادلات فيه) ,لكن الكود سريع فيه . تحياتي 1
ا بو سليمان قام بنشر أبريل 29, 2015 قام بنشر أبريل 29, 2015 انا متاكد ان اضافتك مشرفنا الفاضل ياسر مهمة ولكن للاسف انا لا اغرف كيف استفيد منها لانني لا اعرف من الاكواد حتى اسمها ......!!! كم نحن بحاجة الى ابجد هوز في التعليم من تحت الصفر حتى نصل الى الصفر ثم بعدها نرتقي ............
ياسر خليل أبو البراء قام بنشر أبريل 29, 2015 قام بنشر أبريل 29, 2015 ايه الحكاية معاكم يا أبو سليمان الأخ مختار بيحكي عن الصفر .. والأخ محمد صالح عنوانه من تحت الصفر في الحلقات الجديدة .. وإنت بتحكي عن الصفر الصفر مش وحش يا إخواني ................... أيوا والله زي ما بقولكم كدا إحنا ليه دايما بنبص في نص الكوباية الفاضي مش بنبص للنص المليان (التفاؤل مطلووووووب) يعني الصفر إحنا باصين له على إنه لا شيء .. بس أقولك على شيء إن اللاشيء لو وضع في المكان الصحيح أصبح ذو قيمة فالصفر ممكن ميكونش له قيمة في حد ذاته ، لكن إذا وضعته على يمين الرقم أصبح الرقم نفسه له قيمة ..يبقا يا ريت منزعلش من الصفر كان معكم أخوكم الرغاي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.