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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ...نسخة محسنة من البرنامج SEWER.rar

وعليكم السلام في مثل هذه الحالات نستخدم دالة Dlookup للسهولة TestCOMP.rar

السلام عليكم مشاركه مع الاستاذ @عمر ضاحى جزاه الله خيرا ببساطه قمت باضافه البيانات المطلوبه للكمبو ثم استدعائها وتعلمت بساطتها من اخى واستاذى ووالدى العزيز خالد جزاه الله عنى كل خير Private Sub Text74_AfterUpdate() Combo76 = Me.Text74.Column(1) Text82 = Me.Text74.Column(2) End Sub بالتوفيق Test.mdb

هل هذا ما تريد ؟ برجاء اذا كان هذا ما تريد اختيار افضل اجابه ^_^ لشرح ما تم فى حدث بعد التحديث للكمبوبوكس اضفت هذا الكود Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("companies", dbOpenDynaset) With rst .FindFirst Criteria:="[م]=" & Text74 If Not .NoMatch Then Combo76 = ![الرقم الضريبي] Text82 = ![العنوان] End If .Close End With Set rst = Nothing db.Close Set db = Nothing وتم التعديل على مصدر بيانات الكمبوبوكس لاحضار رقم المعرف وتم اخفائه عن طريق جعل مساحته 0 وباقى المساحه للسماء الشركات (طبعا تم تعديل عدد الاعمدة الى 2) نصيحه لك (مهمه جدا جدا) حاول الا تجعل اسماء الحقول فى الجداول بالعربي ^_^ Test_S7.mdb

وعليكم السلام ورحمة الله وبركاته ... اعمل مربع نص وسمه مثلا Text7 ثم في حدث عند عداد الوقت للنموذج ضع هذا الكود ... I = I + 1 Me.Text7 = I & "%" If I = 100 Then Me.TimerInterval = 0 ثم اصنع زر وضع في حدثه .... Me.TimerInterval = 100 جرب واعلمنا بالنتيجة ؟؟؟؟

في مصدر بيانات مربع النص ضع هذا =DSum("[Odb_Qty]";"[Odb_PlaningMonthe_ForCost_ProdactionSUM]";"[Odb_Type] Like 'برميل'") وغير لبقية مربعات النص جالون كرتون بالمناسبة هذه الاداة مفيدة جدددددددددددددددددددددددددددا وشكرا لصانعها وبارك فيه

وعليكم السلام لاخفاء الصور واظهارها في التقرير ضع الكود في Details...on Formatting جرب التعديل مثال الصور والتقرير.rar

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

الصورة هذه ليس فيها ما يدل على المادة ... اين اسم المادة في الصورة ؟؟؟ وبعدين تبغا التصميم مثل الصورة ... من اين احضر لك التصميم هذا لانها صورة ... وانا لست مصمم فوتوشوب للاسف 😁😁😁😁

بعد اذن الجميع وهذه فكره اخرى بسيطه كنت وجدتها على النت واضفتها عندي Bar.accdb

هل هذ الصورة المطلوبة .....

وعليكم السلام ورحمة الله وبركاته إذا كانت الحواشي كثيرة، اجعل خيار الترقيم (مستمر) وستجد فرقاً هائلاً في السرعة ولا تجعله (إعادة ترقيم كل صفحة) وعندما تنتهي من العمل على المستند اجعله (إعادة ترقيم كل صفحة) أو أي شيء تريده

وعليكم السلام ورحمة الله وبركاته كل خطوط روايات مجمع الملك فهد الثمانية يمكن فيها عمل ذلك من خلال البحث والاستبدال؛ لأن لها خطاً واحداً فقط، أما مصحف المدينة الإصدار الأول ومصحف المدينة الإصدار الثاني فتحتاج أن تكتب ماكرو؛ لأن عدد خطوطها على عدد صفحات القرآن الكريم؛ أي 604. بإذن الله تعالى هذه الخاصية ستكون في إضافة البيان في الإصدار القادم؛ حيث أعدت برمجة خاصية القرآن الكريم من الصفر وأضفت لها كل الروايات الموجودة على مجمع الملك فهد وكذلك مصحف المدينة الإصدار الأول ومصحف المدينة الإصدار الثاني، وخصصت نافذة كاملة لإجراء العمليات على أي رواية أو خط من حيث تغيير التغميق والإمالة واللون والتمييز والحجم والنسخ والحذف والإخفاء والإظهار.

