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

بداية يجب إرجاع الفضل لإهله الاستاذ / سليم حاصبيا - الاستاذ ابراهيم الحداد فى مساعدتهم الدائمة وخاصة فى اعداد هذا البرنامج والذى اتمنى ان يحوز رضاكم كتلميذ من تلامذة المنتدى أمنيتى تعريفى بعيوبه من جانب اساتذتى واسم المستخدم/ محمد فتحى / وكلمة المرور 1970 ومحرر الاكواد / 6101970 1562309003_.rar

ارفق مرفقك فكرة بسيطة وجميلة 🙂 Private Sub Datee_AfterUpdate() Me.Day = Format(Me.Datee, " dddd ") End Sub جعفر

وعليكم السلام بعد اذن استاذ جعفر تفضل 345.accdb

وعليكم السلام 🙂 جعفر

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

بما انك لم تقم برفع ملف موضح فيه المطلوب بكل دقة ... فسيتم الرد عليك أيضاً بدون ملف , فيمكنك مشاهدة هذا الفيديو لتلبية طلبك

المعادلة المطلوبة في هذه الصورة

=IF(ورقة1!G1325=0,ورقة1!E1325,"")

السلام عليكم اتفضل اخى هل هذا ماتريد؟ Requery(1).accdb

تم تقليل الحجم حجمه العادي 2.9 ميجا حجمه المضغوط 0.9 ميجا قمت بتحويل بعض المعادلات العادية الي معادلات صفيف وحمايتها من العبث file1.rar

افعلي ما تريدن شرط ان يتضمن الــ Array اسماء الشيتات ان كان باللفة الغربية او الأجنبية مثلاً ("Sheet1","الرقم 1", "سليم", "الرقم 3")=Array

اضيفي في الــ Array كل الشيتات التي تريدينها باي لغة تريدين arr = Array("S_1", "S_2", "S_3")

لا اكتب اي كود يتضمن اللغة الغربية (لحسن نسخه ولصقه) لذلك قمت بتغيير اسماء الصفحات التي يعمل عليها الكود الى اللغة الأجنبية (الصفحات الاخرى تم اخفائها وليس حذفها) Option Explicit Sub Get_Data() Dim arr As Variant, itm Dim x As Boolean Dim sh As Worksheet, My_sheet As Worksheet Dim ro%, Col%, m%, k%, i% Dim F_rg As Range arr = Array("S_1", "S_2", "S_3") m = 2 Main.Range("A1").CurrentRegion.Offset(1).Clear For Each itm In arr Set sh = Sheets(itm) ro = sh.Cells(Rows.Count, 1).End(3).Row Col = sh.Cells(1, Columns.Count).End(1).Column For i = 2 To ro Main.Cells(m, 2).Resize(, 2).Value = _ sh.Cells(i, 1).Resize(, 2).Value Set F_rg = sh.Cells(i, 2).Resize(, Col - 1). _ Find("*", after:=sh.Cells(i, 3)) If Not F_rg Is Nothing And F_rg.Column <= Col Then With Main.Cells(m, 4) .Value = F_rg .Offset(, 1) = sh.Name .Offset(, 2) = sh.Cells(1, F_rg.Column) End With End If m = m + 1 Next i Next itm If m > 2 Then With Main.Range("a2:f" & m) .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .InsertIndent 1 .Interior.ColorIndex = 35 .Columns(1) = Evaluate("row(1:" & m - 2 & ")") With .Rows(m - 1) .Cells(1) = vbNullString .Cells(5) = "Sum" .Cells(4).Formula = _ "=SUM(D2:D" & m - 1 & ")" End With End With End If End Sub Yara.xlsm

ماشاء الله تبارك الله الله يبارك فيك وفي علمك ويجعله صدقة جارية لك

نعم استاذي جعفر ولكني لم اذكرها لكون الحذف في العادة يكون بشكل دائما للجداول المؤقتة بمجرد الانتهاء من تنفيذ الامر او قبل تنفيذ الامر التالي

بارك الله فيك اخي الكريم شكر وتقدير و احترام من اخيك

وعليكم السلام 🙂 =Weekday(me.DateField) جعفر

والسبب هو : يقوم الاكسس بعمل فلترة/تصفية للسجلات حسب المعيار ، ثم يقوم بحساب السجلات الخاصة بالحقل المطلوب ، بينما في الواقع انت لا تريد حساب عدد السجلات التي في الجدول لحقل معين ، يهذا المعيار ، إنما انت تريد حساب عدد السجلات 🙂 ولجعل الدالة تعمل بطريقة اسرع ، فيجب ان يكون الحقل myID مفهرس (يجب ان تكون جميع الحقول التي تستعملها كمعيار مفهرسة ، سواء معيار في الكود او في استعلام) ، ثم ضغط واصلاح ، ثم جرب السرعة 🙂 جعفر

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

