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

الان وضح طلبك جرب المعادلة ادناه =SUMPRODUCT((E2:E9=INT(E2:E9))*(E2:E9)) واي استفسار خبرني انظر للملف SumCurrency.xlsx

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]=" & [ud1])

بالتوفيق ان شاء الله ومبارك الترقية ..أعانك الله على مهامك ومسؤلياتك الجديدة

بارك الله فيك أستاذ ماجد وزادك الله من فضله

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

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

ألف مبروك استاذ عمرو وبالتوفيق والنجاح دائماً ووفقك الله

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

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

وعليكم السلام بارك الله فيك وزادك الله من فضله

ممتاز أحسنت استاذى الكريم

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

أحسنت استاذ جعفر ... كود ممتاز جزاك الله كل خير وأحسن الله اليك

السلام عليكم ...إليك الحل أخي الكريم =CONCATENATE(TEXT(A2;"yyy/mm/dd");" ";TEXT(B2;"hh:mm am/pm")) New XLS Worksheet.xls

تفضل أخي الكريم توزيع11.xlsx

صورة توضيحية أكثر

If Sheets("ورقة1").Cells(Y, 1) = TextBox1.Text Then Exit For End If Next Y With Sheets("ورقة1") .Cells(Y, 2) = ComboBox1.Text .Cells(Y, 3) = TextBox2.Text .Cells(Y, 4) = TextBox3.Text .Cells(Y, 5) = TextBox4.Text .Cells(Y, 6) = TextBox5.Text .Cells(Y, 7) = TextBox6.Text .Cells(Y, 8) = TextBox7.Text .Cells(Y, 9) = TextBox8.Text End With جرب هذا التعديل على Private Sub CommandButton2_Click()

أخي العزيز البداية تبدأ من المصفوفة A بدل A = Cells(1).CurrentRegion يجب أن تكون A = Cells(1, 1).Resize(Cells(Rows.Count, 4).End(xlUp).Row, 11) ومن ثم يجب استبدال كل A(i,1) بـ A(i,4) وبما أنك الغيت A(i,4) من المصفوفة Array(A(i, 9), A(i, 10), A(i, 11)) فيجب إضافة سطر آخر في النهاية Sheets("الخلاصة").Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) على كل مبين بالكود التالي Sub test() Dim A As Variant: Dim w As Variant Dim i As Long: Dim ii As Long ' A = Cells(1).CurrentRegion A = Cells(1, 1).Resize(Cells(Rows.Count, 4).End(xlUp).Row, 11) With CreateObject("scripting.dictionary") For i = 1 To UBound(A) If Not .exists(A(i, 4)) Then .Add A(i, 4), Array(A(i, 9), A(i, 10), A(i, 11)) Else w = .Item(A(i, 4)) For ii = 0 To UBound(w) w(ii) = w(ii) + A(i, ii + 9) Next .Item(A(i, 4)) = w End If Next ' Sheets("الخلاصة").Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) Sheets("الخلاصة").Cells(1, 2).Resize(.Count, 3) = Application.Index(.items, 0, 0) Sheets("الخلاصة").Select End With End Sub أرجو أن أكون قد أفدتك وجاهز لأي سؤال جمع المكرر (1) (2).xlsm

تحت الفترة الصباحية اكتبي هذه المعادلة =IF((H3=A2)*AND(C2<F$1),"حضر","لم يحضر") وتحت المسائية اكتبي هذه المعادلة =IF((H3=A2)*AND(C2>F$1),"حضر","لم يحضر") انظري للمرفق واي استفسار خبريني من فضلك SSS1.xlsx

It's better not to put a lot of codes in worksheet module such as worksheet_change. Just input your data and finally click on a button to do all the task for you in one shot

جربى هذا الفيديو

السلام عليكم يمكنك استخدام هذه المعادلة لإيجاد مجموع الكميات بالعمود D بداية من الخلية D2 سحباً للأسفل =IF(COUNTIF($B$2:B2,B2)=1,SUMIF($B:$B,$B2,$C:$C),"") وهذه معادلة النسبة المئوية بالعمود E =C2/VLOOKUP(B2,$B$2:$D$2000,3,0) تجربة1.xlsx

