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

وعليكم السلام-تفضل هذه المعادلة =IF(AND(C10>=900,C10<=1000),"متميز",IF(AND(C10>=701,C10<=899),"متفوق",IF(C10=700,"مؤهل",IF(C10="محلول","محلول","")))) وهذه معادلة العمود E =IF(C10="محلول","0%",C10/1000) المصنف2 (1).xlsx

تطبيقها هنا خاطئ: آ =Nz(([sale_price]-[Text58],0)*[sale_qty]) وتطبيقها الصحيح هكذا: =Nz([sale_price],0)-Nz([Text58],0)*Nz[[sale_qty],0) وإذا أردت ضرب الكمية في ناتج الطرح تكون كالتالي: =(Nz([sale_price],0)-Nz([Text58],0))*Nz[[sale_qty],0)

دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ صيغتها كما يلي : A = NZ(B,0) أو A = NZ(B) S = NZ (V,"") ومن هذا يتضح أن لهذه الدالة ممران 1- القيمة المطلوب فحصها 2- القيمة المعادة في حال كون القيمة الأولى Null وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null منقول

والان بعد الشروحات والمقدمات الطويلة للفائدة هذه الطريقة الاخيرة مختصرة وبدون استعلامات .... نفس طريقتك السابقة مع تعديل بسيط فقط Value Students (1).accdb

Sub MH_hyperkunks() Dim Ws As Worksheet Worksheets("toutal").Range("A3:a100").ClearContents Range("A3").Select For Each Ws In ActiveWorkbook.Worksheets If Ws.Name <> "toutal" Then ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name ActiveCell.Offset(1, 0).Select End If Next Ws End Sub mango2023(1).xlsm

وايضا يمكن عملها في الاستعلام مباشرة بهذا الشكل ...........

تفضل <><><><><> Students.accdb

Sub change_selection() Dim MH_Range, New_Range As Range Set MH_Range = Selection Set New_Range = MH_Range.Resize(, 1).Offset(0, MH_Range.Columns.Count) New_Range.Select End Sub تحديد صف موازى لنطاق.xlsm

@Zakariadz Bms لماذا تجاهلت اجابة الاخ مهند ولماذا لم ترد على ملاحظة الادمن . اذا لم يكن هذا ما تريد ما الذي يضيرك اذا شرحت بالتفصيل طلبك اعتقد هذا ما تريده بعد التخمين !!! Private Sub TextBox1_Change() Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##0.00") End Sub قم بتعبئة باقي مربعات النص الاخرى كاما اشار الاخ مهند . تحياتي

وعليكم السلام 🙂 وقد قمت بشرح اوسع للدالة هنا : . جعفر

ركز معي ابو حسان اولا ليس لي شأن في ما يظهر من تصفية وبيانات في form1 وانما عملي على تقرير الارصدة والذي يأخذ معاييره من form1 ركز اكثر رعاك الله : عدلت لك على المثال بحيث اعتمدنا (تاريخ الى) لتصفية الحسابات الحالية الآن : 1- استعلام qryRseed2 وهو خاص بالحسابات الحالية اي الحسابات ما بين التاريخين ( من و إلى ) وايضا يفلتر حسب السنة المالية 2- الاستعلام qryRseed1 وهو خاص بالحسابات السابقة اي التي قبل تاريخ من ولا يشتمل على اي معيار .. فقط معيار اظهار ما قبل تاريخ من .. بحيث يجمع جميع الارصدة السابقة على مستوى العملاء 3- استعلام qryRseed يتم فيه ضم الاستعلامين السابقين وهو مصدر بيانات النموذج RSFAll الذي هو التقرير فضلا ادرس الاستعلامات وانظر اين تريد الفلترة هل في الارصدة السابقة ام الارصدة الحالية ، حيث يمكنك نقل المعايير بين الاستعلامين حسب متطلباتك .. وحسب ما ارى ان استعلام الرصيد السابق qryRseed1 يجب الا يحتوي على معايير .... فقط معيار شرط ما قبل التاريخ لان المطلوب فعلا جميع الارصدة السابقة /////// اما استعلام الارصدة الحالية qryRseed2 فهو يحتوي على جميع المعاييير البيانات المالية التي يظهرها التقرير صحيحة بحيث يظهر الارصدة السابقة ويضمها الى الارصدة الحالية . مسألة انك تريد تشغيل الدالة فيمكنك الاستفادة منها في غير هذا التقرير ، ايضا لا تفكر باظهار نتائج اخرى ضمن هذا التقرير او ربطها به الى هنا واعتذر منك ودمت بخير . T6Q .rar

