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

تم التعديل على الملف 1-يمنع ادخال بينات مكررة 2- لتعديل اي بيانات ادخل الاسم في خانة الاسم ادخل باقي البيانات التي تريد تعديلها اضغط الزر UPDATE يمكنك الاستعانة بهذه الصور الملف النهائي مرفق Example_Final.xlsm

يمكنك الاستفادة من هذا الملف على حسب ما فهمت =CHOOSE(MOD(ROW()-1;6)+1;"A";"B";"C";"D";"";"") numbering alphabet.xlsx

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

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

أبشر ولا يكون خاطرك إلا طيب . @jjafferr @د.كاف يار جزاك الله خيرا وشكر لك صنيعك ..

وعليكم السلام 🙂 اتفق مع اخوي خالد 100% ، والميزة هي انك تقدر تحسب النتائج بسهولة بهذه الطريقة 🙂 بس هل لاحظت ان علاقاتك خطأ !! . جعفر عفوا ، ما انتبهت انك عامل Lookup في الجداول ، وهذه احد الشعلات اللي اتجنبها 100% في برامجي !!

من اسهل الطرق لتجنب مضاعفة الناتج اذا كان الاستعلام لثلاث جداول فاكثر اننا نجزء الاستعلام للجدول الرئيسي والتابع1 استعلام واستخدام sum للناتج الجدول الرئيسي والتابع2 استعلام واستخدام sum للناتج استعلام نهائي للاستعلامين السابقين ولاداعي لاستخدام دالة IIf ودالة isnull لكون nz تغني عنهما انظر للصورة المرفقة

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

بالعكس واجب علينا عن توفر الاجابة أن نجيب .... حياك الله

شكرك واجب مستحق كل الاحترام و التقدير شكرك واجب مستحق كل الاحترام و التقدير +1

تفضل ... On Error Resume Next DoCmd.SetWarnings False a = DLookup("الفرع", "T_1") DoCmd.OutputTo acOutputQuery, "Q_001", acFormatXLS, CurrentProject.Path & "\" & "كشف حساب" & "-" & a & "-" & Format(Date, "dd-mm-yyyy") & ".xls", True DoCmd.SetWarnings ture TEST.mdb

وانا ايضا وكنت قد اجريت التعديل ولكن عندما وجدت ان الاخ العزيز ابو اشرف وضع حل يؤدي المطلوب لم اضع التعديل المقترح وهو 👇 Between Date() And DateAdd("d";10;Date()) عندما نرغب في اضافة للتاريخ يفضل استخدام dateadd ولها ثلاث وسائط ايام او اشهر او سنوات المدة المطلوب اضافتها وقد تكون رقما مباشرا او حقل مبني على نموذج التاريخ المراد الاضافة اليه منور يا ابا ياسين 🌹

مشاركة مع اخي عبد اللطيف سلوم انا بصراحه افضل Between Between Date() And Date()+[Forms]![forms_rebort]![tt_15]

والله لااجد طريقة كيف اشكرك الا ان اقول بورك فيك على العمل الرائع و العظيم تقبل تحياتي العظيمة

ممكن هذا ما تعنيه قي الخلية F2 هذه المعادلة واسحب نزولاً =IF(A2="","",CHAR(INT((ROWS($A$1:A1)-1)/6)+65)) الملف مرفق seddiki_New.xls

يفضل إرفاف مثال وتوضيح المطلوب بالتفصيل

الف شكر استاذي الفاضل

<=date()+30 <=date()+10

لا أعلم اذا كان هذا المطلوب seddiki_adz.xls

تم التعديل كما تريد الصف الأول من B الى E والعامود الأول A محمي ضد المسح والكتابة (لعدم التغيير عن طربق الخطأ) استعمل اليوزر كما في الصورة الملف بعد التعديل مرفق Example_1.xlsm

عدد الاعمدة 2 ولكن تبدأ من صفر تخباتب

