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

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

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

فك الضغط بعد التحميل وافتح تجد فولدلر Release تجد Stup وستب البرنامج ومن ابدأ تجد البرنامج فى القوائم بأسم MON2 منه شغل البرنامج ملف تعليم الرياضيات مستوى اول مرفوع على جوجل درايف https://drive.google.com/open?id=1ICbEnXogfnnYYv0jBHMGNAkRZkOaSFCn وهذا رابط أيضاً على ميديا فاير MONeer2

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

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

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

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

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

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

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

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

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

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

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

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

شكرا لك استاذ احمد تمت التجربة

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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