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

تفضل التعديل 123456.accdb

تفضل يمكنك استخدام هذه المعادلة (Ctrl+Shift+Enter) =IFERROR(INDEX($C$3:$C$40,SMALL(IF(($C$3:$C$40<=$I$3)*($C$3:$C$40>=$I$2)*($B$3:$B$40=$K$2),MATCH(ROW($C$3:$C$40),ROW($C$3:$C$40)),""),ROW(A1)),COLUMN(A1)),"") Item Card1.xlsx

تفضل سيدي الكريم ، نفس المثال السابق ، ولكن بإضافة للنماذج كذلك: وهذا هو الكود: Option Compare Database Option Explicit Dim FC As FormatCondition ' Private Sub Form_Load() Dim Exp1 As Variant Dim Exp2 As Variant Exp1 = "[state]='H'" Exp2 = "[state]='L'" Me.result.FormatConditions.Delete Set FC = Me.result.FormatConditions.Add(acExpression, acEqual, Exp1) 'FC.Enabled = True FC.BackColor = vbRed Set FC = Me.result.FormatConditions.Add(acExpression, acEqual, Exp2) 'FC.Enabled = True FC.BackColor = vbYellow End Sub Private Sub Form_Unload(Cancel As Integer) Set FC = Nothing End Sub جعفر conditional format.zip

اتفضل استاذ الحلبى جر ب هذا اختيار.accdb

تفضل استاذ عمر ان شاءالله يكون هو المطلوب بالتوفيق 123456.accdb

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

Sub Test() Dim a, ws As Worksheet, sh As Worksheet, m As Long, n As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) m = ws.Cells(Rows.Count, 3).End(xlUp).Row n = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 a = Array(Format(ws.Range("H3").Value, "yyyy/mm/dd"), ws.Range("I2").Value, ws.Range("D3").Value) sh.Range("A" & n).Resize(m - 5, 3).Value = a sh.Range("D" & n).Resize(m - 5, 7).Value = ws.Range("C6").Resize(m - 5, 7).Value Application.ScreenUpdating = True End Sub

تفضل أخي الكريم هذا اللغز من أفضل الألغاز التي قابلتها حيث استمرت المحاولات فيه يومين والحمد لله تم إنجازه إن شاء الله هذا الكود يقوم باللازم Sub mas_generateMsg() Dim SumH(1000) As Variant, SumV(1000) As Variant For i = 17 To Sheet3.Cells(Rows.Count, 5).End(xlUp).Row msg = "": frst = True: fw = Sheet3.Cells(i, 8) msg = msg & "عند خروج الفاتوره رقم " & Sheet3.Cells(i, 5) & " بتاريخ " & Format(Sheet3.Cells(i, 6), "yyyy/mm/dd") For c = 17 To Sheet2.Cells(Rows.Count, 6).End(xlUp).Row lw = Sheet2.Cells(c, 9) lot = IIf(fw - SumH(i) > lw, lw, fw - SumH(i)) mylot = IIf(lw - SumV(c) > lot, lot, lw - SumV(c)) If mylot > 0 And frst Then frst = False: msg = msg & " تم استخدام خامات من اللوت رقم " & Sheet2.Cells(c, 6) & " بوزن " & mylot ElseIf mylot > 0 And Not frst Then msg = msg & " وأيضا من اللوت رقم " & Sheet2.Cells(c, 6) & " بوزن " & mylot End If SumV(c) = SumV(c) + mylot: SumH(i) = SumH(i) + mylot Next c Sheet4.Range("g" & i + 9) = msg Next i MsgBox "Done by mr-mas.com" End Sub نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

بسم الله الرحمن الرحيم تطرق الكثير من المبرمجين إلى موضوع التفقيط وهو تحويل الأرقام إلى كلمات عربية ولكني كمعلم لمادة اللغة العربية لم أجد من هذه الدوال ما يتوافق مع قواعد اللغة العربية قاعدة كتابة الأعداد العربية بطريقة مضبوطة وصحيحة وتجد في هذا الرابط شرح مبسط للعدد وتمييزه http://www.reefnet.g.../AdadMadoud.htm وبفضل الله قمت ببرمجة دالة تقوم بتحويل الرقم إلى كلمات عربية مضبوطة تماماً وموافقة لجميع قواعد كتابة العدد في اللغة العربية تجدها هنا https://officena.net/team/mas/tafkeet وتم برمجة هذه الصفحة بلغة php وهذا الإصدار الجديد يعتمد فقط علي جافاسكريبت https://www.mr-mas.com/p/tafqeet.html وإذا لاقى الموضوع قبولا وإعجابا فسوف أعرض عليكم الكود الخاص بهذه الدالة أخوكم محمد صالح مبرمج بأكثر من لغة برمجة ومصمم ومطور مواقع