وعليكم السلام ورحمة الله وبركاته اترك سطر الاوامر الذي تريده وعطل او احذف الباقي If Not Me.NewRecord Then DoCmd.OpenForm "f_form", , , "[id]=" & Me![abd].Column(0) ' If Not Me.NewRecord Then DoCmd.OpenForm "f_form_1", , , "[id_1]=" & Me![abd].Column(0) ' If Not Me.NewRecord Then DoCmd.OpenForm "f_form_2", , , "[id_2]=" & Me![abd].Column(0) تحياتي

السلام عليكم 🙂 ايش رأيكم نتحكم في مسافات الرقم من اعدادات التنسيق فقط 🙂 جعفر

تفضل اخي الكريم حصر الاجهزة (2).rar تحياتي

بعد اذن اخي الرائد معادلة ثانية في الصورة المرفقة الملف مرفق ايضاً Hasan_Mhd.xlsx

تفضل ضع هذه المعادلة لاستخراج الارقام الى الخلية المجاورة ثم اجمع مثال.xlsx

تفضل اخي الكريم تقدير.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Select Case Me.المعدل Case 1 To 49 Me.التقدير = "راسب" Case 50 To 59 Me.التقدير = "مقبول" Case 60 To 69 Me.التقدير = "متوسط" Case 70 To 79 Me.التقدير = "جيد" Case 80 To 89 Me.التقدير = "جيد جداً" Case 90 To 100 Me.التقدير = "ممتاز" End Select تقدير.rar تحياتي

لمعرفة الطريقة شاهد هذا الفيديو لطفا

كيفية اضافة معادلة البحث XLOOKUP لاوفيس 2019-2016-2013-2010-2007-2003 في الفيديو دة هاتقدر تشتغل وكأنك معاك اوفيس 365 XFunctions.7z

اذا اردت يمكنك اخفاء العامود حيث نتيجة ( مقبول وغير مقبول ) او يمكن عمل هذا بالماكرو كي بعطبنا فقط الأعمدة المطلوبة الماكرو المطلوب لهذه الحالة Option Explicit '+++++++++++++++++++++++++++++++ Sub transfer_data_ًWithout_J() Dim D As Worksheet Dim Rg As Range Dim arr(), arr_sh() Dim i As Byte, X% Application.ScreenUpdating = False arr = Array("مقبول", "غير مقبول") arr_sh() = Array("المقبولين", "غير المقبولين") Set D = Sheets("DATA"): Set Rg = D.Range("C5").CurrentRegion X = D.Cells(Rows.Count, 3).End(3).Row For i = 0 To 1 Sheets(arr_sh(i)).Range("C5").CurrentRegion.ClearContents Rg.AutoFilter 8, arr(i) D.Range("C5:i" & X).SpecialCells(12).Copy Sheets(arr_sh(i)).Range("C5").PasteSpecial (12) Next D.Select If D.AutoFilterMode Then Rg.AutoFilter Application.ScreenUpdating = True End Sub الملف مرفق للحالتين Mohammed_New.xlsm

ملف احر اكثر توضيحاً (يسمح لك بقص الفواتير كل واحدة منفردة ) و ذلك بوضع صف فارغ تحتها وعامود فارغ الى جانبها) اذا كانت هناك فواتير فارغة لا تطبع Mhd_Sr.xlsm

وعليكم السلام-بدون تعريف النطاقات وبدون ايضاً استخدام معادلة Indirect .... فقط يمكنك استخدام معادلة واحدة للقائمة المنسدلة الفرعية =OFFSET(INDEX(Sheet1!$A$2:$C$210,,MATCH($A2,Sheet1!$A$1:$C$1,0)),,,COUNTA(INDEX(Sheet1!$A$2:$C$210,,MATCH($A2,Sheet1!$A$1:$C$1,0)),1)) Book2.xlsx

