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

السلام عليكم اخوتي الكرام اهدي العمل المتواضع اداة معلومات الموردين Suppliers Info Tool - مفتوح المصدر لكم لعلا هناك من يجده مفيدا. تم تصميمه من قبلي لجهة العمل التي اعمل بها لهذا لك كامل الحرية للاستفاذة منه و تعديله وليس لها اي حقوق. حسابات الدخول User Password ================ admin 123 Log 123 View view بالتوفيق YEM_LOG_DB.accdb

وعليكم السلام-فقط عليك بإستخدام هذه المعادلة بالتنسيقات الشرطية =OR($E7="الجمعة",$E7="السبت") Condation Fromat.xlsx

السلام عليكم -بالنسبة للطلب الأول , يمكنك استخدام هذه المعادلة =SUMIFS($C$2:$C$17,$A$2:$A$17,$F2,$D$2:$D$17,LETTEROUT($G2)) أما الطلب الثانى فهو يحتاج هذه المعادلة =MID(F11,1,FIND("ل/م",F11)-1) بعد الاضافة.xlsm

مشاركه مع اخى الفاضل @ناقل جزاه الله خيرا DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, "واجهه البرنامج" بالتوفيق اخوانى

"DoCmd.OpenReport "report name

ممكن ان يكون الماكرو المطلوب Option Explicit Sub Salim_Code() Dim Sh As Worksheet Dim Add1$, Add2$ Dim FRg As Range Dim m%, ro%, i%, x%, y% Set Sh = Sheets("Sheet1") Sh.Range("G2:P100").Clear ro = Sh.Cells(Rows.Count, 2).End(3).Row m = 7 For i = 2 To ro Set FRg = Sh.Range("D1:D" & ro).Find(Sh.Cells(i, 1), lookat:=1) If Not FRg Is Nothing Then Add1 = FRg.Row: Add2 = Add1 Do Cells(i, m) = Cells(Add2, 2) Cells(i, m + 1) = Cells(Add2, 3) Set FRg = Sh.Range("D1:D" & ro).FindNext(FRg) Add2 = FRg.Row m = m + 2 Loop Until Add2 = Add1 End If m = 7 Next x = Sh.Cells(Rows.Count, "G").End(3).Row For i = 2 To x If Sh.Cells(i, "G") <> vbNullString Then y = Application.CountA(Sh.Cells(i, "G").Resize(, 10)) With Sh.Cells(i, "G").Resize(, y) .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True .Interior.ColorIndex = 35 End With End If Next End Sub الملف مرفق My_Employ.xlsm

جرب هذا الماكرو Option Explicit Sub Farz() Dim Sh As Worksheet Dim col As New Collection Dim arr(), x%, m%, ro%, i%, y% Set Sh = Sheets("Sheet1") ro = Sh.Cells(Rows.Count, 2).End(3).Row With Sh .Range("F3").CurrentRegion.Clear For i = 2 To ro On Error Resume Next If .Cells(i, 4) <> vbNullString Then col.Add .Cells(i, 4).Value, CStr(.Cells(i, 4).Value) End If Next On Error GoTo 0 m = 3: y = 7 If col.Count Then For i = 1 To col.Count .Cells(m, y - 1) = col(i) For x = 2 To ro If .Cells(x, 4) = col(i) Then .Cells(m, y) = .Cells(x, 2) .Cells(m, y + 1) = .Cells(x, 3) y = y + 2 End If Next m = m + 1: y = 7 Next End If End With If Sh.Cells(3, "F") <> vbNullString Then With Sh.Range("F3").CurrentRegion .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True .Interior.ColorIndex = 40 .Sort key1:=.Cells(1, 1), Header:=2 End With End If Set col = Nothing End Sub الملف مرفق Common_Employ.xlsm

وعليكم السلام 🙂 المشكلة مو في فتح التقرير ، ولا متغيرات ، وانما أمر اغلاق النموذج غير كامل ، لذا يجب ان يكون الامر هكذا : DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, "واجهه البرنامج",acsaveno او الافضل ان لا تذكر اسم النموذج بالاسم ، وانما بمناداة اسمه DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, me.name ,acsaveno جعفر

يمكنك استخدام هذه المعادلة بعمود الفعلى بداية من الخلية D2 =IF(A2=B2,C2,IF(OR(C2-B2<0,$C2<MAX(A2:B2)),MAX(A2:B2),C2-B2)) تحويل السالب لى موجب1.xls

وعليكم السلام -يمكنك استخدام هذا الكود Private Sub TextBox1_AfterUpdate() If Len(TextBox1.Value) < 5 Then MsgBox "يجب عليك ادخال 5 حروف أو أكثر" End If End Sub ListBox1.xlsm

هذه المعادلة (Ctrl+Shift+Enter) =CHOOSE((OR(E$1="الكل",F$1="All")+1),IF(ROWS($B$4:B4)>SUMPRODUCT(--(Data!$R$2:$R$200&Data!$S$2:$S$200=E$1&F$1)),"",INDEX(Data!$D$2:$D$200,SMALL(IF(Data!$D$2:$D$200<>"",IF(Data!$R$2:$R$200&Data!$S$2:$S$200=E$1&F$1,ROW(Data!$D$2:$D$200)-ROW(Data!$D$2)+1)),ROWS($B$4:B4)))),Data!D2) الملف مرفق Cond_filter3.xlsx

للأسف حسب ميكروسوفت النسخ أقل من 2010 لا تدعم slicer هذه اجابة من ميكروسفت Belinda V. MurrayReplied on October 14, 2016 Hi, I am afraid that slicers do not work in Excel 2007. It has been introduced in Excel 2010. Which means you are able to use it in the versions 2010, 2013 and 2016. Hope to have clarified your question. Greetings, Belinda لكن يمكنك عمل DashBoard بهذه الطريقة https://www.youtube.com/watch?v=eYwFVeVQ8lM&feature=related

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

