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

بعد إذن أخينا الفاضل محمد هشام هذا الكود بنفس طريقتك Sub ww() Dim sh As Worksheet, i As Double: i = 2 For Each sh In Sheets If sh.Name <> "Sheet1" And sh.Name <> "Sheet2" And sh.Name <> "Sheet3" And sh.Name <> "Sheet7" Then Sheets("Sheet1").Hyperlinks.Add Sheets("Sheet1").Cells(i, 1), "", "'" & sh.Name & "'!a1", sh.Name, sh.Name sh.Hyperlinks.Add sh.Cells(1, 5), "", "'Sheet1'!a1", "Sheet1", "رجوغ" sh.Cells(1, 5).Font.Size = 30: i = i + 1 End If Next MsgBox "Dobe by mr-mas.com" End Sub رغم أني أعتقد كان من السهل على حضرتك عمل التعديل إن كنت حضرتك صاحب الكود أما إن كنت استخدمت كود غيرك فمن الواضح أنك لم تقم بمدارسته وفهمه بالتوفيق

تفضل جرب Sub test() Dim i As Integer i = 2 For Each sh In ThisWorkbook.Worksheets Select Case sh.Name Case Is = "Sheet1", "Sheet2", "Sheet3", "Sheet7" '<----- 'تجاهل الاوراق التالية Case Else Application.ScreenUpdating = False ActiveWorkbook.Sheets("Sheet1").Hyperlinks.Add _ Anchor:=ActiveWorkbook.Sheets("Sheet1").Cells(i, 1), _ Address:="", _ SubAddress:="'" & sh.Name & "'!A1", _ TextToDisplay:=sh.Name sh.Hyperlinks.Add Anchor:=sh.Range("E1"), Address:="", SubAddress:="Sheet1" & "!A1", TextToDisplay:="رجوع" sh.Range("E1").Font.Size = 30: sh.Rows(1).AutoFit i = i + 1 End Select Next sh Application.ScreenUpdating = True End Sub ارتباط تشعبي.xlsm

السلام عليكم ورحمة الله وبركاته جواباً لطلبك الثاني أخي الكريم وبعد إذن من سبقني من الأساتذة الكرام وحسبما فهمت من سؤالك يمكنك وضع معادلة الأستاذ الكريم محمد صالح بشرطي المبلغ والسنتين والله أعلم في الخلية D14 :يمكنك وضع هذه المعادلة: =IF(AND($D$12=3521;$G$9=2);100%;SUM(G9*360;F9*30;E9)/720) والسلام عليكم.

الفاتح سعيد الحسن ..المشكلة عندك انت بنظام جهاز الكمبيوتر لديك فربما لديك ; بدلا من , فعليك بتغيير الفصلة العادية داخل المعادلة بالفاصلة المنقوطة =IF(AE4="";""; IF(AE4>30;if(COUNTIF($AE$4:AE4;">"&30)=1;25%;if(COUNTIF($AE$4:AE4;">"&30)=2;50%;if(COUNTIF($AE$4:AE4;">"&30)=3;75%;100%))); IF(AE4>15;if(COUNTIF($AE$4:AE4;">"&15)=1;10%;if(COUNTIF($AE$4:AE4;">"&15)=2;15%;if(COUNTIF($AE$4:AE4;">"&15)=3;25%;50%))); if(COUNTIF($AE$4:AE4;"<="&15)=1;5%;if(COUNTIF($AE$4:AE4;"<="&15)=2;10%;if(COUNTIF($AE$4:AE4;"<="&15)=3;20%;20%))) )))

الف شكر لكم على المساعدة

جزالك الله خيرا معلمنا @Foksh

تفضل هذا التعديل كما طلبت ، عند بداية كل سنة سيقوم بحذف السجلات التي حددتها فقط . Reset_Tbl.accdb

اعمل نسخة احتياطية من الداتا ان كانت مهمة جداً ، وقم بالتجربة على العلاقات حسب التغييرات ، لإنه من كلامك لن تستطيع ارفاق القاعدة لرؤيتها

السلام عليكم اخى الفاضل محمد سعيد رشاد اولا : خذ نسخة من البرنامج قبل التعديل وضعها فى مكان امن حتى اذا ساءت الامور معك لا تفقد البرنامج ككل وتخسر هذا المجهود المبذول (اهم واخطر خطوة احرص عليها اولا) ثانيا : يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية ، لان العربية تحدث فيها مشاكل مع الأكواد ثالثا : يفضل عدم ترك مسافات بين المسميات عند تسمية الحقول واستبدلها بإشارة "_" رابعا : راجع بعض مشاركات الاخوة الافاضل فى المنتدى ستحصل على فوائد كثيرة ارجو لك التوفيق والسداد