تفضل هذا المقترح ليسهل عليك العمل و تنتهي مشاكل جمع المبيعات و التوريد انشئ Module جديد و الصق فيه التالي '==================================== لمعرفة اجمالي المخزون لكل صنف ================================================ Public Function TotalStock(Id_product As Integer) As Integer On Error Resume Next Dim TotalImportStock, TotalSales As Integer TotalImportStock = Nz(DSum("quantity_of_product", "Tb_purchse2", "name_of_product=" & Id_product), 0) TotalSales = Nz(DSum("quantity_of_sale", "Tb_sales2", "Id_of_product=" & Id_product), 0) TotalStock = TotalImportStock - TotalSales End Function '======================================= لمعرفة اجمالي المبيعات لكل صنف ============================================= Public Function TotalSales(Id_product As Integer) As Integer On Error Resume Next TotalSales = Nz(DSum("quantity_of_sale", "Tb_sales2", "Id_of_product=" & Id_product), 0) End Function '========================================== لمعرفة اجمالي التوريد لكل صنف ========================================== Public Function TotalImportStock(Id_product As Integer) As Integer On Error Resume Next TotalImportStock = Nz(DSum("quantity_of_product", "Tb_purchse2", "name_of_product=" & Id_product), 0) End Function سوف تجدها من ضمن الدوال لكي سهل عليك استخدامها و استدعائها في اي مكان داخل البرنامج و للمثال تم انشاء استعلام بإسم ( المخزون الكلي لجميع الاصناف ) 321.accdb

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

راح ناخذ الموضوع حبه حبه بالنسبة لهذي المشكلة اتفضل هذا الحل بعد اختيار الصنف و ادخال الكمية يكون الحدث 321.accdb هذي المشكلة انتهت و كذلك تم تغيير اسم آخر عمود لأنه عند استخدام Sum تلقائيا يتم اضافة حروف عربية و هذه تسبب مشكلة و ربكة كبيرة هل جربت الاقتراح الأخير للقائمة ؟ اعتقد بأنه يفي بالغرض

تفضل هذا الاقتراح اخي عمر الطريقة بالأعلى غير ناجحة و هذا البديل لعله يفي بالغرض عمر.accdb

الكود ده جميل وشغال .. لكن لو فيه جداول كتير هل لازم اقعد اضفها كلها وحتى لو ضفتها كلها ممكن فيما بعد يتم اضافه جداول اخرى والموضوع كده حيبقى صعب ولا فيه طريق اسهل للحزف الجماعى if MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TABLE1" MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

ليس شرطا اوفيس 2016 @Eng.Qassim الكود يعمل على جميع الاصدارات

ليست المشكلة في الاوفيس المشكلة لديك البيانات فقط لا اكثر بسبب العلاقات المعقدة و الشروط الكثيرة في الجدول

بارك الله لك أخي @د.كاف يار رجاء من كل رواد منتدى الأكسس قراءة ما يخص الاقتباس في توقيعي

انت معلم و احنا منك نتعلم ماشاء الله عليك فنااان

انصحك بأن تقوم بإلغاء جميع العلاقات فلست بحاجة للكم الهائل من هذه العلاقات حرر الجدول من جميع القيود و ستجده يتجاوب معك

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

يجب ان تنزل اوفيس 2016... لان البرنامج بحاجة لمكتبات اكسل 16

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

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

شكرا جدا علي هذا المجهود الجبار

بارك الله فيك ونفعك بعلمك جزاك الله خيرا

تفضل هذا ملفك بعد وضع الكود فيه (أولى خطوات التعلم هي الرغبة والإصرار) مع ضرورة أن يكون عنصر المدرسة والفصل غير منضم (لانهما مرتبطان بجدول الطلاب فبمجرد اختيارهم يعني أنك بدأت تسجل سجل جيديد) بالتوفيق mas_import_export.rar

جميعا بإذن الله

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

وعليكم السلام 🙂 استخدم خاصية البحث في المنتدى ، فهناك الكثير من الاسئلة المشابهة لسؤالك ، وقد تم رد عليها 🙂 جعفر

الكود فعلا يحدد نطاق البحث في بداية الاسم للوصول لما تريد غير هذا السطر في حدث عند تغيير مربع النص10 If C Like TextBox10.Value & "*" Then إلى If C Like "*" & TextBox10.Value & "*" Then بالتوفيق

السلام عليكم اخوي ابو خليل 🙂 في هذا الموضوع كتبت طريقة الحل: جعفر

حسب فهمي للمطلوب تم وضع معادلة تحسب المتبقي على التاريخ (إذا كان بعد تاريخ اليوم) وتنسيق المدة ب data bar بالتوفيق تنسيق المتبقي على تاريخ.xlsx

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

