نجوم المشاركات

السلام عليكم أولا لو كنت تستعمل VB6 فستجد نفسك و كأنك تعمل على الأكسس لتشابه الكبير بينهما أو ربما تطابق كبير في الأكواد. ثانيا : بالنسبة لــ VB.NET يوجد تشابه مع أكواد VBA لكن ليس بدرجة كبيرة. المهم من لديه خلفية على VBA يجد سهولة كبيرة في تعلم VB.NET

السلام عليكم مع الإكسيل هذا ممكن جدا... لهذا يجب معرفة الدوال المناسبة والتنسيقات المستعملة في عملية الحساب... والله أعلم بن علية حاجي

الملف المرفق فيه تعديل على المعادلة و النتيجة صحيحة ان شاء الله (Ctrl+Shift+Enter) =IF(N(O5)=0,O5,SUM(IF(ISNUMBER($O$5:$O$129)*(O5<$O$5:$O$129),1/COUNTIF($O$5:$O$129,$O$5:$O$129)))+1) الملف ترتيب4 Salim.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، لم أجد أي خطأ في كود التصفية وهو يعمل بصورة جيدة، وإذا كان هناك أي خطأ لم أنتبه له في عمل الكود فأرجو أن تدلني على مكان الخطأ... بالنسبة إلى إخفاء أسهم التصفية فلم أجد لذلك غير حيلة واحدة تتمثل في : نسخ الصف 3 (صف عناوين الجدول) ولصقه أعلى أو أسفل هذا الصف فيصبح للجدول صفين للعناوين (الصف 3 و الصف 4) ونخفي الصف الرابع كله... ثم نقوم بالتعديل على الكود وجعله يقوم بالتصفية انطلاقا من الصف الرابع بدلا من الصف الثالث مع تغيير النطاق المعني بالتصفية A3:T453 بالنطاق A4:T454 (يعني إزاحته إلى الأسفل بصف واحد)... كل هذا تم عمله في الملف المرفق... بن علية حاجي Book2.rar