جميعا بإذن الله

جميعا بإذن الله

شكرا ا/محمد كود حضرتك تمام المشكلة كانت فى اصدار الاوفيس اللى كنت شغال عليه لا يدعم دالة MAXIFS جزاكم الله كل الخير وجعل كل ما تقدمونه من مساعدات فى ميزان حسناتكم

يمكنك استعمال هذه المعادلة في الخلية H4 مع سحبها لأسفل =IF(IF(MOD(ROW(),3)=1,$H$1,IF(MOD(ROW(),3)=2,$H$2,$H$3))<>500,0,F4+G4) وتعني لو باقي قسمة رقم الصف الحالي على3 يساوي 1 يستعمل الخلية h1 ولو الباقي 2 يستعمل h2 وهكذا بالتوفيق

مازال المطلوب غير واضح لي بصورة كافية في الصف السابع مثلا بعد نهاية 3 صفوف هل الشرط يكون مرتبط ب H4 ام ماذا؟

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

ماشاء الله تبارك الله @مبرمج سابق كود مختصر شكرا لك على المشاركة

يمكنك استعمال هذه المعادلة في الخلية E44 للحصول على القروش =IF(A44>=E43,0,100)+A44-E43 وهذه المعادلة في F44 للحصول على الجنيهات =B44-IF(A44>=E43,0,1)-F43 بالتوفيق

جميعا بإذن الله

مع التحية والتقدير للاستاذ محمد البرناوي على الحل الرائع ومن باب تعدد الحلول ولكوني من المدرسة القديمة ومن انصار استخدام مربعات النص لاختصار الاكواد فاني سوف اضع طريقة ليست منافسة للكود الرائع لاستاذنا الفاضل ولكن حل على طريقة الطيبين في البداية استخدمنا مربع نص غير منضم اسميته tx3 وقيمته تساوي Me.tx3 = tx3 & "'" & Curr_Grp.Column(0) & "'," ثم في زر الامر لفتح التقرير وضعنا الامر Dim k, w As String k = tx3 w = "st_mstr.Curr_Grp IN (" & Left(k, Len(k) - 1) & ")" DoCmd.OpenReport "r_1", acViewPreview, , w والنتيجة في الصورة تحياتي

