كل الانشطه

السلام عليكم ورحمة الله وبركاته ممكن نشوف افكار وتطبيق رواد المنتدى المحترمين لعمل فكرة اللعبة X , O ولكن ولكن ولكن المطلوب ان تكون اللعبة بينك وبين الكمبيوتر يعنى انت تعمل حركة وهو يعمل حركة فى انتظار ابداعاتكم وافكاركم النيرة

اساتذتي الكرام/ السلام عليكم ورحمة الله وبركاته هل هناك حل لإرسال تقرير المرتب لكل موظف عبر الواتساب مرتب الإداريين.xlsm سجلت فيه رقم جوال واحد للتجربة ولسيادتكم جزيل الشكر

طيب ايه رايك نقوم بحذف : Width/Height من الكود نهائيا انا اضفت فى المرفق التالى فكرتين احدهما مفعلة والاخرى ليست مفعلة يمكنك ان تقوم بالتبديل بينهم واختر ما تراه مناسبا استاذ ملاحظة تم دعم بعض الخواص باضافتها لم تكن موجودة ده كود الحل الاول ' قائمة الخصائص المسموح نسخها لكل نوع كنترول '============================= ' الحل الاول Private Function GetAllowedProps(ctrlTypeName As String) As Variant Static propsTextBox As Variant Static propsLabel As Variant Static propsCombo As Variant Static propsCheckBox As Variant Static propsOptionButton As Variant Static propsToggleButton As Variant Static propsListBox As Variant Static propsCommandButton As Variant Static propsSubform As Variant Static propsEmpty As Variant ' Initialize If IsEmpty(propsTextBox) Then propsTextBox = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect") propsLabel = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect") propsCombo = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", "SpecialEffect") ' CheckBox - خصائص محدودة لتجنب التشويه propsCheckBox = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' OptionButton - منفصل لإمكانية التخصيص المستقبلي propsOptionButton = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' ToggleButton - دعم خصائص إضافية propsToggleButton = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle", _ "QuickStyle", "Shape", "BackShade", "BackTint") propsListBox = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", "SpecialEffect") ' CommandButton - WITHOUT Width/Height لتجنب تشويه propsCommandButton = Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "QuickStyle", "Shape", "BackShade", _ "BackTint", "Gradient", "Glow", "Shadow", "SoftEdges", _ "UseTheme", "BackThemeColorIndex", "HoverColor", _ "HoverForeColor", "PressedColor", "PressedForeColor", _ "BorderColor", "BorderStyle", "SpecialEffect") ' Subform propsSubform = Array("BackColor", "BorderColor", "BorderStyle", "SpecialEffect") propsEmpty = Array() End If ' Return المناسب حسب النوع Select Case ctrlTypeName Case "TextBox": GetAllowedProps = propsTextBox Case "Label": GetAllowedProps = propsLabel Case "ComboBox": GetAllowedProps = propsCombo Case "CheckBox": GetAllowedProps = propsCheckBox Case "OptionButton": GetAllowedProps = propsOptionButton Case "ToggleButton": GetAllowedProps = propsToggleButton Case "ListBox": GetAllowedProps = propsListBox Case "CommandButton": GetAllowedProps = propsCommandButton Case "Subform": GetAllowedProps = propsSubform Case Else: GetAllowedProps = propsEmpty End Select End Function ويمكن تعطيله واستخدام كود الحل الثانى Private Function GetAllowedProps(ctrlTypeName As String, Optional excludeList As String = "") As Variant Static propsCache As Object Static isInitialized As Boolean ' Initialize Dictionary If Not isInitialized Then Set propsCache = CreateObject("Scripting.Dictionary") ' TextBox propsCache.Add "TextBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect", "LeftMargin", "TopMargin") ' Label propsCache.Add "Label", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "TextAlign", "BorderColor", "BorderStyle", _ "SpecialEffect") ' ComboBox propsCache.Add "ComboBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", _ "SpecialEffect", "ColumnWidths", "ListWidth") ' CheckBox propsCache.Add "CheckBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' OptionButton propsCache.Add "OptionButton", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle") ' ToggleButton propsCache.Add "ToggleButton", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "SpecialEffect", "BorderStyle", _ "QuickStyle", "Shape", "BackShade", "BackTint", _ "Gradient") ' ListBox propsCache.Add "ListBox", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "BorderColor", "BorderStyle", _ "SpecialEffect", "ColumnWidths") ' CommandButton (WITHOUT Width/Height) propsCache.Add "CommandButton", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "QuickStyle", "Shape", "BackShade", _ "BackTint", "Gradient", "Glow", "Shadow", _ "SoftEdges", "UseTheme", "BackThemeColorIndex", _ "HoverColor", "HoverForeColor", "PressedColor", _ "PressedForeColor", "BorderColor", "BorderStyle", _ "SpecialEffect") ' Subform propsCache.Add "Subform", Array("BackColor", "BorderColor", "BorderStyle", "SpecialEffect") ' TabControl propsCache.Add "TabControl", Array("BackColor", "ForeColor", "FontName", "FontSize", _ "FontWeight", "MultiRow", "TabFixedHeight", _ "TabFixedWidth") isInitialized = True End If ' Get Base Properties Dim baseProps As Variant If propsCache.Exists(ctrlTypeName) Then baseProps = propsCache(ctrlTypeName) Else GetAllowedProps = Array() Exit Function End If If Len(excludeList) > 0 Then baseProps = FilterProperties(baseProps, excludeList) End If GetAllowedProps = baseProps End Function ' دالة مساعدة: حذف خصائص محددة من القائمة Private Function FilterProperties(props As Variant, excludeList As String) As Variant Dim result() As Variant, i As Long, j As Long Dim excludeArr As Variant excludeArr = Split(excludeList, ",") ReDim result(0 To UBound(props)) j = 0 For i = 0 To UBound(props) If Not IsInArray(CStr(props(i)), excludeArr) Then result(j) = props(i) j = j + 1 End If Next If j > 0 Then ReDim Preserve result(0 To j - 1) FilterProperties = result Else FilterProperties = Array() End If End Function Private Function IsInArray(val As String, arr As Variant) As Boolean Dim i As Long For i = LBound(arr) To UBound(arr) If Trim(UCase(arr(i))) = UCase(val) Then IsInArray = True Exit Function End If Next IsInArray = False End Function '============================= Mont_FormsTemplatePart03.zip

