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

بالنسبة للحقل test تقوم الدالة الشرطية بأختبار قيمة الحقل bage ..اذا كانت قيمته =0 تعطينا الرقم 3 الذي يشير الى ثيمة زر خيار (الذين ليس عليهم ديون)...واذا كانت قيمة bage اكبر من 0 فأن الدالة الشرطية تعطينا الرقم 2 الذي يشير الى زر خيار (الذين عليهم دين) الان احتجنا الى حقل اخر test1 والتي تقوم الدالة الشرطية بأعطاءنا القيمة 1 للجميع والتي تساوي قيمة زر خيار (اختيار الجميع) سواء كانت قيمة الحقل bage يساوي 0 او اكبر من 0

وعليكم السلام نعم توجد من اهما استخدام اجهزة ups power supply هذه الاجهزة تتراوح اسعارها مابين 180 ريالى الى عدة الاف وتعطي مهلة لحفظ عملك واغلاق الجهاز بامان كل جهاز يعطيك فترة زمنية للاغلاق الامن اضافة الى تنظيم التيار الداخل للجهاز وبالتالي يحمي مكونات الجهاز من اي ارتفاع او انخفاض مفاجئ وبناء على حجم البطارية تعطي مهلة للاغلاق مابين 15 دقيقة الى 60 دقيقة وهناك ملحقات اخرى ترسل تنبية خلال 3 ثواني من انقطاع التيار للمسؤل عن طريق الايميل او الرسائل الخاص بعض هذه الملحقات تستطيع التعامل مع جوال واحد والبعض اكثر من ذلك ولكن لابد ايضا ان يكون المودم مشبوك في جهاز الباور سبلاي الامر الاخر لابد من حفظ نسخة احتياطية بشكل دوري اخونا شايب 🌹

مش حالك ياعمنا العود عش رجبا ترى عجبا

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

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

تفضل للارسال.xlsm

تفضل نسبة التحصيل العلمي للطلاب.xlsb

