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

Ferry Login v1- free.rar

لا تحتاج كود أخي الكريم ، ولكن يجب ان تنتبه لنقطة مهمة ، بما أن القيمة التي سيتم إدراجها في الحقل = نصية ، فيجب تغيير نوع الحقل من رقمي الى نصي للحقل Age !!!! جرب هذه الفكرة في المرفق :- EMPTY TEXT.accdb

شرف ليا انى اضيف موضوع وسط اساتذتى https://www.mediafire.com/file/pzr38qxqwg4e2a2/Ferry_Login_v1-_free.accdb/file Ferry Login v1free.accdb

بعد التجربة شغال بامتياز هذا هو المطلوب بالضبط (و قد اعتمدت الخيار الأول) بارك الله فيك و جزاك الله كل خير استاذنا @Moosak ألف شكر وامتنان

تسلم اخي الحبيب @Foksh عاشت ايدك هذا هو المطلوب

السلام عليكم لا اعلم سبب وجود كل الشهادات لعدد 21 صفحة ثم يتم التغيير الى مجموعة ثانية كان الافضل الاكتفاء بورقة واحدة بها 3 شهادات وهذا ما قمت به فيروسات سبب تجمد الجهاز له اسباب كثيرة اقلها مواصفات الجهاز - الجهاز به فيروسات- البرامج الغير ضروروية التي تعمل في الخلقية والتي تستهلك ذاكرة على كل حال الاكواد جربتها على جهازي اكسل 2016 وندوز10 نظام 64 والاكواد تعمل عادي جرب الملف طباعة كافة الشهادات وتصديرها pdf.xlsb

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

جرب تغيير القيمة من القوائم المنسدلة 🙂 : baseV.accdb وهذا تعديل آخر في حال أنك لم ترد تغيير الدرجات السابقة للأشخاص الذين تم إدخال درجاتهم مسبقا .. baseV.accdb

تصميم جميل وراقي ماشاء الله .. 🙂🌹🌷

ما شاء الله .. إبداااع وتحديث جديد لمولد كلمات المرور بارك الله فيك أستاذ @فريدالطحان

وعليكم السلام ورحمة الله وبركاته ، أخي @Mohamed Abo Elala ، هلا ارفقت مثال على طلبك ليتم التطبيق عليه ,, هناك فكرة علها تفيدك ولكن بعد ارفاقك للملف .

السلام عليكم جزاك الله خيرا على دعائك جرب التعديل في المرفق وان لم يكن الامر هو المطلوب فاعذرنى قال توقف تفكيري وتركيزي ياريته معاي توقف وبس مش لاقيه خالص تحياتي sample.xlsb (1) (1).xlsm

وعليكم السلام ورحمة الله نعالى وبركاته دالة IFS هي دالة موجودة في إصدارات Excel الحديثة ولكنها غير مدعومة في Excel 2019 يمكنك استخدام دوال أخرى مثل IF المتداخلة لتحقيق نفس الوظيفة على سبيل المثال =IF(A2="","",IF(A2<5,"ضعيف",IF(A2<10,"متوسط",IF(A2<15,"حسن","ممتاز")))) أو =IF(A2="","",CHOOSE(MATCH(A2,{0,5,10,15},1),"ضعيف","متوسط","حسن","ممتاز")) يمكنك تعديل هذه الصيغ لتشمل العديد من الشروط المتداخلة حسب حاجتك إذا كنت ترغب في محاكاة دالة IFS باستخدام VBA يمكننا كتابة دالة مخصصة تقوم بالتحقق من عدة شروط في تسلسل مشابه لدالة IFS في Module قم بلصق الكود التالي Function IFS_Formula(ParamArray tmp() As Variant) As Variant Dim i As Integer For i = LBound(tmp) To UBound(tmp) Step 2 If tmp(i) Then IFS_Formula = tmp(i + 1) Exit Function End If Next i IFS_Formula = CVErr(xlErrValue) End Function واستخدام الدالة التالية =IFS_Formula(A2="","",A2<5,"ضعيف",A2<10,"متوسط",A2<15,"حسن",A2>=15,"ممتاز") في حالة لديك حاجة مستمرة لاستخدام دالة IFS فإن الحل الأكثر فعالية سيكون الترقية إلى Excel 2021 رابط التحميل https://www.mediafire.com/file/2iky3sdt2ojv6ag/Office_2016-2021-x86_x64-EN_FR.M-HICHAM.rar/file حيث تكون هذه الدالة مدعومة بشكل كامل بالتوفيق............. TEST-IFS.xlsb

ومشاركة مع استاذى واخى الحبيب الاستاذ @Foksh طريقتى المتواضعة zint barcode generator V2.zip

وعليكم السلام ورحمة الله تعالى وبركاته Sub MergeTotal() Dim WS As Worksheet, crWS As Worksheet, LastRow As Long, Irow As Long On Error Resume Next Set crWS = Sheets("total") On Error GoTo 0 If crWS Is Nothing Then MsgBox " غير موجودة total ورقة ", vbInformation Exit Sub Else Application.ScreenUpdating = False crWS.Range("A2:O" & crWS.Rows.Count).Clear End If Irow = 2 For Each WS In ThisWorkbook.Sheets If WS.Name <> crWS.Name Then LastRow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row If LastRow >= 2 Then WS.Range("A2:O" & LastRow).Copy crWS.Cells(Irow, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme Irow = crWS.Cells(crWS.Rows.Count, 1).End(xlUp).Row + 1 End If End If Next WS Application.CutCopyMode = False Application.ScreenUpdating = True End Sub or Sub MergeTotal() Dim WS As Worksheet, Src As Worksheet Dim OnRng As Variant, rng As Range, r As Range Dim lastRow As Long, tmp As Long, col As Integer Set WS = Sheets("total") Application.ScreenUpdating = False lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row If lastRow > 1 Then: WS.Rows("2:" & lastRow).Clear tmp = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row + 1 For Each Src In ThisWorkbook.Sheets If Src.Name <> WS.Name Then OnRng = Src.Range("A2:O" & Src.Cells(Src.Rows.Count, "A").End(xlUp).Row).Value WS.Cells(tmp, 1).Resize(UBound(OnRng, 1), UBound(OnRng, 2)).Value = OnRng For lastRow = 1 To Src.Cells(Src.Rows.Count, "A").End(xlUp).Row WS.Rows(tmp + lastRow - 1).RowHeight = 18.5 Next lastRow tmp = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row + 1 End If Next Src With WS.Range("A1:O" & WS.Cells(WS.Rows.Count, "A").End(xlUp).Row) .Borders.LineStyle = xlContinuous: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With Application.ScreenUpdating = True End Sub الرواتب.xlsb