ibn_egypt

اخى الفاضل على افتراض ان الرقم موجود بالخلية A1 استخدم هذه المعادلة .... ومرفق الملف به تطبيق المعادلة على الحالة الخاصة بك =IF(MID(MOD(A1,1),5,1)="0",ROUND(A1,2),ROUNDUP(A1,2)) تحياتي التقريب 2.rar

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

أخى الفاضل أ.قصي جزانا الله واياك كل الخير أخى الكريم ... مرفق ملفك الموجود بالمشاركة الأولى مع تعديل الكود ليناسب طلبك .. كل ما عليك بورقة العمل "بيانات الطلبة" وفي الخلايا A1 و A2 و A3 ... قم بكتابة اسم الادارة والمدرسة والفصل ... وفي الخلايا J1 و J2 و F3 اكتب اسم رئيس النظام والمراقبة ومدير المدرسة والعام الدراسي ثم اذهب الى ورقة العمل "أرقام الجلوس" وفي الخلية C1 اكتب عدد الطلاب الذى تريد طباعتهم وفي الخلية E1 اختر رقم الجلوس الذي تود البدء به من القائمة المنسدلة واضغط استدعاء البيانات أخيرا : لا أريد أن ينسب لى شئ كل ما اريده الدعوة الصادقة من القلب بظهر الغيب ... وفقنا الله واياكم الى ما يحب ويرضي تقبل تحياتي كود رقم الجلوس.rar

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

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

اخى الفاضل أ.طارق الكود الذي أرفقته يجعل التاريخ المكتوب بمربع النص بتنسيق DateFormt على اعتبار انك معرف ال DateFormt من البداية بهذا الشكل Const DateFormt As String = "yyyy/MM/dd" أو بأي شكل تريده .. وليس له علاقة بجعل مربع النص لا يقبل الا تاريخ .. واذا اردت جعل مربع النص لا يقبل الا تاريخ فقط فأنا استخدم هذا الكود >> آسف لكتابة رسائل الخطأ بالإنجليزية حيث أنها بالعربية تظهر على شكل رموز غير مفهومة Private Sub txtbdate_AfterUpdate() On Error GoTo 1 Me.txtbdate = Format(Me.txtbdate, "yyyy/MM/dd") With txtbdate If Len(.Text) <> 10 Or _ Mid(.Text, 5, 1) <> "/" Or _ Mid(.Text, 8, 1) <> "/" Then MsgBox "Date Format Should Be yyyy/MM/dd", vbOKOnly + vbInformation, "Wrong Date" Me.txtbdate.Text = "" Me.txtbdate.SetFocus GoTo 1 End If End With If Not IsDate(txtbdate) Or Mid(txtbdate, 6, 2) > 12 Then MsgBox "Please Enter Valid Date", vbOKOnly + vbCritical, "Wrong Date" Me.txtbdate.Text = "" Me.txtbdate.SetFocus GoTo 1 End If 1 End Sub ففى هذا الكود فنحن نجعل تنسيق التاريخ المكتوب من البداية ليصبح yyyy/MM/dd ....ليكون بهذا الشكل على سبيل المثال 2015/01/30 ثم نختبر التاريخ المكتوب في مربع النص اذا كان لا يساوي 10 يبقي خطأ واذا كان الرقم الخامس أو الثامن من اليسار لا يساوي / يبقي مش تاريخ ... تمام وبرضه بنرجع نختبر لو مش تاريخ او لو تاريخ ولكن الارقام بداية من 6 وبطول 2 اللى هي الاشهر اكبر من 12 يبقي تاريخ خطأ حيث ان عدد الاشهر لا تزيد عن 12 جرب ولو فيه اى استفسار اكتبه ونتناقش فيه تحياتي

اخى الفاضل الجموعي تفضل الملف المرفق لربما به طلبك تحياتي كمبوبوكس.rar

