كل الانشطه

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

و عليكم السلام ورحمة الله و بركاته تفضل الملف. ملحوظة تم تعديل الاسماء و أرقام الاقامة لان من غير المنطقي أن تكون كل البيانات متشابهة تماما ماعدا رقم اللوحة مما يفقد البحث بالاسم أو رقم الاقامة فائدته فواز_معدل_للبحث_محدث (2).xlsx

مشكور والله

السلام عليكم لدي ثلاثة أوراق هي ورقةFeuil1 - ورقةFeuil12 - ورقةFeuil13 و ورقة طباعة اريد تنسيق الخلايا وادارج ايقونة الطباعة وهذا عند ادخال الرقم يتم طباعة الورقة وادراج ايقونة تحميل الى البدياف في ورقة طباعة اليكم ملف الاكسيل يوجد فيه كل ورقة واسمها في ورقة الطباعة ملف الطباعة.xlsx

يحتار الكثيرون بين استخدام الصور أو الأيقونات داخل الشرائح، مع أن لكل منهما استخدامًا مختلفًا. 🖼️ استخدم الصور عندما: تريد نقل شعور أو لفت الانتباه. تعرض منتجًا أو مكانًا أو شخصًا حقيقيًا. تحتاج إلى إضفاء طابع واقعي على الشريحة. 🎨 استخدم الأيقونات عندما: تشرح فكرة أو مفهومًا. تعرض قائمة من النقاط أو الخدمات. تريد تصميمًا بسيطًا ونظيفًا ومتناسقًا. 💡 نصيحة: لا تخلط بين الصور الواقعية والأيقونات بكثرة داخل الشريحة نفسها، إلا إذا كان هناك سبب واضح لذلك. الحفاظ على أسلوب بصري موحد يجعل العرض أكثر أناقة وأسهل في الفهم. ❓سؤال للنقاش: في تصميماتك، هل تميل إلى استخدام الصور أكثر، أم تفضل الأيقونات البسيطة؟

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

هل يمكن استخدام تأثيرات كثيرة في الشريحة؟ استخدم الحركات للعناصر باعتدال؛ حتى لا تشتت الانتباه.

السلام عليكم ورحمة الله وبركاته اذا امكن ممكن جلب البيانات اذا وضعت في الخلية j1 j2 j3 يجلب البيانات من شيت بيانات ملف جدا صغير ولكم الشكر فواز_معدل_للبحث.xlsx

حبايب قلبي عشاق برنامج الاكسس تم تحديث نظام lab الطبي نظام متكامل ونظراً لحجمه عملته لكم في رابط ما عليك الا تنزله وفك الضغط في قرص d كلمة المرور ١ حال عدم السماح بالدخول يرجع السبب الى اعدادات الماكرو لديك قم بالدخول الى خيارات من اي ملف اكسس مفتوح ثم إعداد الماكرو واعمل سماح بالتوفيق https://drive.google.com/file/d/1YDRRLchNAfArPzdS129nnpQlqJLHfL8M/view?usp=drivesdk

هل انتهيت من تنسيق شكل أو مربع نص، ثم احتجت إلى تطبيق نفس التنسيق على عناصر أخرى؟ بدلًا من إعادة اختيار الألوان والخطوط والحدود في كل مرة، استخدم أداة نسخ تنسيق (Format Painter). الطريقة: حدد العنصر الذي يحتوي على التنسيق المطلوب. من تبويب الشريط الرئيسي (Home) اضغط نسخ التنسيق (Format Painter). انقر على العنصر الآخر لتطبيق التنسيق مباشرة. 💡 معلومة إضافية: إذا أردت تطبيق التنسيق على عدة عناصر، فانقر نقرًا مزدوجًا على الأداة، ثم اضغط (Esc) عند الانتهاء.

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