الحمدلله 🙂 هنا اطلب منك ، وحتى يستفيد الآخرين ، ان تضع الكود كاملا 🙂 اولا: يعتمد على حاجة المبرمج ، ولا فرق بينهما للبرنامج ، ولكن لا يستطيع "المبرمج العادي" ان يضيف اي شيء لصيغة mde و accde ، كما تم نقاشه هنا: نعم هذا صحيح ، والوضع لايزال مستمر في صيغة accde كذلك ، والسبب وبكل بساطة ، اننا لا نستطيع ان نفتح النموذج في وضع التصميم في تلك الصيغ ، ناهيك عن اضافة الكود 🙂 ثانيا: "المفروض" لا يوجد اختلاف ، اذا تمت الاعدادات بطريقة صحيحة ، واذا عندك مشكله ، فرجاء فتح موضوع جديد وترفق فيه تقريرك حتى نرى المشكلة فيه ، وللعلم ، فالمنتدى مليء بمواضيع مشابهة ، فالبحث في المنتدى سيقتصر عليك الكثير ، ثالثا: رجاء البحث عن هذه المواضيع كذلك ، رابعا: يجب ان يكون ردك مفهموما كفايه وفيه تفاصيل ، فهنا المبرمج يخاطب مبرمج ، حتى استطيع ان ارد عليك ، وطبعا ردك يجب ان يكون في ذلك الموضوع وليس هنا 🙂 جعفر

عمل ممتاز أستاذ محمد جعله الله فى ميزان حسناتك

يا ولد يا فنان

وعليكم السلام انا معلم ويهمني هذا الموضوع لذلك قمت بتصميم برنامج يوزع المعلمين علي قاعات الامتحان وسميته برنامج الملاحظة علي الامتحانات مع مراعاة ان كل معلم يدخل كل قاعة مرة واحدة بقدر الامكان تستطيع وضع مشرف لكل مادة بحيث يتم استيعادة من الملاحظة تستطيع وضع الاحتياط تستطيع وضع لجنة لجمع وترتيب الاوراق تستطيع وضع لجنة نظام تستطيع اعفاء بعض المعلمين من الملاحظة... الخ الخ ثم في النهاية طباعة الجداول المختلفة لا اطيل عليك فهناك ميزات اخري في اليرنامج تفضل جربه لعله يناسبك 1076052452_5.5.xlsm

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("n2:p1000000")) Is Nothing Then 'ÇÐÇ Êã ÊÍÏíÏ Çí ÎáíÉ Ýí ÇáãÏì ÇáãÐßæÑ äÝÏ ÇáÓØÑ ÇáÊÇáí Target.Offset(, 1).Select 'ÇÒÇÍÉ ãÞÏÇÑ 1 ãä ÇáÎáíÉ ÇáãÍÏÏÉ End If End Sub يمكنك اضافة اعمدة اخرى باستعمال Elseifمبيعات كانليمون جاردن 8.xlsm

نعم هذا صحيح ، والوضع لايزال مستمر في صيغة accde كذلك ، والسبب وبكل بساطة ، اننا لا نستطيع ان نفتح النموذج في وضع التصميم في تلك الصيغ ، ناهيك عن اضافة الكود 🙂 ولكن ، المرفق الذي اشرت اليه في الرابط اعلاه ، يعمل برنامج خارجي بصيغة mdb او accdb ، وفيه هذا النموذج الجديد المعمول برمجيا ، ومن ثم نستطيع فتحه من برنامجنا mde اذا اردنا !! والشيء اللازم معرفته هو ، ان عمل نموذج برمجيا يكون بطيء بعض الشيء ، ولما يكمل تكوينه ويتم حفظه ، يكون فتحه بنفس سرعة النموذج العادي 🙂 جعفر

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR($G3*VLOOKUP($A3,'نسب العمولة'!$D$3:$G$800,2,0),"") Test1.xlsx

وعليكم السلام 🙂 اذا فهمت قصدك ، فأنت تريد ان تعمل كود "عند الحدث" ، مثل عند تحميل النموذج ، او عند النقر على الزر ، في كود عمل النموذج 🙂 انزل المرفق من هذا الرابط ، فهو يقوم بعمل: قاعدة بيانات جديدة ، ثم يعمل فيها جداول ، ونموذجين ، وفي كل نموذج ازرار وحدث تحت كل زر (وهذا الذي تبحث عنه) ، ومع انه هناك عدة طرق لعمل هذه الكائنات ، ولكني استعملت الاسهل في الفهم والتطبيق 🙂 انظر في الوحدات النمطية مباشرة ، فأسمائها تدل على محتواها : . جعفر

تفضل بإستخدام هذه المعادلة وعليك بإستكمال هذا على نفس الطريقة =IFERROR(VLOOKUP(C$8,Sheet2!$G$2:$I$380,2,0),"") 1a.xlsx

وعليكم السلام-عليك بإستخدام هذا الكود Sub run() Range("a65536").End(xlUp).Select End Sub الذهاب الى اخر صف مكتوب.xlsm

حافظه شيكات.xlsm

السلام عليكم ورحمة الله وبركاته =Translate(A4,"ar","en") names.xlsm translate.xlsm

هذا أمر طبيعى لكثرة المعادلات وكثرة الصفحات بالملف !! على الرغم من كل هذا فتم تقليل مساحة البرنامج كثيراً فأصبح الأن 3.26 ميجا file.rar

وعليكم السلام-حاول إضافة هذا السطر بالكود بعد السطر الذى تحدث به المشكلة Sheets("Sheet1").Protect UserInterfaceOnly:=True جلب الاسماء من عدة شيتات مع عدم التكرار1.xlsm

تصحيج للكود المصنف1.xlsm