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

السلام عليكم اخوتي الكرام اهدي العمل المتواضع اداة معلومات الموردين 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

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

شكرا

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

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

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

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

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

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

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

وعليكم السلام-تفضل نموذج.xlsm

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

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

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

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

أحسنت اخى الكريم عمل رائع بارك الله فيك وزادك الله من فضله

وعليكم السلام -كان هناك خطأ بالمعادلة وتم تصحيحه -تفضل وهو انك قمت بتعديل وتغيير أعمدة مصدر جلب البيانات بالمعادلة -لاحظ الفرق بنفسك Std_7.xlsx

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

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

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

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

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

اهلا بك اخى الكريم فى المنتدى عليك برفع ملف وشرح عليه بالتفصيل ما تريده

تفضل نفس الشكل على الإكسيل Book1.xlsx

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

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

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

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

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

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

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