اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

hicham2610

03 عضو مميز
  • Posts

    377
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو hicham2610

  1. السلام عليكم لمن أراد تجربة المورد: https://ek5djmgwkkhnvikyz0d5sw-on.drv.tw/routi%C3%A8rehadaoui/ismplayer.html الجزء الأول: الجزء الثاني:
  2. السلام عليكم من فضلكم هل من طرق أو برامج فعالة ومجربة لتحويل ملف باوبوينت به وحدات ماكرو pptm إلى ملف html5 فقد جربت ispring ولم ينجح الأمر وشكرا جزيلا
  3. السلام عليكم ولمزيد من التوضيح إليكم الملف التالي على شكل مسابقة (الملف في المرفقات) أريد في البداية أن يدخل المستخدم اسمه على أساس أن يبدأ المسابقة والمسابقة فيها أن عند اختيار الاختيار الخطأ تخرج له رسالة تنبيه وعند الضغط على الاختيار الصحيح ينتقل للصفحة الموالية وفي الصفحة الأخيرة تخرج له رسالة مبروك المطلوب: أن يدخل المستخدم اسمه في أول شريحة وعند الضغط على إدخال ينتقل للبدء في المسابقة في نهاية السؤال الأخير لما يضغط على الاختيار الصحيح وهي تظهر له رسالة مبروك بجانب مبروك أن يظهر اسم المستخدم وإن أمكن تخرج له شهادة باسمه وجزاكم الله خيرا وجدت كودا ولم أعرف كيفية العمل به، لم يسبق لي التعامل مع 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. السلام عليكم من فضلكم هل من طريقة من إضافة إسم المستخدم في ملف تفاعلي لباور بوانت بحيث تخرج نافذة أو رسالة تطالب المستخدم بإدخال إسمه في الأول وفي النهاية تخرج الرسالة التي تخبر بانتهاء المسابقة باسم المستخدم؟ وجزاكم الله خيرا
  5. الأخ سليم جزاك الله خيرا وشكرا لاهتمامك الآن بتطبيق المعادلة بعد ترجمتها للفرنسية و القسمة على 5 بدل 4 فهي 5 مواد وليس أربعة =SI(J9="";"";ARRONDI(J9/5;2)) هل 2 هو ما يدل على ترك رقمين وراء الفاصلة ؟ الآن صاحب المعدل 5 ناجح شكرا جزيلا
  6. جزى الله خيرا كل من اهتم بهذه المشكلة وحاول حلها رضوان الشلي المعمول به عندنا:4,99 يكرر و5 ينتقل شكرا جزيلا لاهتمامك سليم حاصبيا الأخ الكريم جاري تحويل اقتراحاتك لأن النسخة عندي فرنسية وتغيير , ب ;وما لم أفهمه 0.1 ممكن توضيحه أكثر جزاك الله خيرا مازالت المعادلات تعطيني أخطاء في نسخة أوفيس الفرنسية حللت مشكلة الترجمة وكيفت المعادلات مع النسخة الفرنسية لكن تغيير المعدل إلى القيمة الكبرى 0,1 غير صائب حولت إلى 0,01 كذلك غير سليم لأن 8,832 تصبح 8,34 وهذا غير صائب عمليا إذ يجب ألا يعطي 8,34 إلا إذا تجاوز الرقم الثالث بعد الفاصلة 5 شكرا لكل من اهنم في إيجاد حل لهذه المشكلة
  7. السلام عليكم من فضلكم في الملف في عمود القرار معادلة: =SI(K9>=5;"يكرر";"ينتقل") لكن متعلم حصل على معدل 5 ظهرت له يكرر كيف أعالج هذه المسألة خاصة أن 5 كتبت في إكسيل بدل 4,998 كيف أعالج المسألة مع الإبقاء على القانون المعتمد عندنا كل من حصل على 5 فما فوق فهو ناجح وجزاكم الله خيرا القرار.xlsx
  8. السلام عليكم من فضلكم هل من طريقة أو كود vba لمنع الاطلاع على وثائق الملف عرض البويربوانت بحيث السماح فقط للقراءة وعدم التعديل على الملف أو الولوج لوثائقه: صور أصوات إلى غير ذلك فقط السماء لقراءة العرض فقط جربت إدخال كلمة مرور لكن يمكن الدخول للوثائق عبر تحويله لملف مضغوط وجزاكم اللله خيرا
  9. السلام عليكم المرجو المساعدة في معادلتين إكسيل في G16 و G18 f أنثى G ذكر وشكرا جزيلا doc1.xlsx
  10. السلام عليكم توصلت بالحل التالي ، أضعه هنا للإفادة: 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 والله ولي التوفيق
  11. السلام عليكم من فضلكم كيف أعدل على الكود التالي: 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
  12. السلام عليكم من فضلكم هذا الملف برمجت فيه الأوراق :1 و2 و3 و4 لجلب نقط المتعلمين من الورقة:g بعد التأكد من رقم التلميذ والاسم وتاريخ الازدياد وهذه المعادلات تعمل بكفاءة ف أرقام الأراق تدل القسم المعني الطلب :برمجة الزر في الورقة:g لكي يتم ترحيل نقط المتعلمين للأوراق المعنية كما تفعل المعادلات بعد أن تكون أعمدة الرقم والاسم وتاريخ الازدياد مكتوبة مسبقا في الأوراق المعنية مع عدم التغيير في شكل الجداول ،وبغض النظر عن عدد المتعلمين الذي سيختلف في الأوراق 1و2و3و4 عن هذا المثال في هذا الملف وجزاكم الله خيرا الملف الرئيسي.xlsm
  13. الأخ الكريم أ / محمد صالح جزاك الله خيرا وأحسن إليك شكرا جزيلا للتنبيه
  14. السلام عليكم عندي هذا الملف في الورقتين 1 و2 معادلات تجلب نقط المواد من الورقة g بعد التأكد من الاسم وتاريخ الازدياد ورقم التلميذ لكن لاحظ أن المعادلة تعطي أخطاء في الورقة 3 و4 ما السبب جزكم الله خيرا وما التعديل الواجب القيام به؟ وجزاكم الله خيرا doc1.xlsm
  15. السلام عليكم الأخ الكريم: سليم حاصبيا جزاك الله خيرا وأحسن إليك لكن هناك تغيير في جداول الأوراق 1-2-3 و4 ممكن الإبقاء على الأوراق كما هي في الملف الأصلي وإجراء المطلوب؟ جزاك الله خيرا وأحسن إليك
  16. السلام عليكم من فضلكم في الملف المرفق 5 أوراق في الورقة g بها نتائج المتعلمين مجتمعة (الأقسام الأربعة) الورقة 1 نتائج القسم 1 فارغة الورقة 2 نتائج القسم 2 فارغة الورقة 3 نتائج القسم 3 فارغة الورقة 4 نتائج القسم 4 فارغة كيف يمكن برمجة زر الورقة g يحيث يتم ترحيل النتائج إلى كل ورقة (1و2و3و4)بعد التأكد من مطابقة العناصر التالية: رقم التلميذ والاسم وتاريخ الازدياد تفاديا للخطأ وجزاكم الله خيرا 6.xlsx
  17. السلام عليكم من فضلكم في هذا الملف كيف أبرمج زر الورقة g ? او اقتراح معادلة مناسبة بحيث يعيد ترتتيب أسماء التلاميذ التي في الورقة g عمود D بحيث لايجلس تلميذان ينتميان إلى نفس القسم عمود F متتاليان وهكذا لكل اللائحة التي في الورقة g وجزاكم الله خيرا الملف1.xlsm
  18. عندي أوفيس2019 ووندوز 10 نجح معي أخيرا بعد أن فككت الضغط وأخرجت ملف الباوبوانت من الملف ووضعته على سطح المكتب
  19. السلام عليكم لخبراء الباوربوينت من فضلكم كيف يمكنني فقط بنسخ الشريحة الأولى توظيف المسابقة: 1-في كلمات أخرى من 5 أحرف لكن بترتيب مختلف عن الشريحة الأولى في الحروف المبعثرة في الاعلى لأن بنفس الترتيب تكون سهلة للمتعلم وقد نجحت في ذلك في الشريحة الثانية 2- بكلمات أقل من 5 أحرف الملف : https://drive.google.com/file/d/17o9HjFRhYOirvZBioVidjaiW1czxC9dF/view?usp=sharing والفيديو الذي اعتمدت هو لصاحبه جزاه الله خيرا: ومرحلة الانتقال للشرائح الأخرى في آخر الفيديو وجزاكم الله خيرا
  20. السلام عليكم عندي في كل شريحة مكبر صوت وبرمجت فيه صوتا بحيث مع فتح الشريحة ينطلق الصوت (برمجته ب:مع السابق) وإن أراد المستعمل في حالة عدم سماع ذلك الصوت يضغط على مكبر الصوت فينطلق الصوت ثانية هذا العمل يعمل بشكل جيد عند أول فتح للشريحة لكن عند مغادرة الشريحة والعودة إليها مرة أخرى لاينطلق ذلك الصوت بمجرد فتح الشريحة فقط الذي يعمل هو الضغط على مكبر الصوت ما العمل لينطلق الصوت المبرمج دائما مع فتح الشريحة ؟وجزاكم الله خيرا
  21. السلام عليكم لتحويل ملف باور بوانت تفاعلي لتطبيق يعمل على الهاتف النقال نحتاج ل ispring suite و website 2 apk الرجاء من الإخوة ممن لديهم خبرة في الموضوع تزويدي بالبرنامجين windows10 64 bit office 365 وجزاكم الله خيرا
  22. السلام عليكم كيف يمكن تشغيل ملف ppsx و بالأزرار التفاعلية على الهاتف النقال كما في الحاسب؟ وإن كان الجواب بالنفي فكيف يمكن تحويله ليشتغل على الهاتف بسلسة وشكرا جزيلا
×
×
  • اضف...

Important Information