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

ما شاء الله أنت وصلت لمستوى جميل لماذا تقول أنك مبتدئ؟ أقترح عليك الاعتماد على العمود F في تحديد القائمة يمكنك تجربة هذا التعديل Sub WhatsApp() Dim Contact As String Dim Message As String Dim Obj As New DataObject Dim lr As Long lr = Cells(Rows.Count, "F").End(xlUp).Row For Each Cell In Range("F2:f" & lr) Contact = Cell.Value Message = Cell.Offset(0, 2).Value Obj.SetText Message Obj.PutInClipboard ActiveWorkbook.FollowHyperlink "https://wa.me/" & Contact Application.Wait(Now + TimeValue("00:00:06")).True Call SendKeys("^v", True) Application.Wait(Now + TimeValue("00:00:05")).True Call SendKeys("~", True) Application.Wait(Now + TimeValue("00:00:05")).True Next MsgBox "Done!" End Sub بالتوفيق

السلام عليكم ورحمة الله تعالى وبركاته طبعا قد يقول البعض ان الموضوع اتهرس فى ميت فيلم عربى قبل كده لكن على كل حال تم تدارك الكثير من المشاكل ومعالجتها بشكل احترافى - اخفاء اطار لاكسس بالشكل الطبيعى والتقليدى لعرض النموذج كاملا - اخفاء اطار الاكسس وعمل شفافية للنموذج لاظهار صور png او حسب خيال المسخدم - تم ضبط كواد التوسيط للنماذج والتقارير باحترافية ويعمل التوسيط مع الخاصية Pop Up فى اى وضع كانت فى حالة عدم استخدام الاخفاء - تم حل مشكلة عدم ظهور التقاربر عند الاخفاء بتكبير التقرير تلقائيا عند استخدام كود الاخفاء - امكانبة التصغير للتطبيق بجوار الساعة ( System Try ) - عند التصغير بجوار الساعة ممكن الضغط كليك يمين على الايقونة لتظهر قائمة اختيارات - تم ضبط كود تغير ايقونة الاكسس باحترافية وبشكل تلقائى من المسار المحدد او فى حالة عدم وجود الايقونة ترجع ايقونة الاكسس - تم التعامل مع الاكواد بحرفية تامة للعمل على بيئات الأنوية المختلفة سواء كانت 32 , 64 اترككم مع تجربة شيقة ملاحظة هامة : ارضاء للجميع ولاضفاء اكبر قدر ممكن من المرونة المرفق يحتوى على قاعدتان الاولى : تم تجميع كل الاكواد والدوال فى وحدة نمطية عامة واحدة وكلاس موديول واحد لسهولة الاستفادة منها ونقلهم الى اى قاعدة الثانية : فصل اكواد كل وظيفة على حدة فى مديول خاص بها تم اضافة تعديل وتحديث جديد بتاريخ 11/10/2024 رقم اصدار التعديل الاخيــر : 4.8 center and Hid and Tray Minimizer V 30.zip center and Hid and Tray Minimizer V 4.8.rar

اعرض الملف ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ السلام عليكم ورحمة الله وبركاته 🙂 اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم :: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة :: بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌 وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌ :: وبدون مقدمات نبدأ على بركة الله :: الفكرة الرئيسة للقائمة الجانبية هي : عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) .. والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار .. :: وللاستفادة من هذا الملف :: ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) : :: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم :: وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى ) :: تحديثات جديدة :: قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه لوحة التحكم : ملاحظة مهمة : قد لا يعمل هذا النموذج بشكل جيد على النسخ القديمة من 2007 وما قبلها . :: ولا تنسونا من صالح دعواتكم الطيبة 🙂 🌹🌷 :: صاحب الملف Moosak تمت الاضافه 16 سبت, 2024 الاقسام قسم الأكسيس  

تمام لاكنني لاحظت ان يوم 04/07/2024 في مثالك بعد 1 يوم هل هو خطا على العموم اظن ان المعادلة التالية ستوفي بالغرض =IF(A2="", "", IFERROR(IF($H$2>A2, "استحق الدفع", IF(A2=$H$2, "اليوم", "بعد "&A2-$H$2&" يوم")), "")) او =IF(A2="", "", IFERROR(IF($H$2>A2, "استحق الدفع", "بعد "&A2-$H$2&" يوم"), "")) معادلة لبيان المدة وعدم كتابة شيء في حالة الخلية فارغة.xlsx

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

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

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

