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

السلام عليكم ورحمة الله وبركاته أخي @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يكون مصدر السجلات الجدول الثاني مجرد اقتراح ..فانا لم اجرب هذا العمل ربما اخي @أبو عبدالله الحلوانى يدرس الفكرة

جرب المرفق ...كلمة المرور 123 اضهار شيت الاكسل بكلمة مرر.xls

بدون زر ادخل قيمة في المدى 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

تفضل أخي @حامل المسك 🙂 الحاق البيانات.accdb

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

تفضل دالة if.xlsx

أخى الكريم لو ممكن رفع الملف بارك الله فيك

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

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

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

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

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

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

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

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

لك ما طلبت deff globale2018-2.xlsx

تفضل deff globale2018-1.xlsx

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

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

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

لقد تمت الإجابة من قبل من طرف أستاذنا العلامة زيزو العجوز إمكانية البحث بأي كلمة في الاسم أو برقم.xls

جرب هذا excel.rar

هل ينفع معك هذا الملف ؟ علامات.xlsm

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

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

جزاك الله كل خير وزادك من علمه ووفقك لما يحب ويرضاه

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

بارك الله لك استاذ عماد كنت متوقع إنك انت اللي هتجيب الحلين ولحل مثل هذه الألغاز أنا شخصياً استعملت أكواد 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 وحصلت على المطلوب خلال ثانيتين بعد تفكير دقيقتين في ترتيب الكود ........... بانتظار ألغاز حسابية جديدة

أخي الكريم بما أنك تستخدم أوفيس حديث 2007 أو 2010 اكتب في الخلية i9 طبيب ثم اكتب هذه المعادلة في الخلية i10 =COUNTIFS(D$4:D$25,$I$9,E$4:E$25,G10) ثم انسخ المعادلة رأسياً لباقي المواقع ..... ومرفق ملفك بعد التعديل المعادلة في العمودين الأولين تنفع في أوفيس 2007 و 2010 والمعادلة في العمودين الآخرين تنقع مع أوفيس 2003 وما قبله العد بأكثر من شرط2003-2007.rar

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

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

أخي الكريم أبو الحسن أوفيس 2003 لا يقوم بتصدير الملفات بصيغة pdf ولعمل ذلك يمكن التحايل على ذلك بما يلي: تثبيت طابعة وهمية على الجهاز تقوم بحفظ ما تقوم بطباعته بصيغة pdf وأفضل طابعة في هذا المجال في رأيي هي pdf creator لتحميلها http://sourceforge.net/projects/pdfcreator/ واستعملها كطابعة عادية جداً ويمكنك استعمال كود الطباعة العادي معها

جنيهان

ما شاء الله الموضوع ازداد حماساً كما توقعت له بارك الله لكم جميعاً واسمحوا لي بإضافة بسيطة في موضوع المهر والمتوالية الهندسية لحل مثل هذه المتواليات وبثلاثة متغيرات هي: أول رقم في المتوالية (في حالتنا 1 ) الرقم الذي يتم الضرب فيه (في حالتنا 2 ) عدد مرات التكرار ( في حالتنا 30) تكون المعادلة كالتالي: =1*(2^30-1)/(2-1) بصورة أخرى = أول رقم في المتوالية * (الرقم المضروب فيه ^ عدد مرات التكرار - 1) / (الرقم المضروب فيه - 1) العلامة ^ تعني الأُس ويتم كتابتها ب shift+6 وجرب أن تغير طريقة اللغز بأرقام جديد وعدد مرات جديد وطبق المعادلة ستجد بإذن الله الحل صحيح ************** وأود أن أضيف إضافة بسيطة في هذا الأمر وهي أنه يمكنك عملها من خلال مقبض التعبئة fill handle بدون معادلات إلا للجمع فقط وذلك من خلال: اكتب في a1 الخلية الأولى 1 وفي a2 الخلية الثانية 2 ثم حدد الخليتين معاً ثم اسحب مقبض التعبئة بزر الفارة الأيمن إلى الصف 30 ثم اختر من القائمة "اتجاه نمو" growth trend ستجد المتوالية كاملة فقط يلزمك جمعها بـ sum ======== ولا ينقصني سوى دعاؤكم