وعليكم السلام-بسيطة وسهلة يمكنك تشغيل هذا الخيار أو إيقاف تشغيله حسب الحاجة عبر القيام بما يلي: انقر فوق ملف >‏ خيارات. في الفئة خيارات متقدمة، ضمن خياراتالتحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإسقاطها أو قم بإزالتها.

لابد من تفعيل هذه الخاصية كما بالصورة .. وشكراً وبالتوفيق

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذا الكود Sub RmDupsU() Dim U As Range, N As Long, i As Long, wf As WorksheetFunction Dim rUP As Range Set U = Range("A:A") Set wf = Application.WorksheetFunction N = Cells(Rows.Count, "A").End(xlUp).Row For i = N To 2 Step -1 Set rUP = Range(Cells(i - 1, "A"), Cells(1, "A")) If wf.CountIf(rUP, Cells(i, "A").Value) > 0 Then Cells(i, "A").Clear Next i End Sub Duplicate Clear Contents.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

وعليكم السلام-اجعل المعادلة بالعمود C هكذا =VALUE(B1&A1) TEST1.xlsx

وعليكم السلام-دائماً وأبداً لابد من تدعيم اى مشاركة بملف موضح فيه المطلوب بكل دقة...فيمكنك استخراج الرقم 2018 بالمعادلة التالية =LEFT(AD1,LEN(AD1)-FIND("-",AD1)) أما 2019 بالمعادلة التالية =RIGHT(AD1,LEN(AD1)-FIND("-",AD1))

برنامج عملاء وموردين مفتوح المصدر مضاف نسخة بالتاريخ الهجري وأخري بالميلادي وبيانات الاستخدام كالتالي : البرنامج يعمل علي Office 2010 فما فوق اسم المستخدم : admin كلمة المرور : admin اسم المستخدم لتفعيل الشفت : ahmed كلمة السر : Ah0562982701 كلمة سر أكواد VBA فيجوال بيسك : ah0562982701 كلمة السر لتفريغ البيانات : 562982701 رابط البرنامج : http://www.mediafire.com/file/4atr6oxq1ptqm7q/إنجاز+نسخة+ميلادي.accdb http://www.mediafire.com/file/l2f334fkuyy7y5u/إنجاز+نسخة+هجري.accdb البرنامج مجاني و لا أريد الا دعوة صادقة لوجه الله تبارك تعالي بأن يعفر لوالدي ويديم الصحة والعافية علي والدتي وفي انتظار ارائكم ،،

تفضل لك ما طلبت بهذه المعادلة =SUMPRODUCT(($C$2:$C$17=$E6)*(SUBTOTAL(103,OFFSET($C2,ROW($C$2:$C$17)-MIN(ROW($C$2:$C$17)),0)))) معادلة عد الخلايا المرئية فقط بشروط.xlsx

قريبا ارفع مثال ربنا يذكرنا جميعا بالخير

احسنت وتشكر على الشرح ... ولو ارفقت مثال للشرح لكان اجمل للمبتدئين امثالي ... بارك الله فيك

شكرا جزيلا استاذ وليد @walid7799 بالنسبة لكود اضافة الصور نعم يعمل بصورة جيدة اما الماسح الضوئي ان شاء الله عدا اعمل عليه واجربه لانه لايتوفر لدي جهاز ماسح ضوئي فيدر بالمنزل تحياتي لك وبارك الله فيك

لم أكمل قرأة ما كتبته كنت مشغول وحالا خلصت تعديل القاعدة الخاصة بك وتم عمل جدولين جديد وعمل 2 نموذج الاساسى أسمه form1 وهو ما طلبت بكل نفاصيله وعليك التجربة متمنيا من الله خيراً ما تمنيته من عند العباد والحمد لله وصلى اللهم وسلم وزد بارك على سيد ولد أدم (محمد بن عبد الله) نبياً ورسولاً وخاتم المرسلين test.rar الملف الحفظ طبقا للكود E:\scan\in يمكن تغييره بالأكواد