السلام عليكم سؤالك كان يدل على انك تريد احصائية ، لهذا السبب اخذت طريق استعلام التوحيد ، ولكن بما ان السؤال اصبح واضح ، فالاجابة اقرب يجب ان يكون عندك بيانات صحيحة في الجدول علشان تجرب الاستعلام T المرفق ، واللي هو مصدر بيانات للتقرير تقرير_إحصائية_مفصلة ، واللي عملت تعديل على قسم التبريد (والباقي عليك ) ، في خطأ في استعلاماتك ، فجرب هذا الاستعلام SELECT Sum(IIf([Wrship]="مسيحى" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_مسيحى, Sum(IIf([Wrship]="مسلم" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_مسلم, Sum(IIf([Case]="مستجد" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_مستجد, Sum(IIf([Case]="منقول" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_منقول, Sum(IIf([Case]="باق" And [SumTotal]>=[A] And ([Trshh]="تبريد" Or IsNull([Trshh])),1,0)) AS T_باق, Sum(IIf([Wrship]="مسيحى" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_مسيحى, Sum(IIf([Wrship]="مسلم" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_مسلم, Sum(IIf([Case]="مستجد" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_مستجد, Sum(IIf([Case]="منقول" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_منقول, Sum(IIf([Case]="باق" And [SumTotal]<[B] And ([Trshh]="زخرفة" Or IsNull([Trshh])),1,0)) AS Z_باق, Sum(IIf([Wrship]="مسيحى" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_مسيحى, Sum(IIf([Wrship]="مسلم" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_مسلم, Sum(IIf([Case]="مستجد" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_مستجد, Sum(IIf([Case]="منقول" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_منقول, Sum(IIf([Case]="باق" And [SumTotal]>=[B] And [SumTotal]<[A] And ([Trshh]="ملابس" Or IsNull([Trshh])),1,0)) AS M_باق FROM Tbl_Basic, tbl_student; جعفر 853.1.db1.mdb.zip

السلام عليكم ورحمة الله الكود الاول لاستحداث اوراق عمل جديدة حسب اسماء الفصول Sub AddNewSheets() Dim ws As Worksheet Dim ShList As Range Dim C As Range With Worksheets("رصد الدرجات") Set ShList = .Range("E6:E" & .Range("E" & .Rows.Count).End(xlUp).Row) End With On Error Resume Next For Each C In ShList If Len(Trim(C.Value)) > 0 Then If Len(Worksheets(C.Value).Name) = 0 Then Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = C.Value End If End If Next Call TrnsCls End Sub اما الكود الثانى هو مخصص لجلب بيانات الفصول Sub TrnsCls() Dim ws As Worksheet, Sh As Worksheet Dim R As Long Dim p As Long Application.ScreenUpdating = False p = 5 Set ws = Sheets("رصد الدرجات") For Each Sh In Worksheets For R = 6 To 204 If Trim(ws.Cells(R, 5).Value) = Trim(Sh.Name) Then p = p + 1 Sh.Range(Sh.Cells(p, 1), Sh.Cells(p, 104)).Value = ws.Range(ws.Cells(R, 1), ws.Cells(R, 104)).Value Sh.Cells(p, 1)=p-5 End If Next p = 5 Next Application.ScreenUpdating = True End Sub يخصص زر للكود الاول فقط لان الثانى يتم استدعاؤه من خلال الكود الاول التنسيق عليك ياصديقى هذا و بالله التوفيق

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

استاذي صالح حمادي بصراحه انا غيرت حسب المسميات عندي وكل شي تمام باقي معي شي واحد هو اريد كود بانه اذا اسماء الجداول وعددها لم يساوي ما انسخه لا يقبل اتمنا ان اجد لها حل

نعم بالضبط لذلك قمنا باعطاء الطريقة الثانية اي تغيرنا مصدر النموذج بلا شيء

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

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

تسلم اخي صالح حمادي نعم هو هذا ما اريده ولكن ينقصه بعض التعديل كي يتناسب مع ما اريد بحاول اطبقه واذا لم انجح برجع اليك تحياتي لك

السلام عليكم استخدم هذا الكود أخي: Me.comb.RowSource = "" Dim i As Integer For i = 0 To Me.tab.Pages.Count - 1 Me.comb.AddItem Me.tab.Pages(i).Name Next i و هذا مثال بالمرفق tabcontrol.rar

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

الشكر لكم جميعا سؤالي من اين اتت كلمة مكرر علما انها غير موجوده بالصيغه ان تكرمتم

اخي الكريم يبدو انك تستخدم طريقة تسجيل البرنامج بعد التأكد من مطابقة رقم الهارد او الحماية الثلاثية التي تم التطرق إليها في هذا المنتدى والتي تعتمد على مطابقة السيريال باحدى قطع الجهاز أليس كذلك؟ على العموم تلك الطرق تتطلب وجود كود يتحقق من سيريال القطعة في الجهاز ومطابقتها بسيريال البرنامج فان تم التطابق يعمل البرنامج والا فلن يعمل .. طيب انت عملت اختصار للبرنامج وقمت بتشغيله من الجهاز الفرعي ماذا سيحصل؟ طبعا كود التحقق سوف يقوم بالتحقق من سيرال القطع في الجهاز الفرعي وليس الرئيسي ويقارنه بسيريال البرنامج وسوف يجده غير مطابق وهذه هي مشكلتك طيب ماهو الحل؟ الحل من وجهة نظري هو عمل واجهة اخرى لنفس البرنامج تعمل على الجهاز الفرعي ويكون لها رقم تسجيل خاص بها (اي نسخة من البرنامج الرئيسي لكنها لاتحتوي على جداول البيانات فقط جدول تسجيل النسخة وهذه النسخة ترتبط بالجداول الرئيسية الموجودة على الجهاز الرئيسي عن طريق نموذج ربط) بذلك تضمن عدم استخدام البرنامج على اكثر من جهاز فرعي بالاضافة الى الجهاز الرئيسي هنالك نموذج جاهز للربط يمكنك استعماله في هذا الموضوع https://www.officena.net/ib/topic/60383-اعادة-ربط-قاعدة-الجداول-برمجيا/?tab=comments#comment-505210 وانا شخصيا مازلت استخدم هذه الواجهة في عملية الربط https://www.officena.net/ib/topic/60383-اعادة-ربط-قاعدة-الجداول-برمجيا/?do=findComment&comment=505210 ملاحظة: ليس عليك القيام بهذا الاجراء "Split Database and Linked Table Manager" كل ماعليك فعله هو اخذ نسخة من البرنامج الرئيسي ولنسميه البرنامج الفرعي مثلا وامسح الجداول منه لكن يجب عليك الابقاء على جدول تسجيل النسخة وتضمين نموذج الربط في البرنامج حيث يتم فتحه بعد نجاح التسجيل طبعا نموذج الربط فيه جدول ايضاً يقوم بحفظ مسار قاعدة الجداول لكي لا يتم المطالبة بتحديد مكان الجداول في كل مرة يتم فيها فتح البرنامج لذلك سوف نحتاج الى الابقاء على جدولين فقط هما جدول تسجيل نسخة البرنامج وجدول نموذج الربط اما باقي الجداول فقم بحذفها من البرنامج الفرعي هنا يجب عليك القيام بتعديل بسيط على كود الربط (في حال قمت باستعمال طريقتي في المرفق على الرابط الثاني) التعديل هو اضافة اسماء الجدولين الذين نريد الابقاء عليهم وهما جدول تسجيل نسخة البرنامج وجدول نموذج الربط كما هو موضح البصورة التالية .. الصورة توضح لك 3 جداول مؤشر عليها داخل الدائرة انت لاتحتاج الى الجدول الثالث طبعاً فبامكانك حذفه كما يجب عليك تغيير النموذج background بالنموذج الذي تريده ان يفتح بعد اكتمال عملية الربط ارجو ان اكون قد وفقت في شرح الطريقة تحياتي

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

السلام عليكم ورحمة الله لا تترك اى مسافات بين هامش الخلية و بين علامة "=" اعد كتابة المعادله و ستصل الى النتيجة المرجوة باذن الله