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

السلام عليكم ورحمة الله وبركاته أخي @shatat 🙂 بعد العديد من التجارب قمت بتصميم هذا النموذج ولله الحمد 🙂 : طبعا التقويم دايناميكي يتغير بحسب الشهر الذي يقع فيه التاريخ الذي بالأعلى ( Target Month ) .. وتظهر البيانات بالأسفل وتتغير حسب اسم الموظف والشهر المختار .. كل مشروع يتم تسجيله يحفظ باسم الموظف المختار بالأعلى .. وهذه دعوة للتجربة وإبداء الرأي 😊🌹 TimeSheet Project.accdb

وعليكم السلام-تفضل

فورم عن مناسك الحج بالصوت والصورة والفيديو وكل عام وانتم بخير الفيديو

اقتراحي مشابه لاقتراح أخي الباشمهندس قاسم @Eng.Qassim وفقا لما فهمت من رد حضرتك ان تحديد الفئة العمرية سيكون قاصر علي التحديد اليدوي بالنسبة للمستخدم فاقتراحي ان يكون جدول التحليلات به 4 عمود بعد اسم التحليل وباقي البيانات طبعا 1-2 - القيم الطبيعية لفئة بالغ (ذكر - أنثي) 3-4 - القيم الطبيعية لفئة غير بالغ (ذكر - أنثي) وفي هذه الحالة لن نحتاج الي جدول الفئات العمرية لكونه سيتم تحديده من قبل المستخدم وهكذا يمكن استخراج النتائج الطبيعية بناءا علي تحديد النوع واسم التحليل وبالغ او غير بالغ وفي النهاية هي مجرد اقتراحات لن يحدد جدواها سوي طبيعة ما تريدون القيام به بعد هذه الخطوة.

قليل مما عندكم يا سيدي 😊🌹

وعليكم السلام ضع مسافة ثم underscore Dim a As Integer a = 500 _ + 80 _

تفضل How To Find And Replace Fill Color In Excel?

مبدع دائما استاذ @Moosak

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

كل عام وانتم بخير اللهم اوعدنا جميعاً بحج بيته الحرام -بارك الله فيك استاذ مجدى

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(AND(DAY(B2)=1,MONTH(B2)=2),"كادر","") كادر.xlsx

يمكنك استعمال هذا الكود لحذف أقدم التكرارات Sub DeleteOldestRepeated() lr = Cells(Rows.Count, 3).End(xlUp).Row For r = 2 To lr If Evaluate("=COUNTIF($C$2:$C$" & lr & ",C" & r & ")") > 1 Then For n = (r + 1) To lr If Range("c" & n).Value = Range("c" & r).Value Then If Range("b" & n).Value >= Range("b" & r).Value Then Rows(r & ":" & r).Delete Shift:=xlUp r = r - 1 Else Rows(n & ":" & n).Delete Shift:=xlUp End If End If 'Exit For Next n End If Next r MsgBox "Done by mr-mas.com" End Sub وإذا كانت احتمالات التكرارات مرتين فقط في الاسم الواحد فيمكن حذف علامة التعليق قبل exit for لتسريع الكود أكثر بالتوفيق

السلام عليكم و رحمه الله و بركاته المساعدة بماكرو يقوم في صفحة Lists في الملف المرفق تختار طباعة فيظهر فورم تقوم باختيار الصفوف بحيث يقوم ماكرو بانشاء صفحة بعدد الاختيار ثم يعبا اسماء الطلبة كل صف في صفحة و شكرا كشوفات الطلبة.xlsm

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذه المعادلة في الخلية B2 وسحبها يمينا ثم أسفل =IF(AND(B$1>=main!$B3,B$1<=main!$C3),B$1,"") وتعني إذا كان التاريخ المكتوب في B1 أكبر من أو يساوي تاريخ بداية المدة وأقل من أو يساوي تاريخ نهاية المدة يتم كتابة هذا التاريخ وإلا تظهر الخلية فارغة مع تغيير تنسيق الخلايا إلى تاريخ بالتوفيق

انا فاهم عليك ابنتي العزيزة ست @سجى الكعبي انا افكر وسأجرب لاحقا ان وسعني الوقت اعملي جدول للموظفين ...وجدول اخر بالخدمة ..ويكون نموذج فرعي مستمر نربطه مع النموذج الرئيس بأسم الموظف في النموذج الفرعي يوجد حقل الخدمة من...وحقل الخدمة الى ...وحقل اخر نستخرج منه مدة الخدمة بالايام Datediff("d";"date1";"date2") ثم نجمع تلك الايام لكي يتم تحويلها الى سنين واشهر وايام

اى مبدع بحق واكثر الاوقات ابداعا عندما يقول >>---> يضاف الى مكتبة الاكواد

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

بدون زر ادخل قيمة في المدى J8:J1000 وسيرحل الى الشيت الاخر باذن الله تحياتي ...الكود في حدث الشيت Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim ws As Worksheet Set ws = Sheets("البيانات") Dim c, x Application.ScreenUpdating = False If Not Intersect(Target, Range("j8:j1000")) Is Nothing Then c = Target.Offset(, -9) x = Application.Match(c, ws.Columns(1), 0) 'Target.Copy ws.Cells(x, 1).Offset(, 19) = Target End If Application.ScreenUpdating = True End Sub ترحيل ارقام من شيت الى شيت.xlsm

عملت التعديل بحيث يتم الغاء القيمة التي يلغى تحديدها ولكن حتى لاتسبب ارباك وجدت ان الافضل الدمج بين طريقة استاذي محمد البرناوي والطريقة التي سبق ان اشرت اليها اي بدون الحاجة الى حذف الاستعلام واعادتها عند تنفيذ الامر مرفق ملف استاذنا ناقل بعد التعديل Info list.accdb

هناك حيلة صغيرة يا أخي @waledstar سأعلمك إياها بدون الحاجة لبرامج خارجية 🙂 بعد أن تقوم بتصميم جميع التقارير قم بتصميم تقرير تجميعي .. بحيث تجمع فيه كل التقارير على شكل تقارير فرعية .. وثم تفصل بينها بأداة فاصل الصفحات () .. فيظهر لك الشكل النهائي بهذه الطريقة : بعدها تقوم بتصدير التقرير التجميعي على صيغة PDF فيحصل المطلوب ☺️ وهذا مثال للطريقة : Many Reports in 1 PDF.accdb

تفضل دالة if.xlsx

تفضل استاذى الكريم الحل بمعادلتين داخل الملف,اختر منهما ما تشاء اكبر قيمة بناء على عدة شروط1.xlsx

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

معادلة ممتازة استاذنا الكبير وأدت المطلوب على أكمل وجه أحسنت وبارك الله فيك

وهذه أيضا دالة معرفة أخرى تكاد تكون متشابهة مع الدالة الأولى strReverse -2مشكلة الكتابه المعكوسه.xlsm

تفضل اخى الكريم وهذا سوف يتم بالدالة المعرفة Reversestr وهى من أعمال استاذنا الكبير وخبيرا ومحللنا المالى الأستاذ محمد الريفى له منا كل المحبة والإحترام جزاه الله كل خير وجعل الله جميع اعماله فى ميزان حسناته مشكلة الكتابه المعكوسه.xlsm

تفضل اخى الكريم -طبعا بعد اذن استاذى سليم salim.xlsx

تفضل deff globale2018-1.xlsx

بارك الله فيك استاذ سليم تمام الأن

أستاذى الكريم لماذا تظهر هذه المشكلة عند الضغط على الملف لتحميله ؟

بارك الله فيك استاذ سليم وجزاك الله كل خير ولكن اين الملف ؟

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

تفضل كما فى أول مشاركة البحث.xls

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

تم الحل من قبل excel.rar

ممكن تجرب هذا ترحيل بيانات عدة خلايا الى ورقة اخرى.xlsx

تفضل لعله يكون المطلوب أمر ترحيل بيانات.xlsm

جزاك الله كل الخير أستاذنا الغالى وبارك الله فيك حل طبعا رائع وأعتقد هذا هو المطلوب

بارك الله فيك ربنا يزيدك من علمه-فكرة جميلة جداً ومطلوبة فى عمليات كتير ربنا يوفقك ودائما إلى الأمام أستاذنا العزيز

وهذا حل ثالث لإثراء الموضوع برجاء مراجعه معادله VLOOKUP.xlsx

ممكن ترسل الملف لكى يتسنى لنا المساعدة

السلام عليكم ممكن تجرب هذا الملف-فملفك لم يعمل أو يفتح معى به مشكلة وكلمة السر : 1234 Str2003.rar

من فضلك ارسل الملف واشرح طلبك وفكرتك عليه حتى يتسن للزملاء مساعدتك؟

ممكن تجرب هذا برنامج العهدة لمصروفات التشغيل.rar

يا ريت لو ممكن الحل بالمعادلات

جرب هذا لعله المطلوب md.rar

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير >>> جزاكم الله خير الجزاء اولا اعتذر عن تغيبى عن المنتدى وتأخرى فى الرد لشدة مرضى. ثانيا حاولت تلك الطريقة وكنت اعرفها مسبقا ولكن دون جدوى ثالثا الحمد لله رب العالمين الذى تتم بنعمته الصالحات فلله الحمد كما ينبغى لجلال وجهه ولعظيم سلطانه بتفضله سبحانه وتعالى على بالحصول على نتيجة ممتازة لحل هذه المشكلة العويصة فلقد قمت بإزاله برنامج الاوفيس نهائيا واعادة تصطيبه من جديد دون جدوى ولكن هدانى الله بالتفكير فى انه بسبب ازالة الاوفيس واعادة تصطيبه يدل عدم حل تلك المشكله على انها لم تكون مشكلة فى برنامج الاوفيس حيث لو انها كذلك كانت انتهت وتم تلافيها لذلك توقعت ان المشكلة تكمن فى ملفات تسجيل نسخة الاوفيس والتى تتعلق بنظام التشغيل اى فى الريجسترى registry وعلى هذا الاساس بدأت رحلة البحث الطويلة والمضنية على الانترنت ووفقنى الله لوجود الحل فى احد المنتديات الاجنبية وهذا من امانة النقل بعد إذن استاذى الجليل ومعلمى القدير اعرض حل المشكله حتى تعم الفائدة اولا يجب عمل مستخدم جديد من لوحة التحكم Cntrolpanel - على سبيل المثال او كما فعلت انا المستخدم Guest - التغير الى المستخدم الجديد بإسم Guest كما هو موضح فى الصورة الاتية ثانيا بعد الدخول الى النظام عن طريق المستخدم Guest يجب الذهاب الى هذا المسار فى الريجسترى registry [HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security] لمن لا يعرف طريق الوصول - الضغط على مفتاحى windows key + R من الكيبورد كما فى الصورة التالية - تفتح النافذة التالية تلقائيا - نكتب المر التالى regedit ثم نضغط على زر الامر OK كما فى الصورة التالية - تفتح نافذة الريجسترى كما فى تلك الصورة اتبع الخطوات فى الصور الذى يتم اختيارها --- : HKEY_CURRENT_USER --- : \Software --: \Microsoft --: \Office --: \15.0 للعلم الرقم 15.0 يدل على اصدار الاوفيس انا اعمل على الاصدار 2013 لذلك رقم الاصدار هو 15.0 وارقام الاصدارات المختلفة كالاتى على ما اعتقد طبعا مفيش رقم 13 لانهم لايحبوا هذا الرقم ويتشائمون منه ☺ اوفيس 2000 09.0 اوفيس 2002 10.0 اوفيس 2003 11.0 اوفيس 2007 12.0 اوفيس 2010 14.0 اوفيس 2013 15.0 --: \Access --: \Security وبعد الوصول الى تلك النافذة يتم تصدير الــ Security يتم عمل تصدير بالضغط بالماوس على Security ثم اختيار الامر Export كما فى الصورى الاتية يتم اختار مكان لحفظ الملف ( مسار ) الناتج عن التصدير وكذلك اختيار اسم له وأخيرا يتم تغير المستخدم الى المستخدم الاصلى ثم الدخول لمسار الملف الذى تم تصديره من الخطوة السابقة والضغط عليه بالماوس وتفعيله وبهذا يتم حل المشكله حل جزرى ان شاء الله اعتذر للاطاله وأرجوا ان يكون فى موضوعى افادة ان شاء الله وهذا رابط خارجى للصور لمن ارادها مجمعه نظرا لكبر الحجم لم استطع رفعها على المنتدى الرابط من هنا

بارك الله لك استاذ عماد كنت متوقع إنك انت اللي هتجيب الحلين ولحل مثل هذه الألغاز أنا شخصياً استعملت أكواد vba هذا هو Sub mas() Dim n, cm, cw, ch As Integer n = 1 For cm = 1 To 98 For cw = 1 To 98 For ch = 1 To 98 If cm * 5 + cw + ch / 10 = 100 And cm + cw + ch = 100 Then ActiveSheet.Cells(n, 1).Value = "عدد الجمال : " & cm & " عدد البقر : " & cw & " عدد الخرفان : " & ch n = n + 1 End If Next ch Next cw Next cm MsgBox "تمت بحمد الله" End Sub وحصلت على المطلوب خلال ثانيتين بعد تفكير دقيقتين في ترتيب الكود ........... بانتظار ألغاز حسابية جديدة

بارك الله فيك أخي مجدي أشك في صحة الشرط الثالث لأن هذا ما توصلت إليه ......... الكتاب: التجاريب - المؤلف : ولي الدين - عدد الصفحات: 142 - الطالب: منير الكتاب: الآثار الباقية - المؤلف : رشيد أيوب - عدد الصفحات: 154 - الطالب: كامل الكتاب: أعاني الدرويش - المؤلف : أبو الريحان البيروني - عدد الصفحات: 137 - الطالب: بسام

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