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

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

السلام عليكم بالنسبه للحل باستخدام Power Query الذى قمت بتطبيقه فى المشاركة 3 هو صحيح ولكن البيانات الاصليه المدخله فى الجداول هى سبب المشكله مثلا Mohammed NOOR له SR و PF مختلف كل شهر فيمجرد ان تزيل هذه الاعمده من الجدول المحوري وتكتفى بالاسم سوف يعطى نتائج افضل وهناك حل اخر ان يكون محتوى العمود SR ثابت بالنسيه لكل موظف ويكون هو الرقم الوظيفى له ومتطابق فى جميع الشهور

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

هذه دالة من أبي هادي: Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As Byte) As Long 'WeekDay Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function وهذه طريقة استخدامها: = CountWkDay(K6, K7, 6) + CountWkDay(K6, K7, 7) جربوا المثال: صرف بدل ايام العطلات الرسمية الجمعة والسبت_02.xlsm

اعرض الملف 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مرسال الواتسأب) مع المرفقات مرسال الواتسأب مع المرفقات | سلسلة هدايا الأكسس | 03| 🎁 وهو عبارة عن برنامج صغير لإرسال الرسائل للواتسأب مع المرفقات .. :: من مميزات هذا الإصدار :: - إرسال رسائل فردية أو جماعية عن طريق برنامج الواتسأب . - لا يحتاج لبرنامج الإنترنت إكسبلورر لفتح الواتسأب. - لا يغلق مفتاح الـ NumLock بعد الإرسال. -تم اختصار الكود في موديول واحد ودالة واحدة تقوم بعملية الإرسال بعدة خيارات . - لو أردت تطبيق الكود في برنامجك الخاص ستحتاج لنقل الموديول إلى برنامجك + سطر برمجي واحد فقط لعملية الإرسال. :: شرح البرنامج :: :: لتحميل البرنامج :: صاحب الملف Moosak تمت الاضافه 30 مار, 2023 الاقسام قسم الأكسيس

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

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

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

نعم استاذنا @Moosak .. كلامك صحيح لا أعرف لكن هذا أمر أنت لها أن شاء الله

هذه أفكار يمكنك أن تتفنن فيها كيفما تشاء 🙂

حسب علمي هذه الروابط تستخدم للإنظمام للمجموعة وليس لمراسلتها .. وهذا ربما قد ينحى بنا متحى آخر.. ولكن لا مانع من التجربة .. 🙂 السؤال هو : هل هناك روابط خاصة بالمراسلة ؟ وكيف الطريقة للحصول على هذه الروابط ؟

استاذ @Moosak نتطلع أن تجدو الحل الامثل لايجاد الطريقة مع التنبيه أن لكل مجموعة واتس لها رابط مميز يختلف من مجموعة إلى مجموعة اخرى اقصد الرابط الذي يتم ارساله لكي ينظم الأفراد لتلك المجموعة وهو عبارة عن ارقام و احرف بالغة الانجليزية هل رابط المجموعة يفي بالغرض ؟؟

تفضل اخي كود بسيط Option Explicit Sub Test() Dim cell As Range For Each cell In Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) cell.Formula = "=" & "B" & cell.Row & "-20" Next cell End Sub

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

وعليكم السلام ورحمة الله وبركاته قبل كلمه Function ضع Ptrsafe

شكرا لك أخي @محمد احمد لطفى .. 🙂 لم أطلع عليه بعد ولكن إن شاء الله نستفيد منه لدمج الأفكار مع بعضها 🙂

شكرا لك اخي محمد هذه الهدية وهي مهمة جدا ياريت يتم اضافتها في ملف الأخ الاستاذ @Moosak بنفس أسلوب ملفه بدون الحاجة إلى متصفح ستكون الأفكار اجتمعة بشكل افضل

ألف شكر ياغالي ♥ ده الواحد كان بيتعذب ياجدع الله يوفقكم ويسهل أموركم

تم شرح الكود لتسهيل فهمة يمكنك اختيار اي عمود تحددة وتضع في اي معادلة انت تريدها Private Sub Workbook_SheetChange(ByVal SH As Object, ByVal Target As Range) CL = Target.Column RW = Target.Row If CL = 12 Then If Target > "" Then Application.ScreenUpdating = False Cells(RW, 13).Resize(, 57) = "=IFERROR(INDEX(Data2,MATCH(R7C64,Day,0),MATCH(R6C2,R6C2:R6C7,0)),"""")" '''''هنا حدد العمود المراد وضع الدالة في وهو همود رقم 13 الي عمود رقم 57 Cells(RW + 1, 13).Resize(, 57) = "=IFERROR(INDEX(Data2,MATCH(R8C64,Day,0),MATCH(R6C6,R6C2:R6C7,0)),"""")" '''''هنا حدد العمود المراد وضع الدالة في وهو همود رقم 13 الي عمود رقم 57 Cells(RW, 59) = "=SUM(45-COUNTIF(RC[-46]:RC[-2],""=0""))" ''' في عمود رقم 59 يتم وضع المعادلة Cells(RW, 13).Resize(RW + 1, 59).Value = Cells(RW, 13).Resize(RW + 1, 59).Value '''''هنا يتم تحويل المعادلة الي قيم Application.ScreenUpdating = True Else Cells(RW, 13).Resize(RW + 1, 59).Value = "" ''هنا اذ العمود 12 يساوي فراغ فباقي الالعمدان تساوي فراغ End If End If End Sub

Select the column of your desire Data tab > Text to Columns > Next > Uncheck Tab option > Next > Select Text option > Finish

السلام عليكم ورحمة الله وبركاتة كل عام وانتم بخير ... رمضان كريم تفضل حافز المنظومة 2023.xls

جرب الملف المدرسة.xlsm

تفضل أخي ووافني بالرد . DD125-1.accdb

بسم الله الرحمن الرحيم كما تعودنا واستكمالا لشروحات الفورم التفاعلي باضافات بعض الحيل والافكار للوصول لشكل يسهل للمستخدم التعامل مع اليوزفورم النهاردة هانتعلم الذاي نعمل قائمة منسدلة لجميع تبويات الفورم من خلال بعض الاعدات في شيت منفصل بعيدا عن تعقيدات الاكواد وتكرارها باستخدام Class Modules كود واحد ومختصر وقائمة واحدة تتغير حسب التبويب كنت وعد احد الاخوة في موضوع الدرس الأول للفورم التفاعلي الاخ اسامة فوزي واحتياجه لفورم متعدد المهام والوظائف ليطور عمله ففضلت ان تكون الاجابة عامة حتى يستفيد منها الجميع وادعوا الله ان اكون عند حسن ظنه وظنكم في. أطروحتنا النهاردة بسيطة وشيقة اشبه بمغامرة انك تعبر عن قدرتك وتعاملك في التصميم والكود كانك رسام يرسم لوحة وبربط بين تفاصيلها لتعبر عن رؤية بصرية محددة في مخيلة من قام بالرسم وحياكة التفاصيل حياكة متناسقة لتصل الي المتلقي بسهولة ويستطيع ان يتعامل معها ويمكنك تغيير المسميات للقوائم المنسدلة او الرئيسية من خلال شيت الاعدادات بكل سهولة وتضيف كما تشاء من تبويات بكل سهولة اسيبكم مع الملف واي شيء يحتاج لشرح او توضيح لا تتردوا في طلبه والله ولي التوفيق Create Dynamic Drop-Down Menu In Excel Userform الملف بالمرفقات مفتوح المصدر Create Dynamic Drop-Down Menu In Excel Userform Officana.xlsm