
hicham2610
03 عضو مميز-
Posts
377 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو hicham2610
-
السلام عليكم لمن أراد تجربة المورد: https://ek5djmgwkkhnvikyz0d5sw-on.drv.tw/routi%C3%A8rehadaoui/ismplayer.html الجزء الأول: الجزء الثاني:
-
كيف نبرمج لتخرج رسالة في نهاية الباوربوانت باسم المستخدم؟
hicham2610 replied to hicham2610's topic in منتدى الباوربوينت
السلام عليكم ولمزيد من التوضيح إليكم الملف التالي على شكل مسابقة (الملف في المرفقات) أريد في البداية أن يدخل المستخدم اسمه على أساس أن يبدأ المسابقة والمسابقة فيها أن عند اختيار الاختيار الخطأ تخرج له رسالة تنبيه وعند الضغط على الاختيار الصحيح ينتقل للصفحة الموالية وفي الصفحة الأخيرة تخرج له رسالة مبروك المطلوب: أن يدخل المستخدم اسمه في أول شريحة وعند الضغط على إدخال ينتقل للبدء في المسابقة في نهاية السؤال الأخير لما يضغط على الاختيار الصحيح وهي تظهر له رسالة مبروك بجانب مبروك أن يظهر اسم المستخدم وإن أمكن تخرج له شهادة باسمه وجزاكم الله خيرا وجدت كودا ولم أعرف كيفية العمل به، لم يسبق لي التعامل مع vba powerpoint Private Sub CommandButton1_Click() 'Set CertificateSlide' Set CertificateSlide = ActivePresentation.Designs(2).SlideMaster.CustomLayouts(2) 'Change Text within Certificate Slide TextBox to the Input Value' CertificateSlide.Shapes("CName").TextFrame.TextRange = TBName.Value 'Goto Next Slide' ActivePresentation.SlideShowWindow.View.Next End Sub 1 vba.pptm -
جزى الله خيرا كل من اهتم بهذه المشكلة وحاول حلها رضوان الشلي المعمول به عندنا:4,99 يكرر و5 ينتقل شكرا جزيلا لاهتمامك سليم حاصبيا الأخ الكريم جاري تحويل اقتراحاتك لأن النسخة عندي فرنسية وتغيير , ب ;وما لم أفهمه 0.1 ممكن توضيحه أكثر جزاك الله خيرا مازالت المعادلات تعطيني أخطاء في نسخة أوفيس الفرنسية حللت مشكلة الترجمة وكيفت المعادلات مع النسخة الفرنسية لكن تغيير المعدل إلى القيمة الكبرى 0,1 غير صائب حولت إلى 0,01 كذلك غير سليم لأن 8,832 تصبح 8,34 وهذا غير صائب عمليا إذ يجب ألا يعطي 8,34 إلا إذا تجاوز الرقم الثالث بعد الفاصلة 5 شكرا لكل من اهنم في إيجاد حل لهذه المشكلة
-
المرجو المساعدة في معادلتين لحساب معدل بشروط
hicham2610 replied to hicham2610's topic in منتدى الاكسيل Excel
جزاك الله خيرا -
السلام عليكم المرجو المساعدة في معادلتين إكسيل في G16 و G18 f أنثى G ذكر وشكرا جزيلا doc1.xlsx
-
السلام عليكم توصلت بالحل التالي ، أضعه هنا للإفادة: Sub gestnoexamen() Dim Dl As Integer Dl = Cells(Rows.Count, "D").End(xlUp).Row '' << trouve la dernière ligne Application.ScreenUpdating = False Range("T17").FormulaR1C1 = "=COUNTIF(R17C6:RC[-14],RC[-14])" Range("T17").AutoFill Destination:=Range("T17:T" & Dl) ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Add2 Key:=Range( _ "T16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("g").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B17").FormulaR1C1 = "1" Range("B18").FormulaR1C1 = "2" Range("B17:B18").AutoFill Destination:=Range("B17:B" & Dl) Range("T9").Select Application.ScreenUpdating = True MsgBox "تم توزيع المترشحين" End Sub والله ولي التوفيق
-
السلام عليكم من فضلكم كيف أعدل على الكود التالي: Sub gestnoexamen() Application.ScreenUpdating = False Range("T17").Select ActiveCell.FormulaR1C1 = "=COUNTIF(R17C6:RC[-14],RC[-14])" Range("T17").Select Selection.AutoFill Destination:=Range("T17:T72") Range("T17:T172").Select ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("g").AutoFilter.Sort.SortFields.Add2 Key:=Range( _ "T16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("g").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B17").Select ActiveCell.FormulaR1C1 = "1" Range("B18").Select ActiveCell.FormulaR1C1 = "2" Range("B17:B18").Select Selection.AutoFill Destination:=Range("B17:B172") Range("B17:B172").Select Range("T9").Select Application.ScreenUpdating = True End Sub لكي لايحدد المدي المعين بالتحديد في العمود المعني (لBوT)إلى غاية السطر الذي به بيانات في العمود : D لأن البيانات قد تختلف فربما تكون أكثر أو أقل وليس دائما تفس عدد التلاميذ الكود في زر توزيع المترشحين،الورقة : الملف مرفق وجزاكم اللله خيرا. الملف الرئيسي1.xlsm
-
السلام عليكم من فضلكم هذا الملف برمجت فيه الأوراق :1 و2 و3 و4 لجلب نقط المتعلمين من الورقة:g بعد التأكد من رقم التلميذ والاسم وتاريخ الازدياد وهذه المعادلات تعمل بكفاءة ف أرقام الأراق تدل القسم المعني الطلب :برمجة الزر في الورقة:g لكي يتم ترحيل نقط المتعلمين للأوراق المعنية كما تفعل المعادلات بعد أن تكون أعمدة الرقم والاسم وتاريخ الازدياد مكتوبة مسبقا في الأوراق المعنية مع عدم التغيير في شكل الجداول ،وبغض النظر عن عدد المتعلمين الذي سيختلف في الأوراق 1و2و3و4 عن هذا المثال في هذا الملف وجزاكم الله خيرا الملف الرئيسي.xlsm
-
مشكلة معادلة تعمل بشكل جيد في 1 و2 وتعطي الخطأ في 3 و4
hicham2610 replied to hicham2610's topic in منتدى الاكسيل Excel
الأخ الكريم أ / محمد صالح جزاك الله خيرا وأحسن إليك شكرا جزيلا للتنبيه -
طلب كود ترحيل النتائج إلى أوراق الأقسام
hicham2610 replied to hicham2610's topic in منتدى الاكسيل Excel
السلام عليكم الأخ الكريم: سليم حاصبيا جزاك الله خيرا وأحسن إليك لكن هناك تغيير في جداول الأوراق 1-2-3 و4 ممكن الإبقاء على الأوراق كما هي في الملف الأصلي وإجراء المطلوب؟ جزاك الله خيرا وأحسن إليك -
السلام عليكم من فضلكم في الملف المرفق 5 أوراق في الورقة g بها نتائج المتعلمين مجتمعة (الأقسام الأربعة) الورقة 1 نتائج القسم 1 فارغة الورقة 2 نتائج القسم 2 فارغة الورقة 3 نتائج القسم 3 فارغة الورقة 4 نتائج القسم 4 فارغة كيف يمكن برمجة زر الورقة g يحيث يتم ترحيل النتائج إلى كل ورقة (1و2و3و4)بعد التأكد من مطابقة العناصر التالية: رقم التلميذ والاسم وتاريخ الازدياد تفاديا للخطأ وجزاكم الله خيرا 6.xlsx
-
شاشة تسجيل النتائج في مسابقة البوربوينت
hicham2610 replied to أبو أيمن٤٩'s topic in منتدى الباوربوينت
عندي أوفيس2019 ووندوز 10 نجح معي أخيرا بعد أن فككت الضغط وأخرجت ملف الباوبوانت من الملف ووضعته على سطح المكتب -
شاشة تسجيل النتائج في مسابقة البوربوينت
hicham2610 replied to أبو أيمن٤٩'s topic in منتدى الباوربوينت
السلام عليكم لا يفتح الملف عندي -
السلام عليكم لخبراء الباوربوينت من فضلكم كيف يمكنني فقط بنسخ الشريحة الأولى توظيف المسابقة: 1-في كلمات أخرى من 5 أحرف لكن بترتيب مختلف عن الشريحة الأولى في الحروف المبعثرة في الاعلى لأن بنفس الترتيب تكون سهلة للمتعلم وقد نجحت في ذلك في الشريحة الثانية 2- بكلمات أقل من 5 أحرف الملف : https://drive.google.com/file/d/17o9HjFRhYOirvZBioVidjaiW1czxC9dF/view?usp=sharing والفيديو الذي اعتمدت هو لصاحبه جزاه الله خيرا: ومرحلة الانتقال للشرائح الأخرى في آخر الفيديو وجزاكم الله خيرا
-
السلام عليكم عندي في كل شريحة مكبر صوت وبرمجت فيه صوتا بحيث مع فتح الشريحة ينطلق الصوت (برمجته ب:مع السابق) وإن أراد المستعمل في حالة عدم سماع ذلك الصوت يضغط على مكبر الصوت فينطلق الصوت ثانية هذا العمل يعمل بشكل جيد عند أول فتح للشريحة لكن عند مغادرة الشريحة والعودة إليها مرة أخرى لاينطلق ذلك الصوت بمجرد فتح الشريحة فقط الذي يعمل هو الضغط على مكبر الصوت ما العمل لينطلق الصوت المبرمج دائما مع فتح الشريحة ؟وجزاكم الله خيرا
-
السلام عليكم كيف يمكن تشغيل ملف ppsx و بالأزرار التفاعلية على الهاتف النقال كما في الحاسب؟ وإن كان الجواب بالنفي فكيف يمكن تحويله ليشتغل على الهاتف بسلسة وشكرا جزيلا