hicham2610

السلام عليكم توصلت بهذا الحل وتعميما للفائدة أتقاسمه معكم: Option Explicit Dim tablo, tabloR() Dim i&, iR&, j& Sub SupprimerLesVides() tablo = Range("X10:AP48") ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2)) For j = 1 To UBound(tablo, 2) If j <> 5 And j <> 10 And j <> 15 Then iR = 1 For i = 1 To UBound(tablo, 1) If tablo(i, j) <> "" Then tabloR(iR, j) = tablo(i, j) iR = iR + 1 End If Next i End If Next j Range("X10:AP48").ClearContents Range("X10").Resize(UBound(tabloR, 1), UBound(tabloR, 2)) = tabloR End Sub

السلام عليكم هل من اقتراحات إخوتي الكرام؟

السلام عليكم من فضلكم كيف أبرمج زر إزالة الفراغات من الجداول الأربعة للفئات الأربعة على اليمين:الأحمر والأزرق والأصفر والأخضر ليزيل تلك الفراغات المعيبة وشكرا جزيلا PROG V11.xlsm

السلام عليكم لم أفهم ما وقع كتبت موضوعا جديدا فتم دمجه كرد مع موضوع سابق وتم وضع صور ليوزرفورم لم أدمجها غرييييييب سأعدل الموضوع وأفتح موضوعا جديدا

السلام عليكم تفضل Bookf.xls

العفو أخي الكريم وإن كنت ليس بأستاذ في هذا المجال فقط مهتم إليك كيفية ذلك بالفيديو رقمين وراء الفاصلة.rar

جزاك الله خيرا أستاذ وأحسن إليك.

السلام عليكم أتقاسم معكم الحل تعميما للفائدة سبب المشكلة أوفيس 2007 والحل:تثبيت الإضافة https://soft.telecharger.com/office/SaveAsPDFandXPS.exe بالتوفيق إن شاء الله

السلام عليكم أو أن سبب المشكلة أوفيس 2007 فهو غالبا لاتكون فيه PDF لأداة التي نضيفها ل2007 ليصبح يدعم PDF https://soft.telecharger.com/office/SaveAsPDFandXPS.exe

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

السلام عليكم الإخوة الكرام أنجزت هذا البرنامج وهو يعمل بكفاءة في عدة أجهزة وكذلك بالنسبة للإخوة الذين جربوه في هذا الموقع ، لكنه في جهاز أحد معارفي يعطي رسالة الخطأ في زر الطبع ، كما في الصورة: في انتظار إجابتكم أنشأت موديلا ووضعت فيه نفس الكود بدل محرر كود الزر المرجو الحل ممن لهم دراية بهذا المشكل ، وجزاكم الله خيرا PROG V7.xlsm

السلام عليكم من خلال تجربتي للملف الأخير لاحظت ظهور صيغة المعادلة رغم تفعيل الكود وهذه محاولتي عند تفعيل الكود لاتظهر صيغة المعادلة إن كان هذا هو المطلوب؟ أتواصل معكم لاحقا بحول الله بخصوص الطريقة HICHAM.xlsm

وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا وأحسن إليك شكرا لاهتمامك وردك.

السلام عليكم حللت مشكلة خروج نافذة الموافقة على الحذف وأتقاسم معكم الحل ليستفيد منه في حاجة له مع إرجاع أمر خروج النافذة في نهاية كود الحذف: Application.DisplayAlerts = False ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True بقيت مشكلة أن يصلح الملف للاستخدام في حواسيب أخرى وليس حاسبي فقط