الوصف من موقع مايكروسوفت عام السمة الحد الأقصى إجمالي حجم قاعدة بيانات Access (سواء.accdb أو .mdb)، بما في ذلك جميع عناصر قاعدة البيانات والبيانات 2 غيغابايت، ناقص المساحة اللازمة لعناصر النظام. ملاحظة: يمكنك التغلب على قيود هذا الحجم عن طريق إنشاء ارتباط إلى الجداول في قواعد بيانات Access الأخرى. يمكنك إنشاء ارتباط إلى الجداول الموجودة في ملفات قواعد بيانات متعددة، يمكن أن يصل حجم كل منها إلى 2 غيغابايت. تلميح: للحصول على مزيد من المعلومات حول تقليل حجم قاعدة البيانات، اطلع على المساعدة على منع مشاكل ملفات قاعدة البيانات وإصلاحها باستخدام "الضغط والإصلاح". العدد الإجمالي للعناصر في قاعدة بيانات 32,768 عدد الوحدات النمطية (بما في ذلك النماذج والتقارير التي تم تعيين خاصية HasModule لها إلى True) 1000 عدد الأحرف في اسم العنصر 64 عدد الأحرف في كلمة المرور 14 ملاحظة: بالنسبة لـ Access 2007 يكون 20 حرفاً. عدد الأحرف في اسم المستخدم أو اسم المجموعة 20 عدد المستخدمين المتزامنين 255 الجدول السمة الحد الأقصى عدد الأحرف في اسم الجدول 64 عدد الأحرف في اسم الحقل 64 عدد الحقول في الجدول 255 عدد الجداول المفتوحة 2048؛ بما في ذلك الجداول المرتبطة والجداول التي يتم فتحها داخلياً بواسطة Access حجم الجدول 2 غيغابايت ناقص المساحة اللازمة لعناصر النظام عدد الأحرف في حقل "نص مختصر" ملاحظة: بدءاً من Access 2013، تسمى الحقول "النصية" حقول "نص مختصر". 255 عدد الأحرف في حقل "نص طويل" ملاحظة: بدءاً من Access 2013، تسمى حقول "المذكرة" حقول "نص طويل". 65535 عند إدخال البيانات من خلال واجهة المستخدم؛ 1 غيغابايت من مساحة تخزين الأحرف عند إدخال البيانات برمجيا حجم حقل "عنصر OLE" 1 غيغابايت عدد الفهارس في الجدول 32؛ بما في ذلك الفهارس التي تم إنشاؤها داخلياً للاحتفاظ بعلاقات الجداول، والفهارس ذات الحقول المفردة والمركبة. عدد الحقول في فهرس أو مفتاح أساسي 10 عدد الأحرف في رسالة التحقق من الصحة 255 عدد الأحرف في قاعدة التحقق من الصحة بما في ذلك علامات التنقيط وعوامل التشغيل 2,048 عدد الأحرف في وصف الجدول أو الحقل 255 عدد الأحرف في أحد السجلات (باستثناء حقول "نص طويل" و"عنصر OLE") عند تعيين خاصية الحقول UnicodeCompression إلى نعم 4,000 عدد الأحرف في إعداد خاصية الحقل 255 الاستعلام السمة الحد الأقصى عدد العلاقات المفروضة 32 لكل جدول ناقص عدد الفهارس الموجودة في الجدول للحقول أو مجموعات الحقول التي لا تشتمل عليها العلاقات* عدد الجداول في الاستعلام 32* عدد الصلات في الاستعلام 16* عدد الحقول في مجموعة السجلات 255 حجم مجموعة السجلات 1 غيغابايت الحد الأقصى للفرز 255 حرفاً في حقلٍ واحد أو أكثر عدد مستويات الاستعلامات المتداخلة 50* عدد الأحرف في خليةٍ ما في شبكة تصميم الاستعلام 1,024 عدد أحرف المعلمة في استعلام المعلمات 255 عدد عوامل تشغيل AND في بند WHERE أو HAVING 99* عدد الأحرف في جملة SQL تقريبا 64000 حرف* *قد تكون القيم القصوى أقل إذا تضمن الاستعلام حقول بحث متعددة القيم (.accdb فقط). النماذج والتقارير السمة الحد الأقصى عدد الأحرف في التسمية 2,048 عدد الأحرف في مربع نص 65,535 عرض النموذج أو التقرير 22,75 in. (57,79 سم) ارتفاع المقطع 22.75 in. (57,79 سم) ارتفاع جميع المقاطع بالإضافة إلى رؤوس المقاطع (في طريقة عرض التصميم) 200 in. (508 سم) عدد مستويات التقارير أو النماذج المتداخلة 7 عدد الحقول أو التعبيرات التي يمكنك فرز أو جمعها في تقرير 10 عدد الرؤوس والتذييلات في التقرير رأس/تزر واحد للتقرير؛ رأس/تصفحة واحدة؛ 10 رؤوس/تاشيارات للمجموعة عدد الصفحات المطبوعة في تقرير 65,536 عدد عناصر التحكم والمقاطع التي يمكنك إضافتها طوال مدة بقاء النموذج أو التقرير 754 عدد الأحرف في جملة SQL التي تعمل كخاصية Recordsource أو Rowsource لنموذج أو تقرير أو عنصر تحكم. 32,750 الماكرو السمة الحد الأقصى عدد الإجراءات في الماكرو 999 عدد الأحرف في الشرط 255 عدد الأحرف في التعليق 255 عدد الأحرف في وسيطة الإجراء 255 السمة الحد الأقصى عدد العناصر في مشروع Access (.adp) 32,768 عدد الوحدات النمطية (بما في ذلك النماذج والتقارير التي تم تعيين خاصية HasModule لها إلى True) 1000 عدد الأحرف في اسم العنصر 64 عدد الأعمدة في الجدول 250 (Microsoft SQL Server 6.5) 1024 (Microsoft SQL Server 7.0 و2000 و2005) النماذج والتقارير السمة الحد الأقصى عدد الأحرف في التسمية 2,048 عدد الأحرف في مربع نص 65,535 عرض النموذج أو التقرير 22 إن. (55.87 سم) ارتفاع المقطع 22 إن. (55.87 سم) ارتفاع جميع المقاطع بالإضافة إلى رؤوس المقاطع (في طريقة عرض التصميم) 200 دولار. (508 سم) عدد مستويات التقارير أو النماذج المتداخلة 7 عدد الحقول أو التعبيرات التي يمكنك فرز أو جمعها في تقرير 10 عدد الرؤوس والتذييلات في التقرير رأس/تزر واحد للتقرير؛ رأس/تصفحة واحدة؛ 10 رؤوس/تاشيارات للمجموعة عدد الصفحات المطبوعة في تقرير 65,536 عدد عناصر التحكم والمقاطع التي يمكن إضافتها طوال مدة بقاء النموذج أو التقرير 754 عدد الأحرف في جملة SQL التي تعمل كخاصية Recordsource أو Rowsource لنموذج أو تقرير أو عنصر تحكم (كل من .accdb و.adp) 32,750 الماكرو السمة الحد الأقصى عدد الإجراءات في الماكرو 999 عدد الأحرف في الشرط 255 عدد الأحرف في التعليق 255 عدد الأحرف في وسيطة الإجراء 255 اخيرا اخونا الفاضل شايب ينصح بعدم اخذ مواصفات الشركة كامر مسلم به لكون هذه الحدود القصوى للوصول لها يتطلب مواصفات خاصة فعلى سبيل المثال تشير الموصفات الى ان عدد المستخدمين المتزامنين يصل الى 255 مستخدم بينما العدد الاقصى للمستخدمين لمجلد المشاركة لاصدارات نظام التشغيل ويندوز فقط 20 مستخدم وللصول الى عدد اكبر نحتاج الى استخدان برنامج تشغيل ويندوز سيرفر ولا نكتفي بذلك فلابد ان يكون لدينا عتاد قوي للشبكة وطريقة الاتصال وهنا لا نكتفي بالسرعة وانما بسعة النطاق لتجنب ما يسمى بعنق الزجاجة الحقيقة ان الاخ شايب يوصى من لدية قاعدة بيانات كبيرة التفكير بحلول اخرى منها SQL Server واعتقد انه يوجد العديد من المشاركات التي تشرح هذا الامر اخونا شايب🌹