شكرا

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ جرب ووافنا بالنتيجه بالتوفيق اخى ازهر TEST1 (4) - Copy(1).accdb

جزاك الله عنا كل خير و نفعنا بك و زادك الله من فضله الاخ و الاستاذ سليم حاصبيا

الف الف شكر لسيادتكم

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

أبشر يا أخ أحمد بدعوات في ظهر الغيب . الله يرحم والديك ويبارك فيك وفي رزقك . شكرا لك

اتفضل ان شاء الله يكون ما تريد ومع اذان المغرب والافطار تقبل الله صيامكم لعل انول دعوه صالحه بالتوفيق اخى 333.mdb

من مضمون الرسالة طبعا تقصد ان ليس لديك مساحة كافية على الهارد ديسك لجهازك لإجراء العملية الذى تريدها , فيجب عليك ايجاد مساحة كافية على الهارد

تماماً هو المطلوب استاذنا القدير حل اكثر من رائع. شكرًا جزيلاً.

وعليكم السلام 🙂 1- الكل 2- اي شيء بين هذه العلامتين هو نص 3- نهاية السجلات 4- مرجع ، سواء الى مكان السجل في النموذج ، او في نسخة سجلات النموذج (انظر الرقم 5) 5- اشارة الى نسخة من سجلات النموذج ، في ذاكرة الكمبيوتر المؤقته 6 و 7 - انواع المتغيرات ، وهنا شرح وافي للموضوع: جعفر

motaha أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!! 💙

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اهلا وسهلا اخى احمد وانا اخوك الصغير احمد بالتوفيق ابوحميد

وعليكم السلام ع حسب ما فهمت من شرحك انك تريد عدم السماح باكثر من 2 اذن خلال الشهر لكل موظف اضفت لك حقل بالنموذج لعرض عدد الاذون التى تمت خلال الشهر ولن يسمح باكثر من اذنين ولديك استعلام لعدد الاذون خلال كل شهر انظر للاستعلام اضفت اذنان لكل شهر 5 و 6 للموظف الاول 2084 واذنان لشهر 5 للموظف 2085 جرب ووافنا بالنتيجه وهل هذا ما تريد ؟ بالتوفيق اخى Aja0016.accdb

السلام عليكم اخى @waheidi بالاضافه الى ما تفضل به اخى الفاضل @خالد عبد الغفار جزاه الله خيرا عدل الحدث الخاص باضافه طالب الى Private Sub أمر13_Click() Form_Load End Sub وذلك لانه عند تسجيل طالب اخر مباشره وعند اختيار الحاله الصحيه يعطيك خطأ لرقم الطالب والمفروض انه ده مسلسل مش رقم الطالب ولا ده مثال فقط لشرح ما تريد بالتوفيق اخوانى

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

الف شكر يااستاذ أشرف . بارك الله فيك

هذه المعادلة (Ctrl+Shift+Enter) ولا حاجة الى (IFERROR) =IF(E$1="الكل",Data!D2,IF(ROWS($B$4:B4)>COUNTIF(Data!$R$2:$R$200,E$1),"",INDEX(Data!$D$2:$D$200,SMALL(IF(Data!$D$2:$D$200<>"", IF(Data!$R$2:$R$200=E$1, ROW(Data!$D$2:$D$200)-ROW(Data!$D$2)+1)),ROWS($B$4:B4))))) الملف مرفق Cond_filter.xlsx

شكرا اخي الفاضل رمضان كريم

اتفضل zoom10 اتمني ان يكون المطلوب اي تعديلات اهلا وسهلا 111f.rar

السلام عليكم هل هذا هو المطلوب 2222.rar

بالتوفيق اخي الفاضل سيد والشكر لله سبحانة 🌹

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

ومن باب الفائدة ماذا لو اردنا ان نضع تلميح لمربع نص او مربع تحرير وسرد ايضا من خصائص الحقل تنسيق نضع التالي @;"اكتب اسم الموظف" مابين علامات الاقتباس نكتب النص المطلوب ظهورة

وعليكم السلام-كان عليك رفع الملف نفسه ولكن كل ما عليك فعله ان تحدد العمود الذى تريد ضبط الأرقام بداخله وتقوم بعد ذلك بالضغط بيمين الماوس ثم تختار Format Cells وبعد ذلك تضغط على قائمة Number وتختار Custom ثم بعد ذلك تضغط على 0 ثم Ok وذلك كما بالصورة

يمكنك استخدام هذه المعادلة =IF(AND(WEEKDAY($B4)=6,$C4="حضور"),1,"") حساب يوم الجمعة2.xlsx

تفضل نسخ غياب1.xlsm

اذا البرنامج بصيغة mdb او mde ، فنعم في برامج لفك كلمة السر ، ولكن لا يوجد برنامج لفك كلمة السر للبرامج بصيغة accdb او accde ، فكل البرامج عندها محاولات لفك كلمة السر ، كما ذكرت في الرابط اعلاه 🙂 والحكم الانترنت ، ابحث ، وبتشوف النتائج 🙂 جعفر

ما هو الخطأ الذى يواجهك ماذا تقصد ؟ حدد الخطأ فى الملف لو سمحت

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

تفضل اصناف12.xlsm

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

ضع قبل معادلة Vlookup IFERROR لتصبح المعادلة مثلا هكذا =IFERROR(VLOOKUP(B3,$C$1:$D$10,2,0),"")

تفضل استاذ شكرى لك ما طلبت اصناف1.xlsm

اخي الكريم نفس الكود تستطيع ان تستعمله في اكثر من ورقة عمل مع مراعاه تغير اسم ورقة العمل داخل الكود.

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