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

جرب هذا الملف لا لزوم لهذه الكمية من الداتا يكفي 10 -- 15 صف لاختبار الكود Option Explicit Sub get_names() Dim N As Worksheet, D As Worksheet Dim Dic As Object, Ky, arr Dim i%, X%, m%: m = 3 Set N = Sheets("names") Set D = Sheets("Data") D.Range("c3").CurrentRegion.Clear Set Dic = CreateObject("Scripting.Dictionary") For i = 2 To 12 Step 2 X = 2 Do Until N.Cells(X, i) = vbNullString If Not Dic.Exists(N.Cells(X, i).Value) Then Dic(N.Cells(X, i).Value) = N.Cells(X, i).Address Else Dic(N.Cells(X, i).Value) = Dic(N.Cells(X, i).Value) & "*" & N.Cells(X, i).Address End If X = X + 1 Loop Next i For Each Ky In Dic.keys D.Range("D" & m) = Ky arr = Split(Dic(Ky), "*") D.Range("E" & m).Resize(, UBound(arr) + 1) = arr D.Range("C" & m) = UBound(arr) + 1 m = m + 1 Next With D.Range("C3").CurrentRegion.SpecialCells(2) .Borders.LineStyle = 1 .Font.Size = 16: .Font.Bold = True .InsertIndent 1 .Interior.ColorIndex = 35 End With Set Dic = Nothing End Sub الملف مرفق Com_1975.xlsm

الخلايا المدمجة ثؤثر على عمل اي ماكرو لذلك تم ازالة تالخلايا المدمجة من الصف خيث يوحد رقم السنة في اي صفحة حدد السنة التي تريد من الخلية R1 واضغط الزر Hid rows ولاطهار المخفي اضغط Show rows الملف مرفق من جديد Muneef_1.xlsm

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

تفضل اخي الكريم Private Sub Command24_Click() On Error GoTo Error_ErrorZ If Len(Me.Text20 & "") = 0 Or Len(Me.Text22 & "") = 0 Then MsgBox "ادخل الاسم وتاريخ الميلاد" Exit Sub Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[Emply].[name]= '" & Me.Text20 & "'" myCriteria = myCriteria & " And " myCriteria = myCriteria & "[Emply].[datN] =#" & Format(Me.Text22.Value, "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True xx = Me.RecordsetClone.RecordCount If xx = 0 Then MsgBox "لا توجد بيانات" End If End If Error_ErrorZ: End Sub FrEmpl.rar تحياتي