نقل المسميات حسب الشرط.xlsx

omar elhosseini Count_Color_FormatConditions.xlsm

السلام عليكم ورحمة اللة وبركاته موضوع قديم ولكني عملت هذا الكود لأحد أولادي فأحببت ان يستفيد منه من يحب الفكرة تعتمد علي التحقق من صحة ارقام التاريخ ( من الثاني وحتى السابع، من اليسار ) ولكن بطريقة رقميه بعيدا عن مشاكل فورمات التاريخ اي التأكد من ان الرقم الثاني و الثالث الخاص بسنة الميلاد يقع بين الارقام ( من صفر حتي 99 ) و التأكد من ان الرقم الرابع و الخامس الخاص برقم الشهر يقع بين الارقام ( من 1 حتي 12) و التأكد من ان الرقم السادس و السابع الخاص برقم اليوم يقع بين الارقام ( من 1 حتي 31) ثم التأكد من الرقم الرابع عشر وهو خاص بوزارةالداخلية للتحقق من صحة الرقم القومي يقع بين الارقام ( من 1 حتي 9 ) المرفقات !_Check_National_Number_التحقق من صحة الرقم القوميOffceina.xls

بسم الله الرحمان الرحيم السلام عليكم حركة اليوم كالعادة متعلقة بالجانب الفني و الجمالي لليوزر فورم اقتبست هاته الفكرة من تجليد الفورم في VB6 و VBNET بواسطة أداة Active Skin و وجدة ان هاته الأداة متوفر او متوافقة بالفعل مع VBA لذى بحثت وحاولت الى ان توصلت الى الاتي ا36 شكل (ثيم) مميز يمكنكم استعمالها بسهولة فس برامجكم ندخل الى التنفيذ اولا نحتاج الى تثبيت الأداة ActiveSkin Control ان لم تكن مثبت لديكم ولفعل ذالك اتبع الشرح المصور الاتي بهده الطريقة نكون انتهينا من عملية تثبيت الادات الان ناتي الى اضافة الاداة كاي ادات اخرى الى صندوق الادواة نقوم الان باضافة الاداة الى الفورم وايضا نقوم باضافة ليست بوكس ثم قم بنسخ هذا الكود في الفورم Option Explicit Private No As Double Private FSO As Object, Klasir As Object, Dosya As Object Private SeçilenDosya As String Private Const hWnd As Long = &H0 Private Sub UserForm_Initialize() On Error Resume Next Application.Visible = False With Me .Caption = "UserForm Skin" .Height = 226 .Width = 358 End With With ComboBox1 .Left = 6 .Top = 6 .Height = 18 .Width = 114 End With Call SkinDosyaListele End Sub Private Sub UserForm_Terminate() On Error Resume Next Contrôle1.Empty End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) On Error Resume Next Application.Visible = True End End Sub Private Sub ComboBox1_Change() On Error Resume Next SeçilenDosya = ComboBox1.List(ComboBox1.ListIndex, 1) Me.Caption = ComboBox1 With Contrôle1 .LoadSkin SeçilenDosya .ApplySkin hWnd .ZOrder 1 End With DoEvents End Sub Sub SkinDosyaListele() On Error Resume Next No = 0 Set FSO = VBA.CreateObject("Scripting.FileSystemObject") Dim Pth As String: Pth = ThisWorkbook.Path & "\Skins\" Set Klasir = FSO.GetFolder(Pth) For Each Dosya In Klasir.Files ComboBox1.AddItem Dosya.Name ComboBox1.List(No, 1) = Dosya No = No + 1 Next Dosya End Sub تم ارفاق مثال عملي للموضوع لكي يشتغل عنك المثال قم اولا بتثبيت الادات كما وضحت سابقا ولا تنسى وضع الملف بعد الحفظ مع مجلد Skins في نفس المسار سيضهر لك يوزر فورم به قائمة منسدلة بالشكل العادي قم باختيار أي اسم من القائمة ولاحظ مايحدث المجلد Skins يحوى السناكات بعض الصور المأخوذة للفورم بعد التجليد اهدي هذه الحركة الى اخي وصديقي ضاحي الغريب الذي عمل لي الشرح المصور اعلاه جازاه الله عنا كل الخير ارجو ان يفيدكم الموضوع وينال اعجابكم تحياتي للجميع اخوكم في الله شوقي ربيع الشرح المصور.rar ACTSKIN4 الاداة.rar مثال عملي عن تجليد الفورم.rar