أخي الفاضل أ. ايمن لا شكر على واجب أخي الكريم، والحمد لله أن وجدت مبتغاك ... أما بخصوص الشرح فأنا لا اجيده ولكن الكود بسيط بدأ بتعريف المتغيرات حيث SWS شيت مصدر البيانات وهو AYMAN شيت DWS شيت دور ثان معرفة اخر صف في شيت المصدر SLR ثم مسح محتويات البيانات الموجودة في النطاق A5:D1000 بشيت دور ثان لتجهيزها لاستقبال اى بيانات جديدة ثم حلقة تكرارية من الصف الثالث الى اخر صف بشيت المصدر AYMAN اذا وجد في الصف الذي نحن فيه بالعمود 27 كلمة دور ثان ينقل الاسم بالعمود الثالث والجلوس بالعمود الرابع والنتيجة بالعمود 26 الى شيت دور ثان بعد الانتهاء حلقة تكرارية اخرى لعمل تسلسل الارقام في العمود A بشيت دور ثان أرجو أن اكون وفقت في ذلك ولو استصعب عليك شيء فأسأل أخي الكريم تحياتي

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

اخى الفاضل تفضل الملف المرفق لربما به طلبك ... اضغط زر احضار البيانات في شيت دور ثان تحياتي ayman.rar

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

أخى الفاضل أ.إبراهيم انسخ هذا الكود والصقه مكان الكود الموجود ومرفق الملف للتوضيح .. لعله طلبك ان شاء الله Sub sum_() Set ws = Worksheets("Sheet1") '------------------ For HM = 3 To 12 '------------------ ws.Cells(17, HM) = WorksheetFunction.SumIfs(ws.Range("O4:O12"), ws.Range("G4:G12"), ws.Cells(16, HM), _ ws.Range("B4:B12"), ws.Cells(17, 1), ws.Range("A4:A12"), ">=" & CLng(ws.Cells(15, 3)), ws.Range("A4:A12"), "<=" & CLng(ws.Cells(15, 6))) Next End Sub تحياتي sumifs.rar

اخى الفاضل جرب الملف المرفق لربما به طلبك ... ولمزيد من الافكار قم بزيارة الموضوع التالى http://www.officena.net/ib/index.php?showtopic=57508&page=1 تحياتي إخفاء وإظهار صف محدد بنفس المفتاح.rar

اخى الفاضل طالما ان البرنامج يروق لك وسيسهل عملك ... فاتصل على هاتف صاحب البرنامج الموجود بالفيديو واطلب منه شراء نسخة من البرنامج تحياتي

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي بحث أي كلمه في الاسم.rar

اخى الفاضل جرب الملف المرفق لربما به طلبك .. تم تعديل زر الطباعة ليقوم بحفظ الشيت كملف اكسل منفصل في نفس مسار الملف الأصلي .. وتم اضافة زر حفظ ك PDF عند الضغط عليه يقوم بحفظ الشيت ايضا ولكن كملف PDF في نفس مسار الملف الأصلي تحياتي فورم ادخال و تعديل مرن مع الطباعة 3.rar

يعنى نفس الجدول وبمجرد كتابة الرقم السري يحضر درجات الطالب بكل المواد تحياتى

اختنا الفاضلة أ.مريم كما تفضل اخى حسام أنتى لم تحددى عن اى درجة تتحدثين "عربي-علوم-دين" ام المجموع للمواد عامة مرفق ملف لربما به طلبك تحياتي sss.rar

اخى الفاضل حسب ما فهمت .. انسخ الكود التالى بأكمله والصقه اسفل الكود الموجود لديك Private Sub UserForm_Initialize() Me.TextBox1.SetFocus End Sub تحياتي

اخى الفاضل أ.طارق تفضل الملف المرفق لربما به طلبك .... لن يتم الدخول الا باحدي كلمات المرور التى حددتها في الأعلى تحياتي login.rar

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتى 11222.rar

اخى الفاضل جرب الملف المرفق تنسيق 2003 تحياتي 11222.rar

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي 11222.rar

اخى الفاضل تفضل الملف المرفق لعل به طلبك تحياتي مشكل 9.rar

السلام عليكم ورحمة الله وبركاته كثيرا ما كان يزعجنى في الفورم رسالة التنبيه الملحقة بخاصية ال Match Required الخاصة بالكمبو بوكس بالرغم من أهميتها الشديدة لإلزام المستخدم من الاختيار من القائمة .... ولكن عند الوقوف على الكمبو والضغط على زر خروج تظهر رسالة Invalid Property Value >>> وتستمر في الظهور الى ان اختار اى عنصر من الكمبو مرفق كود بسيط لاظهار رسالة خطأ اذا تم كتابة اى عنصر ليس موجودا بالكمبو .. أى بديل لخاصية ال Match Required ورسالتها المزعجة ... أدعوا الله ان يجازى صاحبه عنا خير الجزاء تحياتي Select-From-Combobox.rar