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

تــم التعديل وعلى حد علمى هذا هو المطلوب بالضبط =IF(AND(F$5>$C6,F$5<$B6),$D6,"") 124.xlsx

برنامج شئون الطلاب للمرحلة الابتدائية ... تصميم ابو مينا الاسيوطى مكونات البرنامج .. ( املا البيانات اولا فى صفحة البداية ) ادخال البيانات من الصفوف الاول الى السادس ( مع فرز الاسماء بنين اولا – او بنات اولا ) .. حساب السن من خلال الرقم القومى المخرجات .. اوراق كثيرة جدا ... مثل .. قوائم الفصول مفتوحة الاعداد كشوف التقويمات الشهرية للصفوف الاول الى الثالث .. كشوف درجات المواد الاساسية والانشطة للصفوف الرابع الى السادس دفاتر 5 سلوك وتجميع الغياب ( كل ما عليك هو ادخال تاريخ بداية كل شهر ( صفحة البداية ) والبرنامج يقفل ايان الجمع بنفسة وسجل واطبع ) كشوف تجميع الغياب (كل افرق ) ... كشف 41 مستجدين كل الفرق لعمل سجل بدون تعب وعناء كشوف المحولين من والى المدرسة وحالات الدمج لكل صف على حدة--كشف محولين من والى المدرسة وحالات الدمج مجمعة كشوف المصروفات والرسوم المدرسية كل صف على حدة كشوف تسليم الكتب...افادة لكل تلاميذ المدرسة..كارنية مدرسى لكل تلاميذ المدرسة احصائيات لكل الفصول من حيث .. ( النوع – الديانة – حالة القيد – احصائية عامة لكل الصفوف ) 1518097032_.rar

جرب استعمال هذ الكود في حدث عند تغيير محتوى الخلية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 And Target.Column = 1 Then If Target.Value <> "" Then If Not Sheets("الارشيف").Range("a:a").Find("*" & Target & "*") Is Nothing Then If MsgBox("هذا الكود موجود. هل تريد إدخاله؟", 292, "انتبه") = vbNo Then Target.Select: Target.Value = "" End If: End If: End If: End If End Sub ولا تنس حفظ الملف بامتداد يدعم الكود مثل xlsb بالتوفيق

هذا البرنامج مجاني عن روح والدي رحمه الله اذا هناك ارقام سرية استعمل 12345 ادارة الجمعيات الخيرية مع قروض ام ليث.accdb

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

وعليكم السلام انسخ هذا السبروتين لديك ..عند تشغيل التقرير كل مرة يأخذ قيمه من الاستعلام الجدولي قم بتسمية حقول التقرير بأسماء مثل Field1,Field2 الخ ...لان اسم الحقل في الكود هو Field واجعلها مثلا سبعة حقول Dim ReportLabel(7) As String Sub CreateReportQuery() On Error GoTo Err_CreateQuery Dim db As DAO.Database Dim rs As DAO.Recordset Dim qdf As DAO.QueryDef Dim fld As DAO.Field Dim indexx As Integer Dim FieldList As String Dim strSQL As String Dim i As Integer Set db = CurrentDb Set qdf = db.QueryDefs("qryReductionByPhysician_Crosstab") indexx = 0 For Each fld In qdf.Fields If fld.Type >= 1 And fld.Type <= 8 Or fld.Type = 10 Then FieldList = FieldList & "[" & fld.Name & "] as Field" & indexx & ", " ReportLabel(indexx) = fld.Name End If ' MsgBox Label(indexx) indexx = indexx + 1 Next fld For i = indexx To 7 FieldList = FieldList & "null as Field" & i & "," Next i FieldList = Left(FieldList, Len(FieldList) - 1) strSQL = "Select " & FieldList & " From qryReductionByPhysician_Crosstab" db.QueryDefs.Delete "qryCrossTabReport" Set qdf = db.CreateQueryDef("qryCrossTabReport", strSQL) Exit_CreateQuery: Exit Sub Err_CreateQuery: If Err.Number = 3265 Then '*** if the error is the query is missing Resume Next '*** then skip the delete line and resume on the next line Else MsgBox Err.Description '*** write out the error and exit the sub Resume Exit_CreateQuery End If End Sub ثم قم بأستدعائه من حدث عند فتح التقرير وضع الكود التالي Dim i As Integer For i = 0 To 7 ReportLabel(i) = "" Next i Call CreateReportQuery في راس التقرير قم بوضع مربعات نص ..مثلا سبعة كعدد الحقول واجعل مصدر السجلات =filllabel(0) ,=filllabel(1) وهكذا ثم انسخ الكود التالي Function FillLabel(LabelNumber As Integer) As String FillLabel = Nz(ReportLabel(LabelNumber), "") End Function بالتوفيق ان شاء الله

جزاكم الله خيرا اساتذتنا الكرام ، حفظكم الله في الدنيا و الاخرة واسكنكم فسيح جناته.

الشكر لهذا المنتدى العظيم لولاه ما كنت اعرف شئ فى تصميم اى برامج شكر شكر شكر لكم دمتم فى حفظ الله وامنه

تم عمل المطلوب حرفيا بغض النظر عن عدم الرد على الاستيضاح السابق بالتوفيق Store4 - Copy.xlsm

السلام عليكم ورحمة الله الملف نفسه تم إرساله على الخاص... Classeur1_1.xlsx

تم نسخ نفس المعادلة من الملف والتعديل عليها واعطت النتائج الصحيحة جزاك الله خير اخي علي