السلام عليكم أخي الحبيب ياسر خليل مازلت أشكرك علي الجهد المتميز ، وفقك الله وأعانك أحببت أشارك ولو بشيء بسيط هذا الكود لترتيب أوراق العمل تصاعديا أو تنازليا طبعا جربته ، تمام وبصراحة لم أتحقق إن كان موجود بمكتبتنا الرائعة أم لا أضيف عليك هذا الجهد (التحقق من أنه موجود أم لا بالمكتبة) مرفق ملف شرح Sub Sort_Worksheets() Dim i As Integer, j As Integer, Ansr As VbMsgBoxResult Ansr = MsgBox("تريد ترتيب الشيتات تصاعديا ؟" & Chr(10) & "بضغط (لا) سيتم الترتيب تنازليا", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets") For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If Ansr = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) ElseIf Ansr = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If Next j Next i End Sub هذا الكود ضمن أكثر من مائة كود علي الرابط http://www.teachexcel.com/free-excel-macros/ أنا فقط عدلت في الشكل ونص السؤال بالعربية بدلا من الإنجليزية ومن هذا الرابط أيضا يمكن إقتباس فكرة ضم الأكواد في مجموعات أو عناوين كبيرة شرح الكود ترتيب أسماء الورقات.rar

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

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

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

السلام عليكم استبدل اكواد الملف بهذه الاكواد Option Explicit Sub Hidden2() Dim Cl As Range Application.ScreenUpdating = False For Each Cl In Range("A14:A213") If Cl = "" Then Cl.EntireRow.Hidden = True End If Next Cl [kh_Row2] = "اضهار جميع الصفوف الفارغة" Application.ScreenUpdating = True End Sub Sub UnHidden2() Dim Cl As Range Application.ScreenUpdating = False For Each Cl In Range("A14:A213") If Cl.EntireRow.Hidden = True Then Cl.EntireRow.Hidden = False End If Next Cl [kh_Row2] = "اخفاء الصفوف الفارغة " Application.ScreenUpdating = True End Sub Sub Rows() ActiveSheet.Unprotect If [kh_Row2] = "اضهار جميع الصفوف الفارغة" Then UnHidden2 Else Hidden2 End Sub تحياتي