شكرا استاذ @Moosak ❤️🌹 برنامج ممتاز 💯 ممكن تطوير اذا سمح لك الوقت قائمة (List menu ) 1- اضافة زرين سهم باليمين والشمال اذا صغطة الشمال تبدأ (( مجموعة جديده )) من رقم 1 هل بفضل عمل عدد الجداول على عدد المجموعات؟! او يمكن من جدول واحد عند اضافة حقل جديد مجموعة رقم 1 اظهار للكل بحقل =1 حقل 2 اظهار الكل بحقل =2 =================== 2- قائمة الاعدادة 3اضافة اسم فورم 1واسم العنصر 2وتحديد نوع العنصر تحديد نوع العنصر اذا كان صفحة ويب حقل رقم 4 اكتب الموقع او مسار الملف =================== 3- اضافة اعدادة جديده Progress bar تحديد الوقت او يعمل عند شرط رقم يقف الشرط نوع الشرط عام من غير سجل جدول على سبيل المثال شرط يبدأ من فورم آخر -يتحقق من الاتصال الجدول -يتأكد من نوع الحساب Admin -يرقم ترقيم تلقائي برمجي كان جدول اساسي او فرعي نفس العملية -يتأكد ان مسار المطلوب موجود ... اذا كان الكل صحيح او خطأ فقط كتابة الكود Form_List_Menu.DoP=0 ========================= 4- تغير لون الحقل والنص لكل سجل القائمة اذا كان لون الحقل اصفر يكون لون النص اسود ============================== لو كان الزر لا يظهر فلاش كويري لاستبدلته من حقول الى ازرار عند حدث التفصيلي الى حديث عند التلوين < لتغير الون الزر عند تحريك المؤشر مع الرموز وتغير الرمز ايقونة عند الضغط تكبير الخط مع السمك ================================= وشكرا

تفضل schoolالغياب.rar

تسلم اتفضل الشرح التالى صورته لك فيديو بالتوفيق

الخطأ موجود في الاستعلام .. في العلاقة بين الجدولين : جدول المعلمين وجدول Link ... في جدول المعلمين اربط بـــ آيدي المعلم وليس اسم المعلم ------------------------------------------------------------------ ولكن المرفق ناقص 1- تريد اظهار غياب .. والجداول لم يرصد فيها غياب 2- حقل التاريخ ؟؟ لايوجد تاريخ اصلا في الاستعلام تأكد من المرفق وراجع ملاحظاتي

عليكم السلام ورحمة الله وبركاته يمكنك تجربة هذا الكود Sub TransferData() Dim wsCurrent As Worksheet Dim wsPrevious As Worksheet Dim lastRow As Long Dim i As Long Dim j As Long Dim targetRow As Long ' تحديد الشيت الحالي والشيت السابق Set wsCurrent = ThisWorkbook.Sheets("6") ' قم بتغيير اسم الشيت حسب الحاجة Set wsPrevious = ThisWorkbook.Sheets("5") ' قم بتغيير اسم الشيت حسب الحاجة ' إيجاد آخر صف في الشيت الحالي lastRow = wsCurrent.Cells(wsCurrent.Rows.Count, "B").End(xlUp).Row ' مسح الصفوف التي تحتوي على كلمة "منقول" في العمود M For i = lastRow To 7 Step -1 If wsCurrent.Cells(i, "M").Value = "منقول" Then wsCurrent.Rows(i).Delete End If Next i ' إيجاد آخر صف بعد المسح lastRow = wsCurrent.Cells(wsCurrent.Rows.Count, "B").End(xlUp).Row ' ترحيل البيانات من الشيت السابق targetRow = lastRow + 1 For i = 7 To wsPrevious.Cells(wsPrevious.Rows.Count, "B").End(xlUp).Row If wsPrevious.Cells(i, "M").Value = "منقول" Then For j = 1 To 21 ' الأعمدة من A إلى U If j >= 6 And j <= 12 Then wsCurrent.Cells(targetRow, j).Formula = wsPrevious.Cells(i, j).Formula Else wsCurrent.Cells(targetRow, j).Value = wsPrevious.Cells(i, j).Value End If Next j targetRow = targetRow + 1 End If Next i ' ترتيب البيانات حسب الاسم في العمود B wsCurrent.Range("A7:U" & targetRow - 1).Sort Key1:=wsCurrent.Range("B7"), Order1:=xlAscending, Header:=xlNo End Sub بالتوفيق

اختي العزيزة اعملي الجدول وادخلي البيانات لكي يساعدك بقية الاعضاء في طلبك

المعادلة =SUMPRODUCT(SUMIFS(RawMaterials!$C$2:$C$20; RawMaterials!$B$2:$B$20; ProductionMode!$B3:$B9); ProductionMode!C3:C9) الملف officena1.xlsb

وعليكم السلام ورحمة الله تعالى وبركاته يمكنك استخدام كدالك Sub addFormula() Dim lr& With ThisWorkbook.Sheets("Sheet1") lr = .Cells(.Rows.Count, "G").End(xlUp).Row .Range("H2:H" & lr).Formula2 = "=COUNTIF(G$2:G" & lr & ", G2)" End With End Sub ولتنفيده عند التغيير تلقائيا مع اظافة المعادلة الموجودة في عمود G يمكنك وضع الكود التالي في حدث Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim lr As Long lr = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row 'column (G) With Me.Range("G2:G" & lr) .Formula2 = "=TEXTJOIN(""-"", TRUE, A2, C2)" .Value = .Value End With 'column (H) With Me.Range("H2:H" & lr) .Formula2 = "=COUNTIF(G$2:G" & lr & ", G2)" .Value = .Value End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.EnableEvents = True End Sub

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