inas aly

ربنا يجزيك الخير

الجزء49ترحيل الطلاب على اللجان Formats xlPasteColumnWidthsساجدة العزاوي http://up.top4top.net/downloadf-416dxcbb1-rar.html =========================================== رابط الملف http://up.top4top.net/downloadf-416874e71-rar.html

شكرا

الخطأ قي التنسيق الشرطي للون الاحمر فقط

جزاك الله خيرا من فصلك هذا الملف ممتاز فيه التنيبه باللون الاحمر قيه حطا ارجو يصحيحه تنســــــــــــــــــــــقات-نسخة.rar

لو تمت بالتنسيق الشرطي لم تنفغ مع اكسيل 2003 لان به 3 شروط للتنسيق فقط وهنا محتاجين 5 شروط . ايه الحل يا اهل الحل ؟

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

هذا هو الكود المطلوب التعديل فيه .. جزاكم الله خيرا

من اختك ايناس نشكرك على الدعوه الطيبه ولك مثلها

وداعاً لدمج الخلايا موضوع دمج الخلايا من المواضيع المهمة و التي يجب التعامل معها بنوع من الحذر و الحيطة, و ذلك لمى تسببه عملية دمج الخلايا من مشاكل خصوصاً إذا تم إستخدامها داخل قواعد البيانات في الإكسيل. و موضوعنا هنا يتوجب علينا التقليل من إستخدامها أو إستخدام البديل الذي سنعرضه الآن, فعلى سبيل المثال لدينا البيانات التالية عند إستخدام دمج الخلايا في المثال أعلاه يكون الهدف من هذه العملية إمتداد الإسم احمد من الخلية B1الى الخلية D1ليظهر بالشكل التالي : و لكن هنا إستخدمنا عملية الدمج بحيث أصبحت الثلاث خلايا خلية واحدة, و سوف نقوم بتطبيق الخطوات التالية للحصول على نفس النتيجة و لكن بدون إستخدام الدمج , و علمل ذلك سنتبع الخطوات التالية : سنقوم بتحديد الخلايا التي نرغب بوضعها تحت اسم احمد. . نقوم بفتح تنسيق الخلايا Format Cells, رايت كليك و نختتار تنسيق الخلايا . . من التاب الثانيAlignment و من ضمن خيارات Horizontalنختار من القائمة المنسدلة Center Across Selection نضغط OK و ستكون النتيجة بالشكل التالي : 3. و نكرر نفس العملية على باقي أسماء الموظفين. و بذلك نكون قد حصلنا على ما نريده و بما يتوافق مع طبيعة الإكسيل و آلية عمله . دمتم في حفظ الله يحيى حسين http://yahyahussien.blogspot.com.eg/2014/10/blog-post.html

درس عباره عن تصفيه بالكود وبشروط – الصوره توضح السلام عليكم اخوانى واخواتى الكرام حبيت اشاركم درس خفيف لقيته بالصدفه منقول للامانه رابط 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Public Type product name As String pages As String End Type Sub GroupProducts() Dim products() As product Dim lastRow, i, j, n As Long ReDim products(1 To 1) lastRow = Range(“a1”).End(xlDown).Row For i = 2 To lastRow found = False For j = LBound(products) To UBound(products) If Cells(i, 1).Value = products(j).name Then found = True products(j).pages = products(j).pages & “, “ & Cells(i, 2).Value End If Next j If found = False Then n = n + 1 ReDim Preserve products(1 To n) products(n).name = Cells(i, 1).Value products(n).pages = Cells(i, 2).Value End If Cells(i, 1).Value = “” Cells(i, 2).Value = “” Next i For i = LBound(products) To UBound(products) Cells(i + 1, 1).Value = products(i).name Cells(i + 1, 2).Value = products(i).pages Next i End Sub منقول

جزيتم خيراً وفي ميزان حسناتكم

جزيتم خيراً وفي ميزان حسناتكم

جزيتم خيراً وفي ميزان حسناتكم

فين بدايه العمل مفيش الا كل المشاركات كلام اسناذ محمود الشريف حزاك الله كل خير ... الهمه