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

السلام عليكم اخوتي الكرام اهدي العمل المتواضع اداة معلومات الموردين 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 أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!!! 💙

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

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

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

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

هذه المعادلة (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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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