عبد الفتاح كيرة

تفضل هذا الكود Sub ÒÑ1_ÇäÞÑ() x = 2 For i = 2 To 10000 Step 2 Range("d" & i) = Range("a" & x) Range("d" & i + 1) = Range("b" & x) x = x + 1 Next i End Sub الملف بالمرفقات New Microsoft Office Excel Worksheet-kemas.zip

هل تستخدم أوفس 2003 ؟ مع 2007 نفس الشىء لم يتمكن من فتح الماكرو

بارك الله فيك على هذا العمل العظيم جارى التحميل We are sorry, but all downloading slots for your country are busy.

نعم إن شاء الله هذا شيت كنترول فيه ترحيل ناجحين وراسبين بالمعادلات http://posterous.com/getfile/files.posterous.com/kemas/ZpzwaL3TI48AfybPrtWKGfaoRfoFslRzBbDi13qAkguezw7tBB9qy0q8jkY1/untitled.xls

هذا الكود يظهر شاشة تعديل الخط Application.SendKeys ("^{F}")

أظن هذا الملف يلح مع نسخة أنا جربته و عند الفتح بقى الماكرو كما هو مغلقا

عليكم السلام و رحمة الله هذه المعادلة الطويلة ألجأنى إليها مشكلة حدثت مع دالة datedif المشكلة أن بعض الأجهزة " تستلف الشهر " ب 31 يوما يعنى لو طرحت 2/10/1989 من 1/10/2010 تعطى الأيام 30 يوما و على حساباتنا المفروض الأيام الباقية تكون 29 يوما ربما هذا لم يصادف كثيرين لكنى وجدت هذا فتعقيد المعادلة لتجنب هذه المشكلة لكن لو نظرت لمعادلة الشهور فلن تجد هذا التعقيد لعدم وجود مشكلة فمعادلة الشهور مثل معادلتك هذه =IF(C5 ="";"";DATEDIF(C5;$E$3;"ym")) شكرا لإتاحة مناقشة هذا الموضوع

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

شكرا أخى حسين بارك الله فيك شكرا لك أخى الجزيرة بارك الله فيكم

أقترح عليك أن تدعو لى بارك الله فيك

لا يعمل مع 2007 لأن المربع المذكور غير موجود فى 2007 كما هو فى 2003 أقصد لا يوجد قوائم أصلا

أشكرك أستاذ أشرف بارك الله فيك

شكرا أستاذ خالدى على الفورم

هذه هى المعضلة لم أصل لحل لها بعد

جرب هذا الماكرو الخطير For i = 1 To 25 On Error Resume Next Application.VBE.ActiveVBProject.VBComponents.Remove _ Application.VBE.ActiveVBProject.VBComponents.Item("Module" & i) Next i هذا يحذف 5 موديولات لاحظ أن هذا "Module" & i اسم الموديول

طبعا أستاذ khhanna نفذ الماكرو بعد فك الحماية البقية تأتى إن شاء الله أستاذ khhanna

نعم تحتاج إلى السماح بالوصول للمشروع انقر زر أوفيس اختر خيارات مركز التوثيق\ إعدادات مركز التوثيق إعدادات الماكرو ثم حدد " الثقة فى الوصول إلى طراز كائن مشروع vba ثم موافق

هل جربت هذا؟ Dim m As Object Dim mCtr As Integer Dim oCtr As Variant Dim vbP As Object Dim strNames As String strNames = ThisWorkbook.Name mCtr = 0 Set vbP = Workbooks("" & strNames).VBProject.VBComponents For oCtr = 1 To vbP.Count mCtr = mCtr + 1 If vbP(mCtr).Type = 1 Then Set m = vbP m.Remove vbcomponent:=m.Item(m(mCtr).Name) mCtr = mCtr - 1 End If Next

عبد الله بشير حياك الله و شكرا لدعائك وتحياتى لك و لأهل ليبيا الشقيقة

أستاذنا الفاضل لم أقصد أبدا مناقشتك و لا نقد ما تقول فأنت أستاذنا لكن كنت أنبه السائل إلى ذلك جزاك الله خيرا

شكرا سعادة المراقب العام الأستاذ astika فيم تستعمل هذا ؟ أنت هكذا ألغيت مفتاح اختصار الحفظ CTRL+S

هل اجد لديكم شرح لكود البحث\ لا أدرى ما المقصود بذلك ربما قصدت هذا ترحيل بيانات المواقع الي صفحات منفصلة مطلوب غير واضح

الطالب رقم 2 مثلا ابراهيم علي كيف يكون له اكمال في اللغة الانجليزية ويكون تقديره العام مقبول هذا السؤال لك لم أضع هذه المعادلة المرفقات تم التعديل نتيجـة-kemas-Re.zip

شاهد المرفق اختلفت الطريقة نتيجـة-kemas.zip

شكرا لردك أستاذ هشام بارك الله فيك