معلومة رائعة توفر جهد كثير بارك الله فيك وجعله بميزان حسناتك

بارك الله فيك وجعله بميزان حسناتك

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

وضحت لك هذا الأمر وذلك عن طريق زيادة قيمة خاصية DrawWidth بمعنى تعديل الرقم 1 في السطر التالي Rpt.DrawWidth = 1 وهذا يسقوم بزيادة عرض الحدود أعذرني ولكني لم أفهم قصدك فلو أمكن توضح طلبك بمثال عملي

السلام عليكم لدي ورقة اسمها - طباعة - اريد عند اختيار مكان العمل واختيار الاسم يتم معاينة الطباعة ملف الحجز.xlsb

للعلم ، انا استعمل جميع انواع الذكاء الاصطناعي المجاني ، وخصوصا الذي بواصل معي و لا يتوقف عن الرد بسبب نفاذ حصتي منه اليوم بعد تجاربي ، استعمل ChatGPT 5.2 ، لأنه اذا صدر خطأ في السؤال او بدأ الذكاء الاصطناعي بتوجيهي بطريقة غير التي اريدها ، ببساطة لا اعطيه توجيه جديد ، بل ارجع الى آخر توجيه صحيح ، واستمر من هناك. Copilot لا يملك هذه الخاصية 🙂 هذه الخاصية موجودة في معظم شركات الذكاء الاصطناعي.

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

ممكن تكتب يدوي عادي امسح التاريخ المكتوب يدوي و أكتب التاريخ الجديد

جرب تطبيق الخطوات التالية 1 - أنقر بالزر الأيمن على جزء التنقل 2- من القائمة إختار View By أو عرض بـ (غير متأكد من الترجمة) 3- من القائمة الفرعية حدد Icon أو أيقونة بهذا ستحصل على أكبر حجم لعناصر جزء التنقل

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

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

انا عاملها ١٢٥ لان التكبير إلى ١٥٠ بيخفى ايقونات الديسك توب اعتقد انى لازم القلب الريزليوشن بتاع الشاشة بدل 1900×1080

شكرا لحضرتك استاذ عبدالله

السلام عليكم اليك المعادلة التي تطبق على M2 عدد التكرار .xlsx

أنا لله وانا اليه راجعون رحمه الله وغفر له واسكنه فسيح جناته

برامج المخازن متشابهة .. كبيرة كانت اوصغيرة بمعنى انها تشترك في 80% من الادوات . اذا برنامج مخازن فقط ( ادخال/ اخراج ) سيكون اقل بكثير في ادواته من المتجر انظر في اآخر مرفق في هذا الموضوع وقد رفعت المرفق هنا انظر بالدرجة الأولى الى الجداول .. الاصناف وراس الفاتورة وتفصيل الحركة وغيرها من الجداول جرب المرفق واعمل عليه كتجربة .. وانظر هل يناسب ويلبي حاجتك ؟.. ام ان طبيعة عملك تختلف ووافني بنتيجة تجربتك stock25.rar

الف شكر استاذ ابوخليل وبارك الله في حضرتك استفسار كم جدول مطلوبين لهذا الامر

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

ما خاب من استشار المتبع غالبا يكون كالتالي 1- قميص شبابيِ1 مقاس 18 2- قميص شبابي1 مقاس 24 3- قميص شبابي1 مقاس 36 4- قميص شبابي1 مقاس 42 حتى لو اردت التمييز باللون او اي شيء آخر كالمصدر مثلا طبعا كما تعلم الأساس والمرجع هو معرف الصنف ( 1،2،3،4) وليس اسمه فائدة هذا التقسيم انه قد يكون البيع والاقبال على مقاس محدد .. فهنا يمكنك استخراج المخزون بعملية سهلة و دقيقة الزبدة : لو كان المنتج تي شيرت نصف كم فطبيعي ان يكون 20 صنفا .................................................................................... ملحوظة مهمة : العدد مكانه الصحيح هو جدول الحركة وليس جدول الاصناف

أ / عبدالله بشير عبدالله بشكر حضرتك علي المعادلة وبكرر اسفي عاوز اطبق نفس المعادلة علي العمود اللي بعده M 2 الحصص واتمني ان يكون علي الملف المرسل

لو سمحت انا عايز نفس المعادلة علي الخلية m2 اللي هي الحصص المطلوب إضافة العمود P اللي هي عدد التكرار في العمودL علي قصاد اسم المدرسة المظلل في العمود K.xlsx

السلام عليكم ورحمه الله ان شاء الله في مرحله اعداد برنامج بسيط لمخازن ملابس لكن عندي حاله من الحيره وهي الصنف / له 4 مقاسات مختلفه / وكل مقاس له عدد / كيف يتم ابداء وعدد الجدول المطلوب تصممها . اتمناه من حضرتكم النصيحه للبداء وشكرا