beso2009

هو مبدئيا مينفعشي لكم ممكن تستخدم بعض برامج الضغط زي winzip او win rar هتلاقي خاصية اسمها self extractor زي ال set up بالظبط وممكن لو بتستخدم فيجوال بيسك فيه installer كويس من package and deployment

تحتوي علي كل ما يحتاجه كنترول المدرسة besonateegapro__version_3_.rar

نعم سوف تنجح بإذن الله ويمكنك التجريب بنفسك

شكراً يا علي وكل سنة وانت طيب

شرح مختصر للترحيل: sheets("sheet2").cells(2,1).value=sheets("sheet1").cells(5,2).value شرح الكود: ترحيل البيانات الموجودة في الصف الخامس العمود الثاتي في sheet1 إلي إلي الصف الثاني والعمود الأول في sheet2 للشرح بالتفصيل ولكي تفهم الكود: اذهب الي الرابط التالي: http://www.officena.net/ib/index.php?showtopic=5234

يمكنك عمل ذلك بسهولة: من قائمة File اختر Page setup اختر علامة التبويب Sheet سوف تجد Rows to repeat at top اي الصفوف التي سيتم تكرار طباعتها في كل ورقة اضط عليها واختار الصف او الصفوف المكررة(بصرف النظر عن انها كانت مجمدة او لا)

اريد الأستفسار عن اكواد الvba البديلة لبعض المفاتيح مثل(ctr+shift.......) علي سبيل المثال alt+f4

والله الفكرة جميلة لكن مش جديدة هنا ف المنتدي ده وانا شايف الجديد اننا نعمل كتاب ف الإكسل يكون pdf ويكون شامل لكل نقط الاكسل ويشرحها ويفسرها بسهولة ويسر ويتقسم تأليفه واخراجه علي اكثر من عضو ف المنتدي وانا مستعد ابذل ما ف وسعي وع العموم انا هشرح كود برنامج رفع الدرجات للطلاب فكرة الكود : البحث عن الخلايا الموجود فيها ارقام معينة ورفعها لتصبح رقم معين اخر الكود: For Each c In Worksheets("كشف درجات").Range("c2:f50000").Cells If c.Value = 22 Or c.Value = 23 Or c.Value = 24 Then c.Value = 25 End If Next الشرح: ابحث عن اي خلية في الصفحة (كشف الدرجات) والموجودة ف النطاق من c2 إلي f50000 اتكون قيمتها 22 او23 او 24 واجعلها تساوي 25 ثم ابحث عن التي بعدها ونفذ الشرط السابق

وتلك نسخة اكثر تعديلاً تحميل النسخة 3

بص يا اخ علي انت عارف الملف اللي عدلتلي فيه اللي فيه الفاتورة اللي باسم besopreviewsaif انا عايز اعمل لما اجي اعكتب فاتورة لعميل الكمية اللي في صفحة الاصناف تقل ولما اجي استخدم صفحة الشراء الكمية تزيد واعتقد ده نفس الكلام اللي alasier2003 بيستفسر عنه

يا اخي لا شكر علي واجب ف انا اعتبر كل ما تعلمته امانة لمن يريد ان يتعلم ما تعلمته

انا اسمي : باسم رضا المهنة: طالب ببكالوريوس تجارة انجلش جامعة بنها(مصر) قسم محاسبة مواليد:1985 هوايتي الاولي هي تعلم الحاسب ثم تعلم اللة الانجليزية ثم القراءت العامة

شكراً اخي علي واتمني لك التوفيق في ابداعاتك

وارجو ان ترجعي الي الصفحة التالية بالمنتدي http://www.officena.net/ib/index.php?showtopic=206 فبها مراجع جيدة

نفس الذي شرحته لك بالظبط ولكن بدل shrink to fit' اختار wrap text الي التفاف النص وبذلك يتغير ارتفاع العمود

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