هذا لأنك تستعمل الكومبوبوكس داخل الجداول ، والأصل ان يكون حقل الجنسية = رقمي ، وبالتالي العلاقات بين الجداول ستكون كفيلة بحل هذه المشكلة وجلب قيمة 1 من جدول الديانة نفسه ( كما ذكرت سابقاً حتى لو تغيرت معك التسميات ، فسيتم تغييرها في جميع السجلات في جميع الجداول التي يوجد بها هذا الحقل .

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

وعليكم السلام ورحمة الله وبركاته .. أرى أنه من الأفضل والأدق برمجياً ، هو ربط الجداول باستخدام المفتاحين . فالأفضل هو تعديل حقل Educa_Stag في جدول Tb_School ليخزن رقم المرحلة Mrhla_ID بدلاً من النص . فالأصل فعلاً هو أن تكون القيم في الجداول هي معرف الحقل من جدول آخر ، وليس قيمته النصية ، فهذا أضمن وأسلم عند التعديل على المسميات . فمثلاً لو كانت القيمة في أحد الجداول = اعدادى ، وقمت يوماً ما بتصحيح الإسم ليصبح إعدادى أو اعدادي فستجد الكثير من المشاكل قد بدأت بالظهور عندما يكون الشرط نصي مثل اعدادى القديمة ... إلخ . ولكن وبما أنني لا أريد أن أعبث بتصميمك . فإليك الحل ببقاء تصميمك وفكرتك كما هي بحيث . كومبوبوكس جهة العمل Gha_Aml تم تعديله ليصبح :- SELECT Tb_School.School_ID, Tb_School.School, Tb_School.Educa_Stag FROM Tb_School INNER JOIN Tb_Mrhla ON Tb_School.Educa_Stag = Tb_Mrhla.Empo_Mrhla WHERE (((Tb_Mrhla.Mrhla_ID)=[Forms]![Frm_Data]![Form1].[Form]![mrhla])) ORDER BY Tb_School.School_ID; وفي كومبوبوكس نوع المرحلة ، استخدم الحدث التالي بعد التحديث له :- Private Sub mrhla_AfterUpdate() Me.Gha_Aml = Null Me.Gha_Aml.Requery End Sub ملفك بعد التعديلات أعلاه :- Personnel_affairs.zip

السلام عليكم ورحمة الله وبركاته أولا : فى نموذج Frm_Data فى البيانات الوظيفية كنت محتاج لما اختار حقل ( نوع المرحلة ) على سبيل المثال ابتدائى واختار حقل ( جهة العمل ) يجيب المدارس الابتدائية فقط وهكذا مع بقية المراحل ثانيا : بيتم هناك حقول بيتم تسجيلها فى النموذج نصوص لكن فى الجدول بتكون أرقام على سبيل المثال حقل الديانة والجنسية والمرحلة والوظيفة والحالة الاجتماعية وغيرها من الحقول وده بيحصل مشكلة فى التقرير عند الطباعة HR_EDARA.rar

تسلم - هجرب وافيدك بس لو عندى الستيكرات ملف اكسل ازاى اضيفها شرايح فى الباور بوينت بدل ما اعمل نسخ ولصق

أين الملف؟

ما هو أقل حجم خط يمكن استخدامه في العناوين؟ لا يُنصح باستخدام أقل من 24 نقطة في العناوين لضمان الوضوح.

يمكننا الإنتظار مشاركات جديدة .. فلا تستعجل بإغلاق الموضوع باختيار الإجابة 🙂

أحسنت استاذنا الكريم وهذا هو المطلوب بالضبط بارك الله فيك وزادك الله من فضله وياريت كان تم الوصول لهذه النتيجة بـــــ Data Validation

طيب .. رغم أن الطلب تم تحقيقه من خلال Data Validation ، ولكن هذا لا يمنع من تجربة الفكرة التالية من خلال الأكواد . حيث تم دمج الحدث عند التغيير للورقة من :- If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B3:B3000")) Is Nothing Then With Target(1, 5) .Value = Date & " " & Time .EntireColumn.AutoFit End With End If ليصبح :- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or Target.Row < 3 Then Exit Sub If Target.Column = 2 And Target.Value <> "" Then Target.Offset(0, 4).Value = Now If (Target.Column = 4 Or Target.Column = 5) And Trim(Me.Cells(Target.Row, "D").Value) = "بيع" Then Dim r As Long: r = Target.Row Dim itemCode As Variant: itemCode = Me.Cells(r, "B").Value Dim qty As Double: qty = Val(Me.Cells(r, "E").Value) If Not IsEmpty(itemCode) And qty > 0 Then Dim stockSheet As Worksheet: Set stockSheet = Worksheets("المخزن") Dim findCell As Range Set findCell = stockSheet.Range("B3:B800").Find(What:=itemCode, LookIn:=xlValues, LookAt:=xlWhole) If Not findCell Is Nothing Then Dim realAvailableStock As Double realAvailableStock = Val(stockSheet.Range("I" & findCell.Row).Value) + qty If qty > realAvailableStock Then MsgBox "• لا يمكنك إتمام عملية البيع هذه" & vbCrLf & vbCrLf & _ "• الصنــف: " & Me.Cells(r, "C").Value & vbCrLf & _ "• الرصيد المتاح حالياً: " & realAvailableStock & " قطعة" & vbCrLf & _ "• الكمية المطلوبة: " & qty & " قطعة", _ vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تجاوز الرصيد" Application.EnableEvents = False Me.Cells(r, "E").ClearContents Me.Cells(r, "E").Select Application.EnableEvents = True End If End If End If End If End Sub ملفك بعد التطبيق :- مخزن 1.xlsb

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

لم أفهم المشكلة في المطلوب والتنفيذ .. فلو أدخلت قيمة أكبر من المتاح في رصيد الصنف في المخزن ، سيظهر لك رسالة التنبيه وستمنع ادخال الكمية 🤔 إلا إذا كان لك طلب آخر ولم توضحه جيداً أخي الكريم . علك توضح بشكل أكثر تفسيراً لمطلبك حتى لو كان شرحك بـ 100 سطر 😇 أو قد نجد مداخلة من أحد الأساتذة والأخوة بالتوضيح والحل دون استخدام الأكواد !!!

جربت طبعا ونفس النتيجة .بارك الله فيك

طيب تمام ، جرب غير نوع الرسالة الى Stop :- بدلاً من :-