محمد الصادق

رائع رائع رائع

الاخت الكريمه جربى الملف المرفق الجدول.rar

الاخت الكريمه تفضلى الملف بعد التعديل الجدول.rar

تفضلى اختنا الكريمه الملف المرفق به طلبك تحياتى الجدول.rar

بعد اذن الاستاذ حسام اخى محمد عبدالمجيد معادلتك انت غلط بالخليه i6 =Code3!E2+card!G4-card!H4+card!I4 والصحيح هو =(Code3!E2+card!G4)-(card!H4+card!I4) وكذالك بالخليه j6 يا اخى احسبها حتى على ايدك هتلاقى معدلتك انتى غلط

شكرا لك اخى واستاذى الكريم حضرتك انا اقصد هل من الممكن فتح ملف اكسيل على اكثر من جهاز بنفس الوقت من اكتر من يوزر وشكرا لحضرتك

شكرا لك اخى واستاذى الكريم ولكن يبقى الامل ان كان ممكن ولو مش موجود اصلا فى الاوفيس وخصائصه فالله المستعان اما لو موجود فننتظر من عنده اى علم بذالك ان لا يبخل علينا بعلمه ويبقى الامل

للرفع

للرفع للاهميه عمل الملف على اكثر من جهاز فى نفس الوقت

السلام عليكم الاخت الكريمة الخطا هو ان الكود ببحدث الورقه والصحيح ان يكون بالمودويل فعليك ادراج مودويل جديد و انسخى الكود من حدث الى ورقه الى المودويل ثم ارجع الى حدث الورقه واحذفى الكود ثانى ملاحظة وهى الدرس فى طريقتين انتى لا مطبقه الطريقه الاولى ولا الثانيه الاولى وهى هنا العرض من نوع دبل (اللى باللون الاحمر) وذلك يعنى وجود العرض ومعلوم قيمته مش انه موجود بس لا وقيمته كمان معروفه (Function Area(Length As Double, Width As Double Area = Length * Width End Function ام الثانى فى حاله لما نكون عايزين نعمل شروط للداله مثل فى حاله عدم وجود العرض يضرب الطول فى الطول ويكون الكود كالتالى وهنا العرض عملنا له خيار فى حاله عدم وجوده او حاله قيمتى صفر لذالك استخدمنا if (Function Area(Length As Double, Optional Width As Variant If IsMissing(Width) Then Area = Length * Length Else Area = Length * Width End If End Function

جرب تعديل هذا السطر For j = 1 To 2000 وقم باضافه هذا السطر بداية الكود Application.ScreenUpdating = False

ارفق ملفك اخى الكريم

استاذى الكريم جرب تعطيل هذا الجزء Cells(i, 1).Value = j ' وشوف النتيجة هل هى المطلوبة او جرب طريقه اخرى وهى بعد هذاالسطر Next j ضيف هذا السطر بعده ""=Cells(i, 1).Value