تصميم شريط ريبون احترافي في الاكسيس يتم اضافه شريط ريبون الي البرامج المصممه بالاكسيس لاعطائها شكل احترافي مبسط لسهوله الاستخدام من قبل المستخدم النهائي للبرنامج ليسهل عليه البحث علي الادوات داخل البرنامج في اصدار اوفيس 2003 كان من السهل تصميم شريط ادوات يشبه شكل الريبون بشكل مبسط لانه كان بنظام قوائم منسدله مبسطه لكن بدايه من اصدار اوفيس 2007 تطور شكل الريبون ليعطي شكل مصور بالقوائم بشكل احترافي و تم تعديل طريقه تصميمه ليكون بناء علي نموذج بلغه xml لغه xml هي لغه تنتمي للغه HTML و هي شبيه بها في قواعد كتابه اللغه الي حد كبير و هي اختصار لـ eXtendable Markup Language و هي لغة الترميز القابلة للتوسع . XML صُمّمت لتخزين و نقل البيانات يمكن استخدامها في تصميم بعض البرامج للاندرويد او تصميم المواقع و غيرها دعنا الان نبدا في تصميم شريط ريبون جديد لمشاهده المقال بالكامل قم بزياره موقع المحاسب العربي https://www.acc-arab.com/2020/05/blog-post_92.html في البدايه نحتاج الي اضافه جدولين جدول لحفظ كود xml و جدول لحفظ الصور المصغره التي نريد وضعها علي الشريط ( يمكن ان هذه الصور في ملف مستقل خارج قاعده البيانات الا ان هذا الامر قد يؤثر ببعض المشاكل عند محاوله نقل ملف قاعده البيانات من جهاز الي اخر ) سنقوم بانشاء الجدول الاول جدول حفظ كود xml و سنقوم بحفظه باسم USysRibbons id AutoNumber RibbonName Text RibbonXml Memo او Long Text حيث ان RibbonName يمثل اسم شريط الريبون RibbonXml يمثل مكان حفظ كود xml و تم وضعه هذا الحقل Memo او Long Text حتي يتناسب مع الاكود التي تزيد عن 255 حرف حيث ان short text او text اقصي قدره استعابيه لها في الاكسيس 255 حرف يعد اسم جدول USysRibbons من جدول النظام و بمجرد حفظها لن تظهر بشكل افتراضي و يجب اظهار جداول النظام حتي نستطيع التحكم بها و اذا اردنا ان يكون شريط الريبون مصور و الصور داخل قاعده البيانات سنقوم باضافه جدول باسم tblImagesRibbons idImage AutoNumber imageRibbon Attachment حيث ان imageRibbon من النوع "Attachment" و ذلك لحفظ الصور داخل القاعده البياناتيفضل ان تكون صيغه هذه الصور من النوع ico لتكون متناسقه مع شريط الريبون الان دعنا نتعرف علي كود xml و طريقه كتابه هذا الكود ليتناسب مع الاكسيس نبدا بكتابه معرف التالي <customui loadimage="fncLoadImage" onload="fncRibbon" xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startfromscratch="true"> <tabs> <!-- نص الكود هنا --> </tabs> </ribbon> </customui> و نلاحظ التشابه الكبير في بين لغه xml و لغه html و طريقه صياغه الاوامر البرمجيه هذا الوسم يتوافق مع اصدار اوفيس 2010 فيما فوق نحتاج طبعا الي بعض الخبره البسيطه في قواعد كتابه لغات xml او لغه html لنتمكن من كتابه هذا الكود نقوم باضافه الوسم <tab id="MyTab1" label="اسم القائمه"> </tab> و ذلك بعد الوسم tabs في كل مره نريد اضافه قائمه جديده و لاضافه مجموعه جديده داخل القائمه نستخدم الوسم group و يكون بالصيغه التاليه <group id="MyGroup1" label="اسم المجموعه"> </group> و لاضافه الازرار داخل الجروب نستخدم الوسم button <button id="bt1" image="1.ico" label="الاسم الظاهر للزر" onaction="fncOnAction" size="large"></button> و نلاحظ ان المعامل id يكون لاعطاء اسم برمجي عند استدعاء هذا الزر برمجيا و يختلف هذا المعامل عن معامل label فهو للاسم الظاهر للمستخدم النهائي بينما الخاصيه image تستخدم لاضافه صوره علي هذا الزر و المعامل onAction يستخدم لحجز متغر في الكود البرمجي عند استدعاء الزر البرمجي او عند الضغط علي هذا الزر يتم اعطاء ارقام او اسماء لكل زر بحيث لا يتكرر اي اسم حيث انه في حاله تكرر اي اسم سيتوقف كود xml و لن يظهر شريط الريبون في التصميم <customui loadimage="fncLoadImage" onload="fncRibbon" xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startfromscratch="true"> <tabs> <tab id="MyTab1" label="الاعدادات"> <group id="MyGroup0" label="اعدادات"> <button id="bt00" image="00.ico" label="اعدادات النسخ الاحتياطي" onaction="fncOnAction" size="large"> </button></group> </tab> </tabs> </ribbon> </customui> يتم تخزين جميع الصور في جدول الصور الذي سبق و ان قمنا بتصميمه tblImagesRibbons نحتاج في هذا العمل لاضافه مكتبه برمجيه التي تسهل علي الاكسيس استدعاء الصور من الجداول و يمكن ان نستخدم المكتبه البرمجيه Microsoft office 16.0 object library حيث يمثل الرقم 16 لرقم اصدار الاوفيس و بالتالي سيختلف من اصدار الي اصدار اخر و في حاله عدم عثورنا علي هذه المكتبه البرمجيه يمكن البحث عنها داخل ملفات النظام و هي موجوده ضمن الملف MSO.DLL نقوم باضافه داله برمجيه لتشغيل ازار شريط القوائم و نستخدم الامر البرمجي Select Case و ذلك للمرور علي كافه ازار التشغيل في الشريط ففي حاله الضغط علي زر يقوم هذا الكود بتحديد الزر و تشغيل الكود الذي يخص هذا الامر Public Sub fncOnAction(control As IRibbonControl) Select Case control.Id Case "bt0" MsgBox "مرحبا" Case "bt1" MsgBox "22222222" Case Else MsgBox "عفوا لا تمتلك صلاحيه الوصل " & control.Id, vbInformation, "انتبه" End Select End Sub يمكن استخدام الداله dlookup لاستخراج الصور من الجدول لاضافتها في الشريط يجب تشغيل xml بمجرد تشغيل قاعده البيانات و اذا قمنا باي تعديل علي هذا الكود لن يظهر تاثير هذا التاثير الا عند اعاده فتح ملف قاعده البيانات من جديد لمشاهده المقال بالكامل قم بزياره موقع المحاسب العربي https://www.acc-arab.com/2020/05/blog-post_92.html

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

