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

نسخة مختصرة لعرض التقارير فقط بسيط والكود بسيط ودالة مبسطة 1- من خلال المكرو تفتح قائمة مخترة من فورم ولكن خليته فاضي 2- لا يحمل جدول اعدادة الا مقاس الشاشة وتقرير هل يوجد مقترح بتعديل على عرض التقرير او التصميم او طريقة افضل منها ☕ ====================================( Video ) show_report_withcontrol.rar

وعليكم السلام ورحمة الله تعالى وبركاته بطريقة أخرى Sub TaxCivil() Dim Irow&, lastRow&, lastCol&, i&, j&, k&, WS As Worksheet, dest As Worksheet, tmp As Double, _ OnRng As Variant, r As Variant, headers As Variant, n As Double, civil As String Set WS = Sheets("المعلومات") Set dest = Sheets("الموظفين") Application.ScreenUpdating = False Irow = dest.Cells(dest.Rows.Count, 3).End(xlUp).Row lastRow = WS.Cells(WS.Rows.Count, 1).End(xlUp).Row lastCol = WS.Cells(2, WS.Columns.Count).End(xlToLeft).Column OnRng = dest.Range("A2:E" & Irow).Value r = WS.Range(WS.Cells(3, 1), WS.Cells(lastRow, lastCol)).Value headers = WS.Range(WS.Cells(2, 3), WS.Cells(2, lastCol)).Value dest.Range("E2:E" & Irow).ClearContents For i = 1 To UBound(OnRng, 1) n = OnRng(i, 3): civil = OnRng(i, 4) tmp = 0 If n = 0 Or Trim(civil) = "" Then GoTo SkipRow For j = 1 To UBound(r, 1) If n >= r(j, 1) And n <= r(j, 2) Then For k = 1 To UBound(headers, 2) If headers(1, k) = civil Then tmp = r(j, k + 2) Exit For End If Next k Exit For End If Next j OnRng(i, 5) = IIf(tmp > 0, tmp, "غير محدد") SkipRow: Next i dest.Range("A2").Resize(UBound(OnRng, 1), 5).Value = OnRng Application.ScreenUpdating = True End Sub ضريبة.xlsb

السلام عليكم الكود Sub CalculateTax() Dim wsInfo As Worksheet Dim wsEmployees As Worksheet Dim lastRow As Long Dim i As Long Dim j As Integer Dim salary As Double Dim status As String Dim tax As Double Dim minSalary As Double Dim maxSalary As Double Dim found As Boolean Set wsInfo = ThisWorkbook.Sheets("المعلومات") Set wsEmployees = ThisWorkbook.Sheets("الموظفين") lastRow = wsEmployees.Cells(wsEmployees.Rows.Count, 2).End(xlUp).Row For i = 2 To lastRow salary = wsEmployees.Cells(i, 3).Value status = wsEmployees.Cells(i, 4).Value found = False For j = 3 To 6 minSalary = wsInfo.Cells(j, 1).Value maxSalary = wsInfo.Cells(j, 2).Value If salary >= minSalary And salary <= maxSalary Then For Each cell In wsInfo.Range("C2:L2") If cell.Value = status Then tax = wsInfo.Cells(j, cell.Column).Value wsEmployees.Cells(i, 5).Value = tax found = True Exit For End If Next cell If found Then Exit For End If Next j If Not found Then wsEmployees.Cells(i, 5).Value = "" End If Next i MsgBox "تم حساب الضريبة بنجاح!", vbInformation End Sub الملف ضريبة.xlsb

والله يا اخي الكريم انا مثلك ابحث عن حل نهائي لهذه المعضلة منذ زمان وهي :(كيف يمكن ارسال البرنامج الى العديد من الاشخاص باختلاف احجام الشاشات لديهم كبيرة و صغيرة و متوسطة , مع احتفاظ الفورم ابعادها ومع جميع محتوياتها ) ولدي الكثير من التساؤلات حول هذا و الكثير من مداخلات الاخوان الافاضل , ولكن كحل انا لم استطع التوصل اليه ) تحياتي

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

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

صحيح يعمل على 64 ptrsafe ولكن لا يمعل اذا شغلة اكثر من قاعده يكون مخفي تم الغاء سطح عند الفتح ولكن دالة لم تعمل بتحجيم الفورم واحتفظ بحجمه ؟! للعلم غيرة حجم الفورم فزدة بالارتفاع والعرض

كوجهة نظري يمكن تشغيل من غير دالة المرفق بدالة آخرى تضبط قياسات الى دعم شاشة HD اما فوق القياس حسب طلب العملاء HDR 4k وتختلف بختلاف التصميم كل ما صغرة الشاشة ستعتمد على اسلوب مختلف لتلائم مع استخدامات المستخدمين تباعد وتناسق التصفيف والحقول يعني 20 حقل بنافذة بتصغرهم نفس الوضع ؟! !!!!!! والبعض مهتم بشاشة الصغيرة عند التكبير يندم صمم بالوسط عند تكبير تصميم آخر وعند تصغيرة تصميم آخر النموذج الصغير يتم تقسيمة بالازرار ليتناسب النموذج الكبير توسيط احجام الحقول ويمكن التغير من بار علوي الى جانبي وخصائص ورئيه ممتازة تم ارفقاق في سابق جزء بما سبق ذكره وانت كيفك صحيح يمكن غرضه بسيط او مشروع اصغر 😂 فورم حدث عند التحميل حدث عند الفتح حدث عند تغير الاحجام ☕

وان اردتها بالمعادلات =IFERROR( INDEX(المعلومات!C$3:L$6;MATCH(C2;المعلومات!A$3:A$6;1);MATCH(D2;المعلومات!C$2:L$2;0)); "غير متوفر" ) 1ضريبة.xlsb

السيد Khorsheed Omar المعادلة =IF([@[الاسم الثلاثي]]<>""; VLOOKUP([@[الاسم الثلاثي]]; 'البيانات الأساسية'!$A$2:$R$100;MATCH("2.2025"; 'البيانات الأساسية'!$1:$1; 0); FALSE); "") 1رواتب.xlsm

بارك الله فيك , فعلا موضوع شيق , تحياتي