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

بسم الله ما شاء الله بارك الله فيك وجزاك الله خير الجزاء بصراحة هو دا الشغل يا بلاش .. كدا إنت سمعت الكلام وكدا إنت حبيبي تقبل تحياتي

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

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لحضراتكم ملفا به كود منقول أكثر من رائع هذا الكود يمكنه أن يظهر لك ما يأتى 1 - عدد البارتشنات فى الهارد ديسك 2 - نوع البارتشنات فى الهارد ديسك 3 - مساحة كل بارتشن والمساحة الكلية للهارد ديسك 4 - المساحة المستخدمة فى كل بارتشن والمساحة الكلية المستخدمة فى الهارد ديسك 5 -المساحة الفارغة فى كل بارتشن والمساحة الكلية الفارغة فى الهارد ديسك 6- اظهار المساحة الكلية و المستخدمة و الفارغة فى أى وحدات التخزين كالفلاشات المتصلة بجهازك طريقة استخام الملف : بسيطة ضغطة زر فقط لا غير ملحوظة 1: اعرف مساحة الهارديسك قبل وضع فلاشة وبعدها ملحوظة 2 : أى تغيير بالزيادة والنقص فى المساحات لديك يظهرها الكود بضغطة واحدة أتمنى أن تسعدوا به لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** Drives names Type Size SpaceFree etc.rar

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاةً الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يسعدنى أن أقدم لحضراتكم ملفا به كود واحد ومنقول قمت بتعريبه لكم يمكنه حماية أو فك حماية جميع أوراق العمل فى أى عدد من ملفات الاكسل بأى امتداد داخل أى مجلد فى جهازك شوفوا مش حارمكم من حاجة كل جديد ومفيد لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد *************** تفضلوا المرفق وعليه Protect Unprotect All Files In A Folder.rar

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

أخى ياسر بلاش الملفات دى . اسألنى أنا . خط الصعيد عندينا هنا لو شم خبر بأن فيه خط نتاوى غيره هيخربها . لو تسمح لى بتعليق صغير على اسم الملف أستاذى ياسر : Delete All Files In A Folder تعنى حذف انما الملف لا يحذف وانما بيسفك والعياذ بالله والفارق بينهما أن الحذف هو : نقل الملفات الى السلة أما السفك هو : ..................ولا بلاش الموضوع كله بقى دمار شامل تحياتى

صورة البرنامج ممكن بس فى اسرع وقت

اوك برحتك وانا متشكر لك

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

اخي الكريم انا علي استعداد للتنفيذ مدة التنفيذ يومان هل تريد اضافة شئ اخر

اخواني في المنتدى /بعد السلام اليكم هذا الملف الذي كثر التداول به وهو كيف نحصل على كل الاسماء من حدول والتي تبدأ بحرف معيّن find_by_letter.rar

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

جزاكم الله خيرا استاذى الحبيب سليم حاصبيا على هذا الملف اخى صديق . اليك ملف حسب مافهمت Int.rar

اللهمّ إني أسألك لمن ساعدني و لمن سهر على رقي هذا المنتدى زيادة في الدّين، وبركة في العمر وصحّة في الجسم، وسعةً في الرزق وتوبةً قبل الموت، وشهادةً عند الموت، ومغفرةً بعد الموت، وعفواً عند الحساب، وأماناً من العذاب، أبعد الله عنكم شرّ النّفوس، وحفظكم باسمه السّلام القدّوس، وجعل رزقكم مباركاً غير محبوس، وجعل منزلتكم عنده جنّة الفردوس، أسأل الله أن يحصّنكم بالقرآن، ويبعد عنكم الشّيطان، وييسّر لكم من الأعمال ما يقرّبكم فيها إلى العليين وأن يصبّ عليكم من نفحات الإيمان، وعافية الأبدان، دمتم و دام عطاءكم نبراسا ينير الطريق شكرا اخي الكريم

تفضل أخى الحل بطريقتين 1- كود قم باختيار رقم الدورة من خلية C2 وسيتم تنفيذ الكود أتوماتيكياً 2-معادلات وشكرا تمرين آخر.rar

علي حسب المواصفات التي ذكرتها ( توكل علي الله )

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

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

CTRL + SHIFT + ENETR كليك داخل المعادلة ثم اضغط على الثلاثة مفاتيح معاً

السلام عليكم هذا حل بالاكواد كود ملئ اليست دون تكرار Sub RabieCh() Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sales Report") Dim lrw As Long: lrw = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim keyArray(): keyArray = ws.Range("A3:A" & lrw).Value Set sDic = CreateObject("Scripting.Dictionary") Dim i As Long For i = LBound(keyArray) To UBound(keyArray) If Not IsEmpty(keyArray(i, 1)) Then sDic(keyArray(i, 1)) = "" Next i If IsArray(keyArray) Then With Sheet2.ComboBox1 .List = sDic.keys: .ListRows = 20 .MatchEntry = fmMatchEntryNone .TextAlign = fmTextAlignRight End With choix1 = sDic.keys End If End Sub كود البحث داخل اليست (فلترة) If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare) Me.ComboBox1.DropDown End If لم افهم اين تريد انتائج ان شات وضح الامر لاعدل في الاكواد تحياتي للجميع قائمة منسدلة بدون تكرار مع إمكانية البحث داخل القائمة.rar

بصراحا اخي لم افهم شيء في الملف ممكن توضح اكثر

السلام عليكم بعد اذن اخى الحبيب ابوايمان اليك دالتين تستخدم فى التنبؤات وتعطى نفس النتائج الداله الاولى ‏FORECAST(x, known_y's, known_x's) x :المراد التبؤ بها مثلا الفتره known_y's: صفيف (تابع) من القيم مثلا قيم الفترات السابقه known_x's:صفيف(مستقل) من القيم مثلا الفترات السابقه الداله الثانيه TREND(known_y's, [known_x's], [new_x's], [const]) known_y's: صفيف قيم (الفترات السابقه ) [known_x's]: صفيف(القيم السابقه) [new_x's]: القيمه المراد التبؤ بها يوجد مثال مبسط بالمرفق تحياتى ft.rar

القرارات المتخذة وقت الانفعال غالبا ما يوصف بالخطا

لا يوجد مرفق ارفق ملف اشرح فيه الذي تريده وان شاء الله سنساعدك

أخي الفاضل أهلا بك ومرحبا في المنتدى .. اسمح لي بما أن هذه أول مشاركة لك ... ينبغي أن تعرف قواعد المنتدى .. أنت وضعت عنوان مناسب يدل على طلبك .. ولكن الموضوع لا يجب أن يكون هكذا لابد من بعض التفاصيل .. ويستحب ملف مرفق للعمل عليه توفيراً للوقت والجهد عموما يا عبدو إليك الملف التالي لعله ينال رضاك ومتنساش تختار الإجابة كأفضل إجابة (دا لو عجبك الملف !!) تقبل تحياتي ColorFunction UDF Function.rar

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

السلام عليكم ورحمة الله وبركاته بارك الله بالأخوة الكرام حل اخر بالمعادلات اخي السائل جرب المعادلة التالية =SUMPRODUCT(($B$2:$B$17=A20)/COUNTIFS($A$2:$A$17;$A$2:$A$17&"";$B$2:$B$17;$B$2:$B$17&"")) في امان الله

اخى دغيدى السلام عليكم ======== 1 ***الدمغة العادية فى حالة عدم وجود الأساسى المجرد يتم جمع اساسى العام الحالى + بدل المعلم + بدل الاعتماد ويطرح منه 100 ثم يتم ضرب الباقى فى6 على 1000 هذا بالنسبة للمعلم الذى يتقاضا كادر 2 ***اما بالنسبة للموظف الذى لا يتقاضى كادر يتم طرح 50 جنيه من الاساسى فقط ويضرب الباقى فى 6على1000 وتسمى دمغة البدلات 3 ***اما فى حالة وجود الاساسى المجرد لكل العاملين بالنسبة للمعلم الذى يتقاضا كادر يجمع الاساسى المجرد + بدل المعلم + بدل الاعتماد اذا كان اقل من 50 جنية ليس لهدمغة بدلات واذا كان اكثر تخصم 50 جنيه ثم يضرب الباقى فى 6 على 1000 ويجمع عليها دمغة المجرد تصبح هذة هى الدمغة العادية للمعلمين ***اما الموظفين فليس لهم دمغة بدلات يوضع لهم دمغة المجرد ودمغة المجرد هذه عبارة عن جدول يعرفة المتخصصين فى المرتبات عبارة عن شرائح لكل اساسى مجرد تبدا من 58 بالنسبة للاساسى المجرد تزود كل شريحة 10 جنيهاتحتى تصل يكون 1000 جنيه وبالنسبة للدمغة تبدا من 0.05 لكل شريحة ويزود 5 قروش لكل شريحة حتى تصل الى 0.75 قرش مرفق ملف للتوضيح ولكم جزيل الشكر الدمغة العادية.rar

اعمال مميزة شكرا لكم

وجدتهما في مكتبتي PSchool.rar School.rar

وجدتها فارغة.rar

السلام عليكم ورحمة الله و بركاته بعد اذن الاخ المتميز دائماً الاستاذ/ أبو أحمد أخي الفاضل / باسم سعيد اولا ً : عفواً يا اخي الشكر لله و أرجو أن تقوم بتوضيح المطلوب بعض الشئ ثانياً : المرفق التالي يقوم بعمل حماية للملفات كلها لكن الخلايا التي يتم تحديدها قبل الضغط على زرار Protect لن يتم حمايتها و لأي طلب او استفسار او تعديل ساكون معك دائماً ان شاء الله و لن أتأخر أبداً ما دمت أستطيع و الله الموفق و المستعان و السلام عليكم ورحمة الله و بركاته PROTECT HaNcOcK 2.rar

الملف المرفق فيه تعديل على ملف الاستاذ هنكوك بخصوص حماية الصفحات ان شاء الله هذا ما تريد ابواحمد PROTECT HaNcOcK.rar