أسامة عطاالله قام بنشر أكتوبر 2, 2014 قام بنشر أكتوبر 2, 2014 السلام عليكم كل عام وانتم بخير فى الملف المرفق يوجدشيتين الاول كشف خزنة 1 والثانى كشف خزنة اريد جلب بيانات من كشف خزنة 1 الى الشيت الثانى استخدمت معادلة الصفيف بس للاسف حجم الملف كبر ونوجد صعوبة فى فتحة لانهم 13 كشف ولجات لهذة المعادلة لان فى وسط الكشف ممكن ينقل موظف فاريد ترحيل الاسم التالى الى اعلى فاستعنت بشيت مساعد لكى يتسنى لى ترتيب الاسماء هل يمكن تغير المعادلة الى كود لتصغير حجم الملف وسرعة فتح الملف وغلقة شكرا لمجهودكم واسف للاطالة اكتوبر خزينة.rar
أبوعيد قام بنشر أكتوبر 10, 2014 قام بنشر أكتوبر 10, 2014 أرجو أن يكون هذا هو المطلوب تفضل اكتوبر خزينة#1.rar
أسامة عطاالله قام بنشر أكتوبر 10, 2014 الكاتب قام بنشر أكتوبر 10, 2014 (معدل) اخى واستاذى / أبوعيد شكرا لمجهودك والكود الرائع واطمع فى سعة صدرك واريد شرح للكود معادلة الصفيف موجودة كل اول كشف والكود يطبق الباقى ارجوا توضيح عمل الكود لو تكرمت وهل من الممكن تطبيق الكود بدون ازرار للتشغيل ( تشغيل اتوماتيك ) شكرا جزيلا على تعب حضرتك تم تعديل أكتوبر 10, 2014 بواسطه أسامة عطاالله
أفضل إجابة أبوعيد قام بنشر أكتوبر 10, 2014 أفضل إجابة قام بنشر أكتوبر 10, 2014 السلام عليكم نعم يمكن تطبيق الكود بدون إزرار وذلك بوضعه في حدث تفعيل الصفحة ACTIVATE كما هو مرفق بالملف شرح السطر الأول من الكود : اختر النطاق Range("A9:CD9") ثم قم بنسخ كل المعادلات الموجودة في الصف A9:CD9 إلى النطاق A9:CD33 (الكود لا يعرف ما هي المعادلات ولكنه سيقوم بنسخها فقط أيا كانت ) Range("A9:CD9").AutoFill Destination:=Range("A9:CD33"), Type:=xlFillDefault شرح السطر الثاني من الكود : بعد ذلك قم بإزالة المعادلات من النطاق A10:CD33 واحتفظ بالقيم فقط Range("A10:CD33") = Range("A10:CD33").Value وهكذا يتكرر الكود على النطاقات المختلفة حسب الشيت لاحظ معي الأرقام الحمراء :عندما أزلنا المعادلات من النطاق A10:CD33 فهذا يعني أن النطاق A9:CD9 لا زال يه معادلات وقد احتفظنا بها في هذا السطر حتى يتم تطبيق الكود مرات عديدة بمعنى أننا إن أزلنا المعادلات من النطاق A9:CD33 لن يستطيع الكود نسخها تحياتي اكتوبر خزينة#2.rar
أسامة عطاالله قام بنشر أكتوبر 10, 2014 الكاتب قام بنشر أكتوبر 10, 2014 استاذى الفاضل /أبوعيد لا توجد كلمات لكى اشكرك بها على شرحك ومجهودك اخى الكريم جعله الله فى ميزان حسناتك شكرا جزيلا تقبل تحياتى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.