اضغط كليك بعد تعليمك علي الخلايا المراد تنفيذ فيها الطلوب اخت ر تنسيق الخلايا Format Cells اشر علي علامة التبويب Alignment محاذاه اشر علي shrink to fit اي انكماش حسب حجم النص وشكرأً

ايضاً اريد ان اعلمك انني قمت بتعديل المعادلات لتصبح اكثر كفأة تحمل البرنامج واليك الشرح: =VLOOKUP(G10;'كشف درجات'!A2:M65000;2;0) اضفنا هنا صفر لتجنب الخطأ إذا بحثنا عن رقم جلوس غير موجود. =IF(ISNA(VLOOKUP(G10;'كشف درجات'!A2:M65008;2;0));"";VLOOKUP(G10;'كشف درجات'!A2:M65008;2;0)) اضفنا IF ISNA حتي إذا تركنا رقم الجلوس فارغ نتجنب رسالة الخطأ وتظهر الخلايا فارغة وشكراً

وهذا شرح لأحدي المعادلات =VLOOKUP(G10;'كشف درجات'!A2:M65000;2) vlookup البحث رأسيأ عن:( القيمة المكتوبة في G10) في قاعدة البيانات الموجودة في صفحة كشف الدرجات(من a2 إلي m5000) في العمود الثاني ولمزيد من التوضيح راجع شرح دوال lookup بالمنتدي فالأخوة مبدعين فيه

اخي المبدع علي : حقيقة مواضيع جميلة وردود اجمل اعلم جيدا ما شرحت ولكن الذي لا افهمه هو الكود التالي (البديل ل lookup ) عن طريقvba Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo NotAvailable Static MyCell As Boolean If MyCell = False Then If Target.Address = "$B$4" Then MyCell = True Me.Range("H4") = Application.WorksheetFunction.VLookup(Target.Value, Me.Range("M5:N204").Value, 2, 0) Exit Sub ElseIf Target.Address = "$H$4" Then MyCell = True Me.Range("B4") = Application.WorksheetFunction.VLookup(Target.Value, Me.Range("L5:M204").Value, 2, 0) End If Else MyCell = False End If Exit Sub NotAvailable: If Err = 1004 Then Range("B4,H4").Select Selection.ClearContents Range("H4").Select MsgBox "الرقم المطلوب غير موجود في قائمة العملاء من فضلك تأكد من الرقم الصحيح واعد المحاولة", , "إدخال خاطئ" Else Resume End If End Sub

شكراً اخي العزيز سوف اقوم بشرح بعض المعادلات وإنتظر منك التعقيب

اعتقد ان منتديات الاكسل في منتدي اوفيسنا فيها المطلوب

شكراً اخواني الكرام علي جهدكم الجميل لكن يا اخ اريد شرح للكومبوبوكس اللي انت عملته ولك جزيل الشكر

ايضا اريد ان اعرف هل هناك دالة تكتب امام بيانات كل طالب راسب في مادة او اثر( الطالب فلان راسب في المادة الفلانية) وكيف نفعل إذا كانت هناك نهايات صغري مختلفة لكل مادة علي حدي

السادة مشرفي واعضاء المنتدي المحترمين عملت برنامج بالإكسل به صفحتان (كشف درجات - والشهادة) كل ما علي مدخل البيانات فعله هو إدخال (رقم الجلوس -اسم الطالب-درجة كل مادة) في صفحة كشف الدرجات. اما إذا اراد ان يستخرج شهادة لطالب فيذهب إلي صفحة الشهادة ويكتب(رقم الجلوس) فقط. ثم تظهر شهادة الطالب لكن إذا افترضنا ان كنترول احدي الكليات يقوم برفع درجات الطلبة ( مثلا 6 درجات ) حتي ينجح الطالب اي انه الطالب الذي يحصلي علي 18 من 50 يجعله البرنامج تلقائيا 25 مع الاشارة الا انه مرفوع في خلية اخري وشكراًتحميل البرنامج