السلام عليكم اخى الفاضل tarekali855 من فضلك ارفق البرنامج ولو فيه معلومات مهمة احذفها ثم أرسله حتى يتم رؤية الموضوع بوضوح او ارسل الجزء من البرنامج الذى فيه المشكلة على الاقل فالامر غير واضح بالنسبة لى ارجو لك التوفيق والسداد

السلام عليكم اخى الفاضل rhmano ممكن ترفع البرنامج على موقع تانى مش عارف احمل البرنامج من الموقع المرفوع عليه او لو حجمه صغير اضغطه وحمله على المنتدى

ماشاء الله استاذ محمد صالح و استاذ محمد هاشم جعله الله في ميزان حسناتكم

بارك الله فيك يعمل بشكل جيد شكراً جزيلاً لمجهودك ووقتك

السلام عليكم تفضل تم المطلوب endsplash error.xlsm

تفضل أستاذ @Abdelaziz Osman طلبك بالاستعلام (Query1) الحقل (AA) ووافني بالرد . tab20 -1- استخراج الذى اخره العام الجار.mdb

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية AE5 مع نسخها يسارا =IF(AE4="","", IF(AE4>30,if(COUNTIF($AE$4:AE4,">"&30)=1,25%,if(COUNTIF($AE$4:AE4,">"&30)=2,50%,if(COUNTIF($AE$4:AE4,">"&30)=3,75%,100%))), IF(AE4>15,if(COUNTIF($AE$4:AE4,">"&15)=1,10%,if(COUNTIF($AE$4:AE4,">"&15)=2,15%,if(COUNTIF($AE$4:AE4,">"&15)=3,25%,50%))), if(COUNTIF($AE$4:AE4,"<="&15)=1,5%,if(COUNTIF($AE$4:AE4,"<="&15)=2,10%,if(COUNTIF($AE$4:AE4,"<="&15)=3,20%,20%))) ))) مع تغيير تنسيق الخلايا لهذا الصف نسبة مئوية percentage بالتوفيق

عليكم السلام ورحمة الله وبركاته إذا كان المقصود عدد أيام المكافأة فيمكنك حسابها بهذه المعادلة =IF(C7/360>5,75+(CEILING(C7/360,1)-5)*30,CEILING(C7/360,1)*15) وإذا كان المقصود حساب مكافأة هذه الأيام بناء على راتب الشهر المكتوب يمكنك استعمال هذه المعادلة =IF(C7/360>5,75+(CEILING(C7/360,1)-5)*30,CEILING(C7/360,1)*15)*C3/30 بالتوفيق

تفضل اخي الكريم مثال بسيط Try 2023 PDF.accdb لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة

Sub test() Dim a, x Dim i&, ii& Application.ScreenUpdating = False a = Range(Cells(2, 6), Cells(2, 6).End(xlDown)).Cells With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If Not .exists(a(i, 1)) Then .Add a(i, 1), a(i, 1) Next For i = 2 To Cells(1, 9).CurrentRegion.Rows.Count For ii = 9 To 9 + Cells(1, 9).CurrentRegion.Columns.Count - 1 If Not .exists((Cells(i, ii).Value)) Then Cells(i, ii).Interior.Color = vbRed Else Cells(i, ii).Interior.Color = 16777164 End If Next: Next End With Application.ScreenUpdating = True End Sub Sub tes2() Dim a, x x = Cells(1, 9).CurrentRegion.Columns.Count Dim i&, ii& Application.ScreenUpdating = False With CreateObject("scripting.dictionary") For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row If Not .exists(Cells(i, 6).Value) Then .Add Cells(i, 6).Value, "" Next For i = 2 To Cells(1, 9).CurrentRegion.Rows.Count For ii = 9 To 9 + Cells(1, 9).CurrentRegion.Columns.Count - 1 If Not .exists((Cells(i, ii).Value)) Then Cells(i, ii).Interior.Color = vbYellow Else Cells(i, ii).Interior.Color = 16777164 End If Next: Next End With Application.ScreenUpdating = True End Sub

انا عملتها على عجل (لانى باكون فى الشغل وبيطلب منى شغل تاني) لكنها فكره جيده لجلب البيانات مره واحده

في الخلية D14 يمكنك استعمال هذه المعادلة على اعتبار أن السنة 360 يكون العامان 720 =SUM(G9*360,F9*30,E9)/720 بالتوفيق

اصدقائي الاكارم السلام عليكم و رحمة الله و بركاته الجزء الخامس درس اليوم هو الدرس الاخير في سلسلة تحويل قاعدة بيانات اكسس الى SQL في هذا الدرس سنقوم بربط الجداول من SQL الى قاعدة بيانات اكسس اضافة للبرنامج : انشاء نسخة احتياطية و استعادتها 😊 الجزء الخامس.accdb الجزء الخامس.pdf