ما شاء الله جهود مشكورة ربنا يجازيك خير العطاء سعادة

المشكلة فى الارقام بتظهر ملخبطة

شرح الكود حلقتين تكراريتين n1 & n2 واحدة للعمود الاول n1 طولها 10 وثانية طولها 3 للعمود الثاني n2 تتكرر داخل الأولى والأرقام لتجديد الصف الذي يكتب فيه

حاولت أ/ محمد ولم استطيع تعديله ... ممكن حتى شرح للكود واحاول اجرب ثانى تحياتى لحضرتك

جزاك الله خيرا سيدي الكريم محمد صالح

السلام عليكم ورحمة الله وبركاته . الاستاذ / محمد صالح .. طبقت القاعدة بتاعة حضرتك تمام وتسلم ايدك . وتمكنت بسهولة من اضافة بعض الاحرف بقيمها واعطت النتيجة الجميلة التى كنت اتمناها بارك الله فى حضرتك .. الان طريقة حساب الجمل لها طريقتين من حيث القيم .. فقمت بعمل موديل جديد بإسم جديد HOORF-BAST وكتبت فيه القيم الجديدة . وكذلك نموذج HOROOF-BAST وقمت ايضا بتحديد الجدول الجديد الذى يحدث فيه وهو HOROOF-BAST-STOR وحاولت التطبيق لم ينجح فى القاعدتين ولم استطع المعالجة. ياريت حضرتك تساعدنى فى ضبط الجملة البرمجية. القاعدة التى تفضلت علينا بها حضرتك تم تغيير اسماء الكائنات الى جدول HOROOF-STOR النموذج HOROOF-FORM الوحدة النمطية الىHOROOF لسهولة التداول داخل قاعدة البيانات حيث انها قاعدة تشمل العديد من العمليات غير موضوعنا هذا ولكم منا الشكر . ولكم من الله الأجر . MAS_CHARVALمطلوب التعديل.accdb

شكرا لك استاذ محمد صالح لكن لدي اوفيس فرنسي النسخة من حيث المعادلات

بصراحة انا لست مبرمج .. الا ماتعلمته من هذا المنتدى الرائع عملت هذا البرنامج قبل اكثر من سنتين ولم اتحقق منه ... يمكنك الاطلاع عليه فأنا عملته للعملة العراقية ويمكنك تغييره لما تشاء .. البرنامج في بدايته ولم اكمله فهو بحاجة الى تقارير وغيرها ExchangeQ.rar

سلمت الاياد هذا هو المطلوب

تفضل التعديل في حدث بعد التحديث ضع التالي [TexBox1]=Null New.accdb

تسلم ايدك استاذى الحبيب husamwahab تمام جدااااا ربنا يحفظك يارب ويديك الصحة والعافية يارب ويعزك دائما كل الشكر والتقدير وخالص الاحترام من اخيك

اسلام عليكم انظر للروابط اتمنى يكون طلبك تحياتي

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

انظر للمرفق عسى ان ينفعك Database - Copie_Q.accdb

ما شاء الله تبارك الله ... الله ينور عليك أخي @kanory تفكير رائع ...

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

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

أخي الكريم هذا الرمز للانتقال إلى السطر التالي بمعنى <br> في لغة المواقع html تحياتي للجميع

أخي الفاضل safwatscc إذا كان قصدك أنك تريد دالة لجلب اسم اليوم من خلال تاريخ يتم تمريره للدالة بغض النظر عن اللغة الافتراضية للجهاز لأن أكواد الإخوة تظهر اسم اليوم بلغة الجهاز فمثلا لو لغة الجهاز الافتراضية هي العربية سيظهر اسم اليوم السبت مثلا أما إذا كانت الانجليزية فسيظهر satarday ومرفق دالة لمعرفة اسم اليوم من أي تاريخ باللغة العربية بغض النظر عن لغة الجهاز الافتراضية ويمكنها حساب اسم اليوم لأي تاريخ سابق أو لاحق فقط اكتب مثلا =dynm("10/10/2010") لتعرف اسم اليوم لتاريخ 10/10/2010 للعلم يجب أن يكون الشهر أولا ثم اليوم ثم العام في طريقة كتابة التاريخ تحياتي للجميع mas.rar

مشكور يا أخي هذه هوايتي اختصار الأكواد رائع

بعض ما عندكم اخي سالم سلمك الله من كل سوء وبارك فيك ونفع بك أخوك محمد صالح

بارك الله فيك أخي سالم لي تعليق بسيط انه يمكن حذف بعض السطور وإضافة سطر مهم جدا بعد كل عملية نسخ ألا وهو تفريغ الحافظة مما تم نسخه حتى يصبح كود الدالة هكذا Sub active_cell() Selection.Copy Sheets("scc2").Select Range("C5").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub شكرا لك مرة أخرى

وهذا برنامج لمجموعة كبيرة من أكواد الفيجوال بيسك 6 يمكنكم الاستفادة منه أكواد v.6.rar

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

أولا جزى الله الأخ أبو هاجر المصري خير الجزاء على ما قدم واليوم أقدم هدية لكل من يريد تعلم vba الإكسل موقع كامل لهذا الغرض هنـــــا وهذا رابط لترجمته عبر ترجمة جوجل هنــــــــــــــــــــــــــــــــــــا أتمنى أن أكون ساهمت ولو بقدر يسير أخوكم محمد صالح