عصام2008 قام بنشر أبريل 6, 2012 قام بنشر أبريل 6, 2012 السلام عليكم ورحمة الله الأخوة الأعزاء الأفاضل في الملف المرفق أعاني بطء في عملية ترحيل البياناات أثناء تسجيل صنف جديد والوقت يطول جدا وبالتالي لا يصلح لإنجاز العمل في حالة تسجيل أكثر من صنف علما بأن تسجيل الاصناف قد يصل في بعض الاحيان الى 25 صنف هل من حل لهذا البطء أم هناك طريقة تكون أكثر سرعة من طريقتي؟؟؟ ولكم جزيل الشكر سلفاً Store1.rar
أبو حنــــين قام بنشر أبريل 6, 2012 قام بنشر أبريل 6, 2012 السلام عليكم الأخ عصام 2008 لقد حاولت تصحيح المشكلة و إليك الملف المرفق الذي أرجو أن يفي بالغرض و السلام عليكم Store1.rar
بن علية حاجي قام بنشر أبريل 6, 2012 قام بنشر أبريل 6, 2012 السلام عليكم ورحمة الله أخي الكريم، إن بطء عمل الملف راجع إلى حجمه نظرا للعدد الكبير للمعادلات المستعملة وكثرة التنسيقات... وأقترح عليك حلا من حلين : الأول تحاول أن تقلل التنسيقات وأن تستبدل المعادلات بأكواد (ماكرو) تقوم مقامها، والحل الثاني إذا كان لديك أوفيس 2007 أو 2010 أن تقوم بحفظ الملف بصيغة xlsb. الذي يقوم تلقائيا بضغط ملفات أوفيس 2003 إلى ما يقارب العشر من حجمها والملفات لا تعود تشتغل إلا في أوفيس 2007 أو 2010 وهذه الصيغة تقبل الملفات التي تحوي أكوادا وتعمل فيها جيدا... ليس لي فكرة أخرى... أخوك بن علية
عصام2008 قام بنشر أبريل 9, 2012 الكاتب قام بنشر أبريل 9, 2012 السلام عليكم ورحمة الله وبركاته أولا اشكر الأخوة جميعا الذين قامو بالرد والإجابة على مشكلتي وثانسا عذرا للتأخير في الرد لعدم استطاعتي الدخول على الانترنت لظروف خاصة ثانيا اخي الفاضل أبوحنين المطلوب تنفيذ الكود كما هو ولكن بشكل أسرع بمعني جهد طيب منك محاولة مساعدتي في تنظيم قاعدة البيانات ولكن ليس هذا هو المطلوب المطلوب ترحيل البيانات الى ورقتين عمل في نفس الوقت وهما Buys ,Stor بنفس ترتيب البيانات لانهما مرتبطين بملف اخر لاستخراج تقارير معينة منه ولك وللأخوة الافاضل دزيل الشكر سلفا الملف الأصلي موجود بالمشاركة كما هو
طارق محمود قام بنشر أبريل 9, 2012 قام بنشر أبريل 9, 2012 السلام عليكم أخي العزيز أصلحت البطء في حال تسجيل المشتروات (صنف جديد ) Record2 ولاأعتقد أنه يلزمك تعديل لــ Record1 وهذا هو الكود المعدل Private Sub CommandButton1_Click() Application.ScreenUpdating = False If [D3] = "" Or [d4] = "" Or [D5] = "" Or [d6] = "" Or [d7] = "" Or [D8] = "" Or [d9] = "" Or [d10] = "" Or [d11] = "" Or [d12] = "" Then MsgBox " من فضلك أكمل البيانات الناقصة ", vbOKOnly + vbMsgBoxRtlReading, " البيانات المدخلة غير كاملة " [D3].Select Else With Sheets("buys").[B65536].End(xlUp) .Offset(1, -1).Value = Format(Now(), "hh:mm:ss am/pm") .Offset(1, 0) = [D3]: .Offset(1, 1) = [D5] .Offset(1, 2) = [d7]: .Offset(1, 3) = [d6] .Offset(1, 4) = [d10]: .Offset(1, 5) = [d11] .Offset(1, 6) = [B11]: .Offset(1, 7) = [B8] .Offset(1, 8) = [D8]: .Offset(1, 9) = [B9] .Offset(1, 10) = [d9]: .Offset(1, 11) = [d12] .Offset(1, 12) = [d4] End With With Sheets("Stor") r = .[A65536].End(xlUp).Row + 1 .Cells(r, 1) = [D5] .Cells(r, 2) = [d7] .Cells(r, 3) = [d6] .Range("D2:Q" & r).FillDown End With [D3:D12].ClearContents [D3].Select End If Application.ScreenUpdating = True End Sub ستلاحظ أنني حذفت المعادلات الزائدة من ورقة Stor ويقوم الكود بنسخها علي قدر مايحتاج وليس 2000 صف بلاداعي وهكذا ستجد الترحيل سريع تفضل المرفق Store2.rar
عصام2008 قام بنشر أبريل 9, 2012 الكاتب قام بنشر أبريل 9, 2012 الف الف الف شكر ياباشمهندس طارق على هذه المساعدة وجعلها الله في ميزان حسناتك انشاء الله واكثر الله من أمثالك
عصام2008 قام بنشر أبريل 24, 2012 الكاتب قام بنشر أبريل 24, 2012 السلام عليكم ورحمة الله وبركاته أخي العزيز / طارق بعد التحية لك ولكل أعضاء المنتدي الغالي ارفق لك نفس الملف ولكن بعد تعبئته بالبيانات وبالتالي أصبح بطيئ في الترحيل لدرجة لا تتخيلها لماذا لا أعلم أامل أن يكون هناك حل لهذه المشكله المحيرة وجزاك الله وجميع الأخوة خيرا على مساعدتي مقدماً وهل ممكن تنفيذ المعادلات التي بالملف عن طريق كود وليس بمعادلة في ورقة العمل حتى لا تتسبب في ابطاء العمل ؟ Store2.rar
طارق محمود قام بنشر أبريل 25, 2012 قام بنشر أبريل 25, 2012 السلام عليكم أخي العزيز ارفق لك نفس الملف ولكن بعد تعبئته بالبيانات وبالتالي أصبح بطيئ في الترحيل لدرجة لا تتخيلها لماذا لا أعلم المشكلة عندك في أمرين (1) هناك بعض النطاقات الديناميكية وليس لها استخدام ، وقد حذفتها (2) أن المعادلات الموجودة في ورقة stor تحدد نطاق كبير جدا للعمل فيه أكثر من 60,000 سطر ن كل معادلة تجعل الإكسل يمر عليها جميعا وقد غيرت لك النطاق إلي 3000 فقط وهل ممكن تنفيذ المعادلات التي بالملف عن طريق كود وليس بمعادلة في ورقة العمل حتى لا تتسبب في ابطاء العمل ؟ طبعا الكود سيجعل الملف سريع جدا سنحتاج لتغيير جميع معادلات الورقة "stor" لتكون بالكود وتناسب طلبك ولكن هذا قد يأخذ بعض الوقت وأنا مشغول قليلا مؤقتا إليك الملف (مرفق) وقد أصبح الملف مقبول السرعة (ليس سريعا وليس بطيئا) بعد التغييرات السابقة Store3.rar
عصام2008 قام بنشر أبريل 25, 2012 الكاتب قام بنشر أبريل 25, 2012 السلام عليكم ورحمة الله وبركاته مشكوووووور أخي العزيز على سرعة الرد والإجابة ولكن رجاااااء مساعدتي في تحويل المعادلات التي بورقة Stor الى أكواد لحاجتي الماسة الى انجاز هذا العمل وليكن معادلة واحدة مبدأئيا أتعلم منها وأجتهد لعمل باقي المعادلات وجزاك الله وجميع الأخوة في هذا المنتدي الرائع الف الف خير
عصام2008 قام بنشر مايو 17, 2012 الكاتب قام بنشر مايو 17, 2012 (معدل) أخي العزيز/ المهندس طارق بعد السلام عليكم ورحمة الله وبركاته أرجو مساعدتى في طلبي في المشاركة السابقة وأنا سأحاول التكملة ان شاء الله وجزاك الله خيرالجزاء تم تعديل مايو 28, 2012 بواسطه دغيدى
طارق محمود قام بنشر مايو 19, 2012 قام بنشر مايو 19, 2012 السلام عليكم أخي العزيز عذرا للتأخير تفضل المرفق وبه يتم التحويل أوتوماتيكيا لجميع معادلات ورقة "Stor" إلي قيم فقط بعد كل ترحيل مع الإحتفاظ بالمعادلات بآخر صفين بالورقة فقط للنسخ منهما Store4.rar
عصام2008 قام بنشر مايو 28, 2012 الكاتب قام بنشر مايو 28, 2012 (معدل) الأخ العزيز المهندس طارق السلام عليكم ورحمة الله وبركاته في المرفق ملف به حلول قد ساعدتني فيها من قبل ولك جزيل الشكر والتقدير والأن اريد المساعدة في ايجاد حل لبطء الاستعلام عن صنف حيث انه بطيء جدا ويستغرق وقت لاظهار البيانات الخاصة بالصنف لماذا لا أعلم رغم ان حجم الملف كما ستري ولا توجد به معادلات تثقله وجزاك الله عني خير الجزاء مبيعات من 21-05-2012_2.rar تم تعديل مايو 28, 2012 بواسطه دغيدى
طارق محمود قام بنشر مايو 28, 2012 قام بنشر مايو 28, 2012 السلام عليكم أخي العزيز لايوجد كود محمل علي الـ F4 ولايوجد أي تخصيص في أكواد الـ ThisWorkbook للزر أعد إرسال النسخة الصحيحة أو وضح ماذا تريد أن يحدث بالضبط عند الضغط علي "الاستعلام عن صنف F4"
عصام2008 قام بنشر مايو 28, 2012 الكاتب قام بنشر مايو 28, 2012 اسف لارسال النسخة الخطأ والآن في المرفق النسخة المراد العمل عليه وشاكر لك حسن تعاونك وسرعة الرد ياباشمهندس مبيعات من 21-05-2012_2.rar
طارق محمود قام بنشر مايو 29, 2012 قام بنشر مايو 29, 2012 السلام عليكم أعتقد أن العيب في الأسطر الزائدة بالورقة "stor" حيث أول عمود في البحث يحتوي علي قيم متشابهة "0" لتلك التي لم تسجل في آخر الورقة مما قد يطيل عملية البحث حذفتها ، واصبح سريع عندي تفضل مبيعات من 21-05-2012_2.rar
عصام2008 قام بنشر مايو 30, 2012 الكاتب قام بنشر مايو 30, 2012 مشكووووور ياباشمهندس وجزاك الله خيراً الحمدلله البحث أصبح سريع
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.