السلام عليكم الإخوة الكرام أنجزت هذا البرنامج و زر (طبع جداول الفئات) المرجو تجربة هذا الزر هل يعمل بكفاءة على حواسيب مختلفة؟ بحيث تخرج وثيقة الطبع باسم Test في نفس مكان تواجد الملف .وكيف أمنع الرسالة التي تظهر في الأخير للموافقة على حذف الورقة(الحذف ذون خروج تلك النافذة)؟ (إلتجأت لفكرة إضافة ورقة temp لنسخ الجداول الأربعة عليها وتحويلها دفعة واحدة لملف pdf واحد وحذفها في الأخير) لكن لاحظت أن هذا الزر مرة يعمل وأخرى لايعمل تخرج رسالة الخطأ وعند الضغط على debogage أجد هذه الأسطر بالأصفر: وجزاكم الله خيرا PROG V2.xlsm

السلام عليكم ضروري من إرفاق ملف تشرح فيه المطلوب إليك هذه المحاولة،حسب فهمي لطلبك ،أتمنى أن تفي بالغرض: والسلام عليكم غير موجود بالمخزن.xlsx

السلام عليكم للاسف لو عرفت ترفعه يكون افضل لنساعدك

السلام عليكم تفضل هذه:الإحصائيات التي بالتحليل أكثر تطورا باعتماد جنس التلميذ(ذكر-أنثى) ودمج لائحة منسدلة في ورقة "نتائج التلاميذ" وخروج رسالة الخطأ في حالة الخطأ في مسك الجنس في ورقة "نتائج التلاميذ" التحليل باعتماد الجنس.xlsx

وعليكم السلام تفضل: نموذح.xlsm

السلام عليكم مرحبا أخي الكريم تفضل هذا العمل أتمنى أن يفي بالغرض والسلام عليكم التحليل.xlsx

السلام عليكم وهذا بصيغة أكثر تطورا لا يتم احتساب المعدل إلا إن وضعت النقط الثلاثة بكاملها ، إن نقصت واحدة لايتم احتساب المعدل حتى توضع بكاملها kaddour3.xlsx

السلام عليكم بالفعل ينبغي عندما يحصل الطالب على نفس النقطة في الخانات الثلاثة أن يكون المعدل مساويا لتلك النقطة وسبب عدم حصول ذلك هو خطأ في المعادلة بسبب خطإ في القاعدة التي وضعت ـ فلما تضيف المراقبة والفرض فلا تضع * 2 فضمنيا هناك نقطتان أو تحسب معدلهما و تضربه قي 2، المهم عدلت لك في الملف وحسبتها بطريقتين ويمكنك التجريب مثلا وضعت نفس النقطة للمتعلم الأول أتمنى أن يفي بالغرض الملف مرفق بعد التعديل بالتوفيق إن شاء الله kaddour2.xlsx

جزاك الله خيرا وأحسن إليك لكن هناك أربعة جداول والتسمية في الكود الجديد يعطيها باسم الملف الأصلي ،لكن تغلبت بهذا الكود على مشكلة مكان الحفظ بحيث يحفظ في مكان تواجد الملف الأصلي هل من إمكانية حفظ الجداول الأربعة في ملف Pdf واحد جزاك الله خيرا

السلام عليكم شكرا لاهتمامك وردك لكن جربت ولم ينفع معي هل من طريقة لإنشاء ملف في مكان تواجد البرنامج ويتم حفظ الملف بصيغة PDF فيه

السلام عليكم من فضلكم كيف أعدل على pc في الكود التالي ، ليصلح لجميع الحواسيب ، فحاسوبي اسمه: Pc لكن باقي الحواسيب يحدث فشل للكود Sub Macro5() ' ' Macro5 Macro ' ' ActiveSheet.PageSetup.PrintArea = "$AC$7:$AF$50" ' Range("AC7:AF50").Select ' Range("AF7").Activate ActiveWindow.SmallScroll Down:=-9 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\pc\Desktop\ÌÏæá ÇáãÊãßäíä äÓÈíÇ.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Application.WindowState = xlMinimized Application.WindowState = xlMinimized ActiveSheet.PageSetup.PrintArea = "" MsgBox "!åÔÇã : ãÈÑæß Êã ØÈÚ ÇáÌÏæá ÈäÌÇÍ", , Now() End Sub وجزاكم الله خيرا التفييء.xlsm