سالم شباني

بارك الله فيك أخي ايسم أعتقد أن هناك خطأ فعند الضغط على الزر يظهر userform فارغ وليس عليه display أظن أن الكود في حاجة إلى ضبط

بارك الله فيك أخي الفاضل أحمد أعدكم بوضع كل ما هو مفيد

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

السلام عليكم هذه موسوعة مصغرة أنجزت على إكسل فيها معلومات قيمة جدا التحميل من هنا

هذا الكود يقوم بكتابة الأرقام حسب ما تحدد أنت الكود يلزمه زر لتنفيذ الأمر أرجو أن تنجحوا --------------------------------------------------------------------------------------------------------------------------------------------------- Sub AutoNumbering() ActiveCell = ActiveCelltiveCell NS: A = Application.InputBox("أدخل أول ر قم في السلسلة التي تريد إنشاؤها", "أول رقم") B = Application.InputBox("أدخل آخر ر قم في السلسلة التي تريد إنشاؤها", "آخر رقم") If A = False Or B = False Then Exit Sub ElseIf A = "" Or B = "" Then MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ" Else If [iV65536] = 1 Then ActiveCell = A Else: Columns(ActiveCell.Column).Rows(65536).End(xlUp).Select If ActiveCell = "" Then ActiveCell = A Else: ActiveCell.Offset(1, 0).Select Selection = A End If End If ActiveCell.DataSeries xlColumns, , , 1, B End If If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then ActiveCell.ClearContents Beep If MsgBox("أول رقم في السلسلة أكبر من آخر رقم .. هل تود إعادة المحاولة؟", vbQuestion + vbYesNo, "إدخال خاطئ") = vbNo Then Exit Sub Else: GoTo NS End If End If Beep If MsgBox("هل تود إنشاء سلسلة رقمية أخرى؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then Exit Sub Else: GoTo NS End If End Sub

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

التنسيق المناسب هو أصغر من أو يساوي تاريخ اليوم لقد جربته ونجحت العملية أعانكم الله وبالمناسبة أريد معنى الشهادة ، نحن في الجزائر نقول الشهادة المدرسية ، شهادة الميلاد ، شهادة العمل ، شهادة نجاح أنا شاهدت في بعض المواضيع أن الشهادة عبارة عن جدول فما المقصود بالشهادة أخوك سالم شباني

التنسيق الشرطي يكون كالتالي 1- تنسيق الخلايا التي فقط على . 2- قيمة الخلية ----- أصغر من ( محتوى الخلية التي بها تاريخ اليوم ) 3- اختر اللون المناسب أنا شخصيا جربت ونجحت الفكرة شكرا لك aaa7373

أخي خالد القدس لقد أنجزت عملا رائعا وجزاك الله خيرا عميما بكل صراحة أجد صعوبة في التحميل أنا الآن أتنقل من مركز إلى آخر من أجل ذلك لكن كل المحاولات فشلت أشكرك كثيرا أخي خالد الآن فقط تمكنت من تحميل رابط التعريب إليكموه http://filaty.com/f/905/38863/AutoPlay_Med...0_Arabic.rar.ht

السلام عليكم أخي الكريم aaa7373 أعتقد الخطأ في عمليات القسمة كما تعلم في الإكسل حين يكون العدد 91.5 مثلا إذا ألغيت الفاصلة يصير 92 وهكذا أنصحك أن تجعل خاصية الأرقام بهذا الشكل 00.00 ولتعلم وإذا أردت عدم ظهور الجزء العشري فاعلم أنه إذا كان الرقم وراء الفاصلة من 5 فما فوق يحسب 1 89.5 يصير 90 --- 45.25 يبقى 45 -- 350.5 يصير 351 دقق الحسابات وسترى

شكرا أخي new4a على الرابط أنا بصدد التحميل أخوك سالم

عمل رائع يا أبو أسامة جزاك الله خيرا

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

ألف مبروك يا أستاذ ياسر على الرتبة الجديدة لك مني كل التقدير الشكر موصول بقية الأعضاء الفعالين وينك يا ياسر كل هذه الردود و أنت لا تعلم

يا ريت أخي new4a تضع رابط مركز التحميل ( ملفاتي ) شكرا

بارك الله فيك يا new4a عندي البرنامجين معا الإنجليزي والآخر بواجهة عربية ( أنا شخصيا أستعمل البرنامج الإنجليزي ) سأضعه في المنتدى فور تحميله لا تتعجلوا فنحن على أبواب العطلة

بارك الله فيك وجزاك خيرا عميما

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

السلام عليكم أجد صعوبة في تحميل البنرنامج دلوني على مركز تحميل مناسب ولكم جزيل التقدير

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

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

السلام عليكم أعتقد أن الخطأ هنا ( "A3:e100" ) أنت حددت مجال المعاينة يتجاوز الصفحة والله أعلم

بارك الله فيك أخي خالد شكرا على المرور الطيب

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

بارك الله فيك على الخدمة الرائعة دامت صحتك وعافيتك يا رب