الاخوة الاساتذة الاحباء هذا الكود لمن يحتاج الالوان بالاكسيل احترامى الالوان.xlsm

احسنت جزاك الله خير

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

وعليكم السلام اخى @tiger wanted هل هذا ما تريد ؟ Database11.accdb

أخي بلال انظر التعديل حسب فهمي من السؤال حيث يعمل زر تاكيد في صفحة مفتوحة من صفحات (الصفحة1، الصفحة2 ، الصفحة أو اضافة صفحات اخرى أو اعادة تسمية صفحات ملاحضة: في كل صفحة تسمية عدد اثنان من مربعات Text2 و Text4 إجباري بتوفيق،،،، المستخدمين.accdb

جرب هذا لعله يفي الغرض New Microsoft Excel Worksheet.xlsx

تم التعديل كمكا تريد (التكرار حسب الأعمدة )صفحة Salim من هذا الملف مع الاجتفاظ بالماكرو السابق في ضفحة Data Option Explicit Sub get_names_by_col() Dim N As Worksheet, SA As Worksheet Dim Dic As Object, Ky, arr, kyb Dim i%, X%, m%: m = 5 Dim t%: t = 3 Set N = Sheets("names") Set SA = Sheets("Salim") SA.Range("C5").CurrentRegion.Clear Set Dic = CreateObject("Scripting.Dictionary") For i = 2 To 12 Step 2 X = 2 Do Until N.Cells(X, i) = vbNullString If Not Dic.Exists(N.Cells(X, i).Value) Then Dic(N.Cells(X, i).Value) = _ N.Cells(X, i).Address Else Dic(N.Cells(X, i).Value) = _ Dic(N.Cells(X, i).Value) & _ "*" & N.Cells(X, i).Address End If X = X + 1 Loop If Dic.Count Then For Each Ky In Dic.keys SA.Cells(m, t) = Ky arr = Split(Dic(Ky), "*") SA.Cells(m, t + 1) = UBound(arr) + 1 m = m + 1 Next Ky End If t = t + 2: m = 5 Dic.RemoveAll Next i With SA.Range("C5").CurrentRegion.SpecialCells(2) .Borders.LineStyle = 1 .Font.Size = 16: .Font.Bold = True .InsertIndent 1 .Interior.ColorIndex = 35 End With Set Dic = Nothing Set N = Nothing: Set SA = Nothing End Sub الملف الجديد مرفق Com_1975_by_columns.xlsm

شكر لك

خير ان شاء الله فقط اجري التعديلات وارسل لك الملف

بالنسبة للبحث تم عمل باليوزر فورم تيكست بوكس يتم كتابه والبحث كما موضح بالصوره اعلاه وليست بوكس يظهر به النتائج بالاضافة انه يمكن الضغط على اى من نتائج البحث يتم التعبئة التلقائية بالتيكست بوكسات الخاصة بهم لامكانية الحذف والتعديل فى نفس الوقت اظن هذا طلبك مع ملاحظة الكتابة داخل تيكست بوكس باللغة العربية userform4 (2).xlsm

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

اذا لدينا مجموعة من البيانات و ليكن عددها 394 قراءة مثلا و نود تصنيفها الي مجموعات و مطلوب استنتاج عدد المجموعات و مجال كل منها فان احدى الطرق المفيدة هي طريقة two to the k rule طريقة 2 أس K وفيها نبحث عن أكبر K ممكنة بحيث تكون 2 أس K أقل من عدد القراءات ففي حالة مثالنا هنا 2 أس 8 = 256 (أقل من عدد السجلات الذي هو 394) مقبول و 2 أس 9 = 512 (أكبر من عدد السجلات الذي هو 394) يرفض اذا تكون K = 8 أي أن لدينا 8 مجموعات و الان نريد معرفة نطاق هذه المجموعات الثمانية Interval = (H-L)/ K أي محسب الفرق بين أكبر قراءة و أضغر قراءة ثم نقسمه علي K مثلا لو كانت اكبر قراءة = 900 و اضغر قراءة = 50 فيكون سعة المجموعة = 106.25 على الاقل ، فيتم التقريب الي 110 و بذلك تكون المجموعات الثمانية كما يلي: From To 1 50 160 2 160 270 3 270 380 4 380 490 5 490 600 6 600 710 7 710 820 8 820 930 Clustering-Intervals rule.xlsx

تفضل استاذي العزيز التعديل ملاحظة : الفرق بين العمل السابق والاخير هو في فهم الشروط فالاول يقبل التغيير لشخص مكمل بدرسين ثم اصبح مكمل بدرس والاخير لا يقبل هذا التغيير لانه لم تتغير حالة الطالب كان مكمل وبقي مكمل والامر لك بالاختيار Results-100.rar

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

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

تفضل المفروض هذا طلبك Book1 (2).xlsm

اخي الكريم جزاكح الله خير على البرنامج والمهعود الجبار اواجه مشكله عند فتح الجهاز على وندوز 10 64 http://مركز الخليج

تم تعديل المعادلات قوائم (1).xls

بالمعادلات لا تستطيع ضبط هذا الشيء فقط بواسطة كود Vba للمزيد هذا الملف 1-يمنع الكتابة في العامودين الاول والثاني ابتداء من ال صف 14 لعدم مسح لبيانات عن طريق الخطأ 2- كل ما عليك ان تملاُ ما تريد من بيانات في الأعمدة 3 /4 /5 (ابتداء من الصف 14 ونزولاً) وبعد ذلك تضغظ الزر Run عندها يقوم الاكسل بادراح التاريخ المناسب و يثبته 3-عدة مرات انصح لعدم استعمال الخلايا المدمحة لحسن سير المعادلات الجدول R5 : G2 STOCK_Salim.xlsm

تم عمل زر بحث للبحث باول حرف يتم عمل تصفيه اتمنى يكون ساعدك شكرا Private Sub TextBox1_Change() If TextBox1 <> "" Then lr = Range("B" & Rows.Count).End(xlUp).Row ActiveSheet.Range("$A$2:$F$" & lr).AutoFilter field:=2, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*" Else Range("A2").AutoFilter End If End Sub userform4 (1).xlsm

جرب هذا الملف اكتب فقط رقم الشهر الذي تريد في الخلية F1 في اي صفحة والتاريخ يتجدث تلقائياً واذا كان اسم الشهر (C1) يساوي اسم الصفحة يتم اخفاء الصفوف التي تريد Muneef.xlsm

السلام عليكم مشاركة مغ استاذ محمد أبوعبدالله Root111.rar

تفضل الملف بدون حماية 123.xlsx

شاكر جدا لاهتمام حضراتكم وسلمت يدك استاذ احمد بدره Set ws = Sheets("قائمة")

ارجو ان يكون هذا هو المطلوب mark.rar تحياتي

تفضل اخي الكريم FrEmpl.rar تحياتي

وفيك بارك الله اخى واستاذى محمد وجزاك الله كل خير 💐

السلام عليكم هذا البرنامج من اعداد فريق عمل مايكروسوفت اكسس فيه فوائد عديدة وخاصة الاكواد المستعملة اتمنى لكم الفائدة ملاحظة -- هذا البرنامج موجود مع اكسس 2016 الطلاب مايكروسوفت.accdb

تسلم الأنامل أستاذنا الفاضل إبراهيم الحداد وبعد إذنك حضرتك تم التعديل في تاريخ الإحالة والنوع حيث أن تاريخ الإحالة قبل تاريخ الميلاد بيوم id 2.xlsm

أتوجه بالشكر لأستاذنا الفاضل إبراهيم الحداد على مروره وبعد إذنه تم التعديل على كوده وأصبح يعمل بصورة ممتازة قوائم (1).xls

تفضل لا تنسى تغيير مسار الملف على حسب مكان التخزين Sub Test() Dim sr As Workbook Set sr = Workbooks.Open("C:\Users\alhagag\Downloads\touati\touati1.xlsx", True, True) ThisWorkbook.Activate Worksheets("sheet1").Range("B2:E200").Value = sr.Worksheets("sheet1").Range("a2:d200").Value sr.Close End Sub touati.rar

تم التعديل على البرنامج كونه تالف تقريباً برنامج المخازن.xlsm

جرب هذا الملف ehab .xlsx

تفضل Book1.xlsm

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته بعد أن وهبني الله الكود المناسب للطباعة السريعة على يد أخي الحبيب وأستاذي الجليل ياسر خليل أبو البراء وبعد وضع كود لتشفير المعادلات للحفاظ عليها من أي خلل لأستاذي الكريم إسلام رجب، فإنني أتشرف بعرض البرنامج عليكم بشكله النهائي حيث نقوم بالخلية J1 بورقة تقرير حركة الصنف بوضع رقم الصنف الأول الذي نرغب طباعته وبالخلية K1 نضع رقم آخر صنف نودّ طباعته ثم نضغط على زر طباعة سريعة وذلك بعد تحديد تاريخي بداية ونهاية التقرير... ليقوم بشكل تلقائي بالتصفية حسب كل صنف ثم الطباعة. "هذا من فضل ربّي" أرجو الله أن يكون عملاً نافعاً نبتغي به وجه الله تعالى ، لأننا فقراء إلى الله تعالى، والله في عون العبد ما كان العبد في عون أخيه تقبلوا تحياتي العطرة والسلام عليكم ورحمة الله وبركاته. برنامج المخازن.rar

السلام عليكم و رحمة الله و بركاته اخواني الاحباب بالمنتدي اقدم لكم برنامج يصلح لحسابات المخازن ( مخازن شكائر " أجوله " ) و ارجو من الله يفيدكم و أسألكم يا اخواني الدعاء لي بظهر الغيب و أسألكم أن تدعوا لي ان يفرج الله عني ما انا فيه و ان يرزقني الرزق الواسع الحلال الطيب المبارك و الله المستعان. و السلام عليكم و رحمة الله و بركاته BAGS --.rar

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

هذا مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات ( أو لعدة قواعد بيانات ) بناء على مهمة مجدولة زمنيا - اضافة الى عمل اصلاح للملف و ضغط لعمل جدولة زمنية للنسخ الاحتياطي , اضغط على زر "Set Up Automated Backup" في أعلى اليمن تجد Edit Database to Back Up: اضغط على زر "Browse لتحديد الملف - ثم اضغط على زر "Add to List لاضافة هذا الملف المختار الى لائحة المهام المجدولة - أكتب مسار ملف النسخة الاحتياطيه ( و الذي يجب أن يكون مجلده منشأ سابقا و الا فان النسخ لن يتم ) ثم اضغط على زر Save Directory الموجود في المنتصف لحفظ المسار - حدد زمن و توقيت النسخ المجدول و ذلك في الحقل الأسفل من النموذج ثم اضغط على زر Save &Time لحفظ التوقيت يمكنك الضغط مرتين على أي ملف موجود في هذه اللائحة لتعديل توقيته أو حذفه من اللائحة لتنفيذ النسخ أبق نموذج "Open Backup Timer" مفتوحا و بدون تصغير AutoBkUp2K.rar