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

اخواني الاعزاء بعد التحية والسلام في الملف المرفق جدول درجات الصف الأول باسم Tbl_degree_Detail محتاج وحدة نمطية اضعها في الاستعلام qryNtejah_End_Lwo إذا كان الصف ( الأول ) والنوع( ذكر ) وTotal_T = ( غ ) يعطيني ومنقول للصف الثاني إذا كان الصف ( الأول ) والنوع( ذكر ) وTotal_T <> ( غ ) يعطيني ومنقول للصف الثاني إذا كان الصف ( الأول ) والنوع( انثي ) وTotal_T = ( غ ) يعطيني ومنقولة للصف الثاني إذا كان الصف ( الأول ) والنوع( انثي ) وTotal_T <> ( غ ) يعطيني ومنقولة للصف الثانيschool2.accdb

دون تحميل المرفق ، وحسب ما فهمت ، جرب هذا المديول :- public function foksh(class as string, gender as string, total_t as string) as string if class = "الأول" then if gender = "ذكر" then if total_t = "غ" then foksh = "منقول للصف الثاني" else foksh = "منقول للصف الثاني" end if elseif gender = "انثي" then if total_t = "غ" then foksh = "منقولة للصف الثاني" else foksh = "منقولة للصف الثاني" end if end if end if end function وفي الاستعلام انشىء حقل جديد واكتب فيه السطر التالي :- status: foksh([class], [gender], [total_t]) هذا تصوري للحقول والأسماء ، اذا كانت الأسماء غير ذالك فاستبدلها حسب اسماء الحقول لديك 🤗

السلام عليكم ورحمة الله وبركاته 🙂 اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم :: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة :: بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌 وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌ :: وبدون مقدمات نبدأ على بركة الله :: الفكرة الرئيسة للقائمة الجانبية هي : عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) .. والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار .. :: وللاستفادة من هذا الملف :: ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) : :: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم :: وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى ) :: تحديثات جديدة :: قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه لوحة التحكم : :: وأخيراا ملف التحميل 🙂 :: ‏‏‏‏Modern Main Page With Main Menue And Sub Sub Btns - Moosak -Maximize-Macro.accdb ملاحظة مهمة : قد لا يعمل هذا النموذج بشكل جيد على النسخ القديمة من 2007 وما قبلها . :: ولا تنسونا من صالح دعواتكم الطيبة 🙂 🌹🌷 ::

Private Sub UserForm_Initialize() Label5.Caption = [j1] End Su '******************* Private Sub TextBox1_Change() Dim n As Range, J As Long, f As Long Set WS = Worksheets("Sheet1") Cnt = Me.TextBox1.Value: WS.[W1] = Cnt f = WS.Cells(WS.Rows.Count, 2).End(xlUp).Row If Cnt <> "" Then With WS Set n = .Range("A2:A" & f).Find(What:=Cnt, LookIn:=xlValues, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False) If Not n Is Nothing Then J = n.Row Me.TextBox2 = .Range("B" & J) Me.TextBox3 = Evaluate("=SUMPRODUCT((D2:D10000) * (A2:A10000=W1) * (C2:C10000<>j1))") End If End With Else Me.TextBox3 = "": Me.TextBox2 = "" End If End Sub 'OR============================================================= Public Property Get WS() As Worksheet: Set WS = Worksheets("Sheet1") End Property Private Sub UserForm_Initialize() Set J = CreateObject("Scripting.Dictionary") a = WS.Range("A2:A" & WS.[A65000].End(xlUp).Row) For i = LBound(a) To UBound(a) If a(i, 1) <> "" Then J(a(i, 1)) = "" Next i n = J.keys Me.ComboBox1.List = n Label5.Caption = [j1] End Sub Private Sub ComboBox1_Change() Dim n As Range, J As Long, f As Long Cnt = Me.ComboBox1.Value: WS.[W1] = Cnt '''Code..... Else Me.TextBox3 = "": Me.TextBox2 = "" End If End Sub Sumif v2.xlsm

أرجو الانتباه أن ملف المقارنة ليس للمفاضلة فما أتى به الأخ @محب المنتدى صحيحا وهو يستخدم دوال الاكسل والمخصصة لهذه الحسابات، وما أتيت به أنا كذلك قد يكون صحيحا ولكنها معلومات عندي قبل أن ينشأ الاكسل. أنا أتصور أن الاثنين صحيحان ويمثلان نوعين من أنواع الفوائد، وتحتاج إلى معرفة الفرق بينهما وتحديد مسماهما العربي كما تصنيفك في السؤال. حساباتي هي تحت تصنيف الأقساط المتساوية بحساب الفوائد البسيطة.

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Sumif.xlsm

الف شكر اشتغل تمام شكرا لكل اللي ساعدني وبالأخص استاذ ابو جودي واستاذنا الفاضل FOKSH جزاكم الله خيرا

انا استغربت كمان موضوع ان الكل ناجح ، وقلت يمكن انه النجاح إجباري ( هتنجح يعني هتنجح ) في الصف الأول وما فيش طالب بيسقط في أول صف

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

يساوي غ او لا يساوي غ كلهم منقولون ... الا يكفي الشرط ذكر / انثى ؟؟ .. من اجل تا التأنيث المربوطة الا ان كان هناك طلاب لا ينتقلون ؟ فان كانوا كلهم ينتقلون اضف العبارة في حقل النتيجة

محاولتي للبسيطة حسب تخميني قبل أن أرى مشاركة الزميل محب المنتدى حاولت في المركبة وخرجت بأرقام فلكية، قد أحاول غدا إن شاء الله. تنويه: المبالغ المحسوبة هي مجموع الفوائد يفترض تجمع على أصل المبلغ ثم تقسم على عدد الشهور أو السنين لمعرفة القسط. تم التوصل إلى معادلة مجموع المدد والتي تختصر العمل بحيث لا نحتاج لعمل حلقة تكرار كما المثال الأول. المعادلة: (عدد الأقساط * (رقم أول قسط + رقم آخر قسط)) / 2 حساب الفوائد_01.xlsm مقارنة لحساب الفوائد_01.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Sub SAVERANGEPDF() Dim FilePath As String Dim filename As String 'filename = ActiveSheet.Name & "_" & Format(Now, "dd-mm-yyyy") & ".pdf" 'OR filename = ThisWorkbook.Name & "_" & Format(Now, "dd-mm-yyyy") & ".pdf" FilePath = Application.ActiveWorkbook.Path & Application.PathSeparator & filename Selection.ExportAsFixedFormat Type:=xlTypePDF, filename:=FilePath, _ Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub

Classeur1.xlsm

اتفضل Property Sheet.mdb

اولا شكرا لك استاذنا @أبو آدم قم بفتح القاعدة بيانات وافتح احد نماذج في وضع تصميم واضغط على كونترول و حرف جي الانكليزية ctrl + G سيفتح لك هذه النافذة في الاسفل نافذة كتابة الاكواد كما مبينة في الصورة قم بكتابة هذه الجملة واضغط على انتر لكي يتم تفعيل خصائص الورقة CommandBars("Property Sheet").Enabled = True واذا تريد عدم التفعيل اكتب هذا CommandBars("Property Sheet").Enabled = false واضغط على انتر تقبلوا تحياتي

قم بادراج ملف مرفق مثال لعمل المطلوب