علي المصري

تفضل المرفق التالي لعله يكون المطلوب Database2.rar

الافضل ان يكون المجموع في التقرير جرب المرفق المشتريات.rar

شكرا استاذ ابو خليل عمل فوق الممتاز

ستجد مطلبك في الرابط التالي http://www.officena.net/ib/index.php?showtopic=55327

myRng هو عبارة المدي في الورقة ورقة1!$A$4:$I$904 لقد قمت بعمل اسم لهذا المدى لسهولة استخدامة أي ان myRng هي اسم للمدى =ورقة1!$A$4:$I$904

شكرا اخي الكريم على الشرح المتقن بارك الله فيك وجعله في ميزان حسناتك

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

قم بعمل النموذج من جديد على كل حقول الجدول ثم احذف ما لا تريده

جرب المرفق التالي AliElmasry.rar

بعد اذنك استاذ أبو خليل أضافة بسيطة من تلميذك لتجنب الرسالة عند عدم اختيار صورة On Error GoTo ErrHandler Dim filename As Variant Dim SourceFile, DestinationFile Dim picturepaht picturepaht = GetOpenFile_CLT("", "اختر صورة :") With picturepaht If picturepaht <> "" Then Me.imgLogo.Picture = picturepaht logo = picturepaht Else MsgBox "No image selected." End If End With SourceFile = logo DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg" FileCopy SourceFile, DestinationFile MsgBox "تم تغيير الشعار " ErrHandler: If Err.Number = 94 Then 'لابقاء الصورة السابقة إذا لم يتم اختيار صورة imgLogo.Picture = CurrentProject.Path & "\" & "shar" & ".jpg" MsgBox "لم يتم تغيير الشعار" End If

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

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

ارجو المعذرة اخي الكريم لقد اكتشفت ااني لابد من اضافة Microsoft Office 15.0 Object Library سؤال هل في كل مرة استخدم فيها البرنامج على جهاز آخر سوف يعطي نفس المشكلة ولابد من اضافة هذه المكتبة لان البرنامج الذي اقوم العمل عليه الان برنامج سوف يستخدمه معلمي المدرسة عندي وانت تعلم ان الكثير من المعلمين لا يعرفون الكثير عن اكسيس فهل من حل شكرا

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

بالنسبة لعدم تغيير تسمية االصفحات الكود الذي استخدمته حضرتك كالتالي Sub Copeir_Data() Dim sh As Worksheet: Set sh = Sheets("data") Dim sh2 As Worksheet: Set sh2 = Sheets("مكافاة الثانوية العامة") Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 sh.Range("A1:AD5").Copy sh2.Range("A" & lr).Select: ActiveSheet.Paste End Sub Sub Copeir_Tebel() Dim sh As Worksheet: Set sh = Sheets("data") Dim sh2 As Worksheet: Set sh2 = Sheets("مكافاة الثانوية العامة") Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 sh2.Range("A8:AD28").Copy If sh2.Range("B" & lr) <> "" Then sh2.Range("A" & lr + 5).Select ActiveSheet.Paste Else MsgBox " ليس هناك تذيل لصفحة السابقة لايمكنك نسخ الجدول" End If End Sub Sub main() Dim MSG, MSG2: MSG = MsgBox("هل تريد نسخ محتوى التذيل المطلوب", vbYesNo) If MSG = vbYes Then Call Copeir_Data MSG2 = MsgBox("هل تريد نسخ الصفوف من 8 الى 28", vbYesNo) If MSG2 = vbYes Then Call Copeir_Tebel Else: End End If Else: End End If End Sub يمكنك التعديل عليه بالطريقة التالية بدلا من كتابة اسم الصفحة الظاهر في تبويب الصفحة نكتب اسم الصفحة الموجود في vba لها مثلا الصفحة Data يقابلها Feuil1 ( بالفرنسية على ما اظن ) أو ( sheet1 ) باللغة الانجليزية وعلى ذلك يكون الكود بالشكل التالي جرب ووغير اسم الصفحة وشوف النتيجة Sub Copeir_Data() Dim sh As Worksheet: Set sh = Feuil1 Dim sh2 As Worksheet: Set sh2 = Feuil2 Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 sh.Range("A1:AD5").Copy sh2.Range("A" & lr).Select: ActiveSheet.Paste End Sub Sub Copeir_Tebel() Dim sh As Worksheet: Set sh = Feuil1 Dim sh2 As Worksheet: Set sh2 = Feuil2 Dim lr As Long: lr = sh2.Cells(sh2.Rows.Count, 1).End(xlUp).Row + 2 sh2.Range("A8:AD28").Copy If sh2.Range("B" & lr) <> "" Then sh2.Range("A" & lr + 5).Select ActiveSheet.Paste Else MsgBox " ليس هناك تذيل لصفحة السابقة لايمكنك نسخ الجدول" End If End Sub Sub main() Dim MSG, MSG2: MSG = MsgBox("هل تريد نسخ محتوى التذيل المطلوب", vbYesNo) If MSG = vbYes Then Call Copeir_Data MSG2 = MsgBox("هل تريد نسخ الصفوف من 8 الى 28", vbYesNo) If MSG2 = vbYes Then Call Copeir_Tebel Else: End End If Else: End End If End Sub شكرا

دالة روعة يا استاذ جمال هتصلح معي في عمل جدول الحصص ان شاء الله سوف اجربها بدلا من vlookup

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

الملف يعمل جيدا

جرب الفكرة التالية SalaryAmount.rar

شكرا استاذ ابو خليل جزاك الله خيرا

أخي الكريم علي المصري، هناك خطأ في معادلة العلاقة بين القياس الدائري والقياس الستيني ولتصحيح الخطأ إما نستبدل 360 بـ 180 أو نستبدل العدد PI بـ 2PI مع ملاحظة أن العدد PI لا يساوي نسبة 22 على 7 (بل يقاربها) لأن العدد PI ليس "ناطقا" أخوك بن علية بارك الله فيك اخي الكريم نعم الخطأ مني جل من لا يسهو لاني كتبتها في عجالة شكرا لك اما بالنسبة للقيمة التقريبية فلها اكثر من شكل وكلها تقريبية وهذا موجود في مواقع الرياضيات وتدرس بهذه القيم طول القوس2.rar

القائمة الثانية اسمها الصحيح الذي كتبته combo2 راجع اسم القائمة جرب التعديل التالي ( مع العلم ان الملف السابق يعمل جيدا على اكسيس 2010 و 2013 ) fllow-up transaction.rar

تفضل اخي الملف بعد التعديل الشرح fllow-up transaction.rar

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

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