معادلات ممتازة لكنها كثيرة 12 معادلة (كل 6 أعمدة يجب تغييرها) يمكن اختصار الكل الى معادلة واحدة تكتب في الخلية G4 وتسحب ييميناٌ ثم نزولاً =IFERROR(OFFSET(INDIRECT("'"&OFFSET($G$2,,INT((COLUMNS($A$1:A1)-1)/6)*6)&"'!"&"C$"&ROWS($A$1:A5)),,CHOOSE(MOD(COLUMNS($A$1:A1)-1,6)+1,35,36,37,38,39,40)),"") Saef _Extra.xlsx

على حسب معطياتك اعتقد هذا المطلوب بالكود لا يظهر التاريخ الا في حالة سداد قسط معين بناء على تاريخ اليوم ولن يتغير في الايام القادمة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Row > 6 Then If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 11 Then If Target.Value = "سدد" Then Target.Offset(0, 1) = Date Else Target.Offset(0, 1) = "" End If End If End If End Sub حسابات (1).xlsb

ماكرو اخر يقوم بنفس المهمة Option Explicit Sub FIND_EMPLOY() Dim mPath$ Dim F_Name, TS$ Application.ScreenUpdating = False If UCase(ActiveSheet.Name) <> "SALIM" Then GoTo BAY_BAY_YA_HILWEEN mPath = ThisWorkbook.Path & "\" F_Name = mPath & "[Empl.xlsx]" F_Name = F_Name & "DATA'!$A$2:$J$100" Range("B3").Resize(, 9).ClearContents TS = "VLOOKUP($A3,'" & F_Name & ",COLUMNS($A$1:B1)" & ",0" & ")" TS = "=IFERROR(" & TS & ","""")" With Range("B3").Resize(, 9) .Formula = TS .Value = .Value End With If Range("B3") = vbNullString Then MsgBox "THIS CODE :" & Chr(10) & _ """" & Range("A3") & """" & Chr(10) & _ "DOES'T EXITS IN WORKBOOK "" Empl.Column(A)"" " Range("A3").ClearContents End If BAY_BAY_YA_HILWEEN: Application.ScreenUpdating = True End Sub

جرب هذا المصنف 1-مؤلف من ملفين الاول تجت اسم "Empl.xlsx" و الثاني تحت اسم "Rateb.xlsm" 2-البحث يتم في الملف "Rateb.xlsm" 3- اختر كود الموظف من الخلية A3 واضغط الزر "هاتها دكتور اكسل" Empl.xlsx Rateb.xlsm

تفضل Sub NTAx() Dim lr As Integer lr = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Row For i = 2 To lr Select Case Cells(i, 13).Value Case Is > 83333.33 Cells(i, 14).Value = 7500 + (Cells(i, 3).Value - 33333.33) * 25 / 100 Case Is > 75000 Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 75000 Cells(i, 14).Value = 3333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 66666.67 Cells(i, 14).Value = 750 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 58333.33 Cells(i, 14).Value = 375 + 187.5 + 2333.33 + 3750 + 7291.67 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 50000 Cells(i, 14).Value = 62.5 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 41666.67 Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 33333.33 Cells(i, 14).Value = 31.25 + 125 + 187.5 + 2333.33 + 3750 + (Cells(i, 13) - 33333.33) * 25 / 100 Case Is > 16666.67 Cells(i, 14).Value = 3750 + 2333.33 + 187.5 + 125 + 31.5 + (Cells(i, 13) - 16666.67) * 25 / 100 Case Is > 5000 Cells(i, 14).Value = 2333.33 + 187.5 + 125 + 31.25 + (Cells(i, 13) - 5000) * 22.5 / 100 Case Is > 3750 Cells(i, 14).Value = 187.5 + 125 + 31.25 + (Cells(i, 13) - 3750) * 20 / 100 Case Is > 2500 Cells(i, 14).Value = 125 + 31.25 + (Cells(i, 13) - 2500) * 15 / 100 Case Is > 1250 Cells(i, 14).Value = 31.25 + (Cells(i, 13) - 1250) * 10 / 100 Case Is < 1250 Cells(i, 14).Value = Cells(i, 13) * 2.5 / 100 End Select Next End Sub معادلة الضرائب الجديده.xlsm

اتبع هذه الخطوات حسب الصورة