أعطاك الله مثلما قلت وشرح صدر وحل العقدة من لسانك وفقه قولك وسدد رجاءك ولنا مثله

بارك الله فيك وجزاك الله خير شرح رائع الله يعطيك العافيه

وجزاكم بمثل ما دعوتم أخي الكريم يرجى التفضل بالإشارة إلى أفضل إجابة لإتمام الموضوع والسلام عليكم

جزيت خيرا

المعادله مرنه وموجود شرط الوقت من ضمنها ولكن في ملفك الثاني اوقات دخول وخروج الموظف على اساس 24 بينما في وقت التحديد موجود على اساس 12 ساعه فضلا التوضيح

أخي الحلبي .. يمكنك تطويع الكود في المرفق اللذي أرسله الأخ أبو الحسن .. هكذا .. تكتب الرسالة في الكود هكذا : ShowBalloonTooltip "اكتمل", "تم الحفظ بنجاح", btNone ولإظهار الأيكونة لديك عدة خيارات تكتبها في المتغير الثالث ، وهي كالتالي : btNone btInformation btWarning btCritical المرفق :رسالة الحفظ.accdb ولنعرف شكل الرسالة الذي تقصدة بالضبط ،، اعطنا رابط أو صورة للفيديو الذي شاهدته 🙂

حسناً استبدل Private Sub ListBox1_Click() بـ Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

المشكلة في تخطيط الحقول داخل النموذج اصلحت لك المشكلة ليس في النموذج فقط بل اضفت حقل فارغ في الاستعلام اعيد ملاحظتي مرة اخرى وهي انه يجب ان ترفق امثلتك حسب الحاجة فقط ، فاذا تم الحل تنقل الحل الى برنامجك وبهذه الطريقة تستفيد بان تمارس الحل من جهتك وهذا يفيد في رسوخ المعلومة . اذا واجهتني مشكلة اقوم بعمل مثال صغير متقن يوضح طلبي بالضبط ، وصدقني انني اتعب على ضبط واتقان هذا المثال ، واحيانا اتوصل الى الحل وقت اعدادي للمثال ، ولكني اطرحه في المنتدى فقد اجد حلولا اخرى افضل . الدائن و المدين-4.rar