بالعكس ، كنت اتمنى اشوف استعلام يجمعهم كلهم 🙂 جعفر

الفلترة ليس فيها تاريخ الى ..... فقط من ..... اي ما قبل من اذا وضعت تاريخ من فقط سيظهر لك كل ما قبل من + مابعد من بالضبط كما في طلبك التاريخ الى ليس فعال سواء كتبته ام لم تكتبه تتغير الارصدة السابقة كلما اخترت حقلا للفلترة مثلا السنة المالية او الحساب او نوع الحساب بالنسبة للسجل الازرق انت اخترت فلترة حسب السنة المالية 2022 وهو في 2019 .. هنا لن يظهر انا فحصت المثال وجربته وتأكدت منه عملته على ثلاث استعلامات واحد يفلتر السابق والثاني يعرض الحالي والثالث يجمع بينهما وهو مصدر بيانات النموذج اذا اردته يظهر كما في الصورة ادناه : فلتر حسب التاريخ ، ومصدر التمويل فقط ايضا انا اوقفت الكود الموجود في حدث السنة المالية الذي يغير التواريخ ، لانه يسبب ربكة فيغير التاريخ من غير ما تشعر فتخرج النتيجة خلاف ما تتوقع اجريت تعديلا بسيطا على معيار مصدر التمويل انظر المرفق T5Q - Copy.rar

بارك الله فيك استاذ حسونة سيتم الرد ان شاء الله من استاذنا الكبير الدكتور محمد طاهر عرفه عندما تتيح له الفرصة لذلك فربما يكون مشغول جداً فى هذه الأوقات .. بالتوفيق ان شاء الله للأستاذ ابراهيم الحداد وان شاء الله سيعود له حسابه القديم

بسم الله الرحمن الرحيم هانبدأ ان شاء الله بأول برنامج ..برنامج عمل قوائم الفصول للمدارس البرنامج ده عن طريقه تقدر تعمل قوائم الفصول وتعدل فيها بمنتهى السهولة بمجرد تغيير رقم فصل التلميذ بمجرد عمل القوائم يقوم البرنامج تلقائياً بعمل ايضاً ملف التقييم او ملف الانجاز وكذلك بيانات كتابة السجلات وايضاً عن طريق البرنامج تستطيع تصنيف التلاميذ من حيث دفع المصروفات المدرسية او دفع النصف او عمل الابحاث بضغطة واحدة واي استفسار بخصوص البرنامج اكتب استفسارك في التعليقات ..بيانات الدخول للبرنامج ستجدها بعد فك الضغط عن الملف 729143233_V1.rar

السلام عليكم أصدقاء المنتدى الكرام أقدم لكم ملف جاهز لتحويل التاريخ من الميلادى إلى التاريخ الهجرى ...أتمنى أن ينال إعجابكم بارك الله لكم جميعا برنامج تحويل التاريخ.xlsm

السلام عليكم اتفضل استاذ @marwa41 ان شاء الله يكون ما تريد سيتم انشاء ملف pdf باسم الشيت اللى انت موجود فيه والمجلد فى اى مكان فى الجهاز Sub print_pdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Application.ActiveWorkbook.Path & "\printpdf\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub بالتوفيق Data.rar

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