وعليكم السلام .دائماً وأبداً ننبه كثيراً على عدم دمج الخلايا لسهولة التعامل مع ملف الإكسيل ,,, تــم الغاء دمج الخلايا لحسن عمل المعادلات وتم وضع كود للطباعة نموذج ادخال البيانات1.xlsm

جزاكم الله خيراً اساتذتنا الكرام ... كما هو مطلوب

عود حميد استاذ @بن علية حاجي معادلة رائعة

السلام عليكم ورحمة الله يمكن استعمال معادلة الصفيف التالية (في خلية غير مدمجة): =INDIRECT("C"&MATCH(1;SUBTOTAL(3;INDIRECT("C"&ROW($8:$100)));0)+7) وهي معادلة صفيف حيث يجب تأكيدها بالضغط على : CTRL+SHIFT+ENTER وفي الملف المرفق تطبيق مباشر لهذه المعادلة... أرجو أن تفي الغرض المطلوب... ملاحظة: المعادلة لا تعمل عند الفلترة بعدة شروط أو عند إلغاء الفلترة (وهي في هذه الحالات تعطي الكلمة في الصف الأعلى بداية من الخلية C8).. كيف ربط وتغيير محتوى الخلية بعد الفلترة.xlsx

جرب هذه المعادلة في D2 =INDEX(codes!B$2:B$30, MATCH(INT(MID(B2, 8, 2)), codes!A$2:A$30,0)) بالتوفيق

هل ترغب بوضع ساعة في ورقة العمل الخاصة بك؟؟ يتم تحديثها كل ثانية مثل ساعة النظام تماما الحل تجده في المرفق لا تنسوا أخاكم محمد صالح من صالح دعائكم clock.rar الإصدار الأحدث ويوجد في المشاركة 14 من الموضوع clock3.rar والآن تم تطوير الملف بصورة أكثر احترافية ليعرض ساعة رقمية وساعة عقارب وإذا رغب أحبابي في الله يتم شرح فيديو للطريقة وخصوصا الساعة العقارب لا تحكم في رغبتك لعمل شرح إلا بعد مشاهدة هذا المرفق mas digital and analog clock.rar

جزاك الله خيرا أخي Shivan لكن عملية هامة كهذه أعتقد أن عملية كهذه يلزمها رسالة تأكيد ورسالة أخري تفيد بأن العملية تمت بنجاح فما رأيك في كودك بعد التعديل ؟؟ If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL " delete * from TABLE1" MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

بارك الله فيك اخي الكريم نور الدين .. وهذه مشاركة معك Select Case CLASS Case 90 To 100 Me.ADPPRECIATION = "ممتاز" Case 80 To 89 Me.ADPPRECIATION = "جيد جدا" Case 70 To 79 Me.ADPPRECIATION = "جيد" Case 60 To 69 Me.ADPPRECIATION = "مرضي" Case Is < 60 Me.ADPPRECIATION = "غير مرضي" End Select

اخي ابراهيم لا وجود للاكسل ابدا في مثال الاستاذ ابا خليل السابق ولكن هذه فكرة ولاثراء المنتدى Private Sub العبارة_Change() Me.عدد_الأحرف = Len(Replace(العبارة.Text, " ", "")) Me.عدد_الكلمات = UBound(Split(Trim(Replace(العبارة.Text, Chr(13) & Chr(10), " ")) & " ", " ")) End Sub بالتوفيق عدد الحروف والكلمات 1.rar

بارك الله فيك أخي صفوت أنا وأنت بإذن الله في تقدم مستمر اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا

في المشاركة رقم 14 هذا هو الرابط هنـــــــــــــــــتا

أشكركم على المرور أخي قطان وأخي نادر نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

أكرر شكري لجميع من رد أو ساهم في تطوير الكود وهذا هو تعديل آخر بوضع زر لإيقاف الساعة وإغلاق الملف كل عام أنتم بخير clock3.rar

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

تمام أخي أيسم واضيف: لعمل ذلك في إكسل 2007 ابتع الآتي : اضغط على زر الأوفيس office button ثم خيارات الإكسل excel options ثم متقدم advanced ثم خيارات العرض لورقة العمل الحالية display options for this worksheet ثم اضغط على عرض الصفر في الخلايا التي تحتوي على صفر show a zero in cells that have zero value أتمنى أن يكون اتضح الأمر تحياتي للجميع

أخي أيسم جرب أن تجعل الخاصية multiline لهذا التكست بوكس true وأخبرني بالنتيجة كل عام أنتم بخير

شكرا أخي خبور ولكن أخي السائل وإذا لم تنفع جرب باستعمال الفاصلة فقط متزوج,أعزب,أرمل حيث أنها لم تنفع معي في أوفيس 2007 إلا بهذه الطريقة