طيب ان شاء الله الفكرة التي سوف احاول تطبيقها كالتالي : ( حسب ظروفي ..... الله ييسر الامور ) اضيف حقلين Reserve و Reserve1 في الجدول كما في الصورة ( Reserve لعدد نصاب المعلم من حصص الاحتياط خلال اسبوع و حقل Reserve1 عدد حصص الاحتياط المسندة للمعلم أي كلما نقوم باسناد حصة احتياط يتغير الرقم صعودا حتى يصل لعدد حصص الاحتياط في حقل Reserve ويتوقف البرنامج تلقائيا من اسناد حصص لهذا المعلم .... وملاحظة يبدأ البرنامج باسناد حصص الاحتياط للمعلمين الاقل نصاب وهكذا ......... ___________________________________________________ عند عدم وجود معلم احتياط لحصة من الحصص يقوم البرنامج باظهار خانة اسم المعلم المنظر فارغة حتى يتم اسناد الحصة يدويا .....

تفضل اخى تصميم الاخوة بالمنتدى تقبل احترامى عرض رسالة على شريط المهام.accdb

شكر وتقدير واحترام من اخيك

فترة الضمان تكون صفر تمام مفهومة لكن لماذا يتم ازالة تاريخ نهاية الضمان وهي بوجهة نظري معلومة مفيدة يجب حفظها بقاعدة البيانات ليتم الرجوع اليها وقت الحاجة جرب هذه الفكرة لعلها تروق لك فترة الضمان.accdb

طيب انظر الصور .... وغير الكود الذي لديك بهذا الكود ...... Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim i, ii, e As Integer Dim str, str1, str2 As String str = "SELECT TBL_Rserve.IdEmployee, TBL_Rserve.Id_Day, TBL_Rserve.Period1, TBL_Rserve.Period2, TBL_Rserve.Period3, TBL_Rserve.Period4, TBL_Rserve.Period5, TBL_Rserve.Period6, TBL_Rserve.Period7, TBL_Rserve.Period8, TBL_Rserve.Id_Absence FROM TBL_Rserve WHERE (((TBL_Rserve.Id_Day)=" & Me.kan & ") AND ((TBL_Rserve.Id_Absence)=2));" str1 = "SELECT TBL_Rserve3.IdEmployee, TBL_Rserve3.Id_Day, TBL_Rserve3.Period, TBL_Rserve3.Id_Period FROM TBL_Rserve3;" str2 = "SELECT TBL_Rserve.IdEmployee, TBL_Rserve.Id_Day, TBL_Rserve.Period1, TBL_Rserve.Period2, TBL_Rserve.Period3, TBL_Rserve.Period4, TBL_Rserve.Period5, TBL_Rserve.Period6, TBL_Rserve.Period7, TBL_Rserve.Period8, TBL_Rserve.Id_Absence FROM TBL_Rserve WHERE (((TBL_Rserve.Id_Day)=" & Me.kan & ") AND ((TBL_Rserve.Id_Absence)=1));" Set db = CurrentDb Set rs = db.OpenRecordset(str) Set rs1 = db.OpenRecordset(str1) Set rs2 = db.OpenRecordset(str2) rs.MoveLast: rs.MoveFirst rs2.MoveLast: rs2.MoveFirst For i = 1 To 8 rs.MoveLast: rs.MoveFirst rs2.MoveLast: rs2.MoveFirst For iii = 1 To rs.RecordCount If rs("Period" & i) > 0 Then For ii = 1 To rs2.RecordCount Dim dd As Integer dd = rs2("IdEmployee") '.Value If IsNull(rs2("Period" & i)) Then If DCount("[IdEmployee]", "TBL_Rserve3", "[IdEmployee] = " & rs2("IdEmployee") & "") = 0 Then rs1.AddNew rs1!IdEmployee = rs2!IdEmployee.Value rs1!Id_Day = rs!Id_Day rs1!Id_Period = i rs1!Period = rs("Period" & i) rs1.Update rs2.MoveNext GoTo mystnext1 End If End If rs2.MoveNext Next ii End If mystnext1: rs.MoveNext Next iii Next i rs.Close Set rs = Nothing اما بالنسبة لــــــــــــ حلها لديك بان تحدد لكل معلم امامه ... حسب نصابة من الحصص عدد معين من حصص الاحتياط في الاسبوع مثلا معلم لدية 24 حصة مثلا تخصص له حصة احتياط واحد ومعلم لدية 10 حصص تخصص له 10 حصص احتياط اسبوعية مثلا أو حسب نظام التعليم لديك .... حتى يتكمن البرنامج من توزيع الاحتياط ومع كل عملية احتياط يتم خضم واحد من حصص الاحتياط وهكذا ....... حاول التعديل وأعلمنا بالنتيجة ....

وضح ... ماهي النتائج الغير صحيحة ولا تترك الموضوع عائم ... حتى نجد حل بامرالله ... ما هي النتائج الظاهرة لديك .. صورة لها ... وصورة للصحيح ...

وعليكم السلام-يمكنك وضع هذا الكود فى حدث Thisworkbook بملفك ... فقط عليك بوضع اسم جهازك بالكود مكان ("Computername") بين القوسين .. وشكرا وهذا كود بسيط لمعرفة اسم جهاز الكمبيوتر لديك .عند وضع بمديول عادى Sub know() Msgbox ENVIRON("Computername") End Sub Private Sub Workbook_Open() Dim ChkName As String ChkName = MY - PC If Environ("Computername") <> ChkName Then MsgBox "File is only available to PC: " & ChkName, _ vbCritical + vbOKOnly, "Cannot Open File" Application.DisplayAlerts = False ThisWorkbook.Close Exit Sub Else MsgBox "PC security check passed.", vbOKOnly + _ vbInformation, "File Open Succesful" End If End Sub