جرب استعمال هذا السطر Private Sub comboBox1_Change() TextBox1.Value = Evaluate("=MAXIFS(Sheet2!A:A,Sheet2!C:C,""" & ComboBox1.Value & """)+1") End Sub باستعمال maxifs تقريبا تعمل في اوفيس 2013 وما بعده ويمكن استعمال هذا السطر لنسخ الأوفيس القديمة TextBox1.Value = Evaluate("=MAX(IF(""" & ComboBox1.Value & """=(Sheet2!C$2:C$100),(Sheet2!A$2:A$100)+1,1))") بالتوفيق

هذا الأمر تكرر كثيرا يمكنك الاستفادة من هذه المواضيع بالتوفيق

جزاك الله كل خير الدكتور جمال راجح ولكن البرنامج لا يفتح معى نهائياً وتظهر معى هذه الرسائل

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

بسم الله الرحمن الرحيم هذا ملف به كود لتوزيع طلاب المدارس على الفصول .. اكثر من رائع لسهولته وسرعته لانه يعمل بالمصفوفات صاحب هذا الكود هو المبدع ياسر خليل .. جزاه الله عنا كل خير وبارك في كل واحد يخلص في عمله من اجل رحمة الله تعالى تكوين فصول للمحترم ياســـــــــــــــــــر خليل.rar Option Explicit Sub ClassesListsUsingArrays() 'Author : YasserKhalil 'Release : 30 - 06 - 2017 '------------------------ Dim ws As Worksheet Dim sh As Worksheet Dim arr As Variant Dim temp As Variant Dim i As Long Dim j As Long Dim p As Long Dim n As Long Dim str As String 'لمنع اهتزاز الشاشه Application.ScreenUpdating = False 'متغير اسم ورقه المصدر Set ws = Sheets("بيانات الطلبة") 'متغير اسم ورقه الهدف Set sh = Sheets("فصول") 'مسح بيانات قائمه الفصل sh.Range("B8:F43,H8:L43").ClearContents 'مدى صفوف قائمه الفصل وان تكون عدم مخفيه sh.Rows("8:43").Hidden = False 'خليه القائمه المنسدله لاسماء الفصول str = sh.Range("L1").Value 'مدى صفحة المصدر arr = ws.Range("A7:W" & ws.Range("A" & Rows.Count).End(xlUp).Row).Value ' يقوم بتعيين أبعاد المصفوفة (مصفوفة النتائج) 'لتكون بنفس أبعاد مصفوفة البيانات من حيث عدد الصفوف وعدد الأعمدة ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'مطابقة القيمة الموجودة في العمود رقم 22 (الذي يحتوي على رقم الفصل) 'مع الشرط في الخلية L1 For i = 1 To UBound(arr, 1) 'متغير رقم عمود الفصل If arr(i, 22) = str Then 'يزيد المتغير P بمقدار واحد p = p + 1 For j = 1 To UBound(arr, 2) temp(p, j) = arr(i, j) Next j 'هذا السطر الذي يتعامل مع القيمة كتاريخ temp(p, 7) = CLng(arr(i, 7)) 'تم وضع رقم تسلسلي للنتائج حسب قيمة المتغير temp(p, j - 1) = p End If Next i 'عند حدوث خطأ انتقل الى الخطوه التاليه On Error Resume Next n = WorksheetFunction.Round(p / 2, 0) 'الرقم 23 الخاص بالمسلسل 'رقم عمود موجود بالمصفوفه 'ولايوجد به بيانات sh.Range("B8").Resize(n, 5).Value = Application.Index(temp, Evaluate("row(1:" & n & ")"), Array(23, 5, 15, 7, 16)) 'الاسم / الديانه/ تاريخ الميلاد / القيد sh.Range("H8").Resize(n, 5).Value = Application.Index(temp, Evaluate("row(" & n + 1 & ":" & p + 1 & ")"), Array(23, 5, 15, 7, 16)) For i = 43 To 8 Step -1 If sh.Cells(i, 2).Value = "" Then sh.Rows(i & ":43").Hidden = True Next i ' اعاده الشاشه كما كانت Application.ScreenUpdating = True End Sub هذا هو تحفة الاكواد للنابغه ياسر خليل

خطوط ولا اروع هديه طيبه ان شاء الله ستجعل صوره القائمه غايه في الروعه خط.rar ========== رابط لخطوط غايه في الجمال والروعه https://up.top4top.net/downloadf-3206k2ma1-rar.html

أقترح نقل الموضوع في المنتدى المفتوح لتعم الفائدة للجميع

اللغة العربية غنية جداً بالمفردات التي لها نفس الحروف ولكن التشكيل هو الذي يفرق بينها فكيف للآلة أن تميز بين كل هذه الكلمات واللغات واللهجات؟؟!! أعتقد أن هذا الموضوع مثل موضوع تحويل النص العربي إلى صوت حتى الآن ليس له حل

اعذرني أخي يوسف ما دلالة الرقم 8 في معادلتك؟؟ وإلى اي شيء يعود؟ عزيزى الغالى ماس كل قطة كبيرة معها 7 قطط صغيرة يبقى عددهم 8 قطط تمام إذاً اسمح لي بتغيير المعادلة هكذا =(4*8*7*7*7)+(2*7) حتى يتمكن ضعاف التركيز مثلي من تتبع الأمر ههههههههه

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

اعذرني أخي يوسف ما دلالة الرقم 8 في معادلتك؟؟ وإلى اي شيء يعود؟

شكرا لك أخي مجدي لغز جميل أنا حليته من الآخر بهذه المعادلة =((4*7*7)+28)*7*7+14 وياريت كل واحد يقول لنا المعادلة اللي وصل للحل بيها

يوجد كود أخي الكريم لحذف التشكيل أما وضعه فلا أعتقد

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