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

تفضلوا مشاركة منى بالاكواد Sub Test() Dim numx As Long, x As Long, z As Long, bb As Byte Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents bb = Range("D1").Value numx = bb numl = Range("F1").Value ReDim y(1 To numl, 1 To 1) For x = 1 To numl If x = numx Then numx = numx + bb: GoTo 86 If x <> numx Then z = z + 1 y(z, 1) = x End If 86 Next If z > 0 Then Cells(1, 1).Resize(z, 1).Value = y() MsgBox "Done..... (-_-)" End Sub نقوم بوضع الرقم المراد تخطيه وتخطى مضاعفاته ونضع اخر رقم بالسلسلة الرقمية ونقوم بتنفيذ الكود تحياتي special_sequence.rar

السلام عليكم ورحمة الله وددت أن أشارك هذا العمل الجميل بإضافة معادلة أخرى للفائدة.... بن علية special_sequence.rar

كيف نقوم بادراج سلسلة أرقام بمواصفات معينة special_sequence.rar

وعليكم السلام تفضل: برنامج جاهز: http://www.peterssoftware.com/isd.htm وكود من https://www.experts-exchange.com/questions/28397475/Shutdown-Access-Database-After-Certain-Idle-Time.html Private Sub Form_Load() ' start the count down in 3 minutes (60 x 3 = 180) Me.Tag = 180 ' interval is every second Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() On Error Resume Next '********************************** ' Bail out when count down is zero '********************************** Me.Tag = Val(Me.Tag) - (Me.TimerInterval / 1000) Me.Caption = "Form will exit in " & Me.Tag & " seconds" If Val(Me.Tag) <= 0 Then DoCmd.Quit End If End Sub . جعفر

اليك هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Target.Columns.AutoFit End Sub

الاح طائع اشكرك لفتح موضوع جديد وكما فال الاخ ياسر خليل الشرح بالتفصيل لكيفية إجراء العملية بشكل يدوي .. الكلام بشكل عام يجعل الموضوع غير قابل للردود اللى فهمته صافى المبلغ بعد البيع بمعنى المكسب لكن لم افهم صافى الكمية لانه لا يوجد عمود بما نم بيعه بالفعل لكن المكسب يعتمد على الكمية المباعة بالفعل حركة الدواء2.rar

يمكن أن يكون بهذا الشكل في النهاية Private Sub CommandButton1_Click() Dim fromS As Integer, toS As Integer, end_p As Integer fromS = TextBox1.Value toS = TextBox2.Value If fromS > toS Then MsgBox "تأكد من الإدخالات" Else For end_p = fromS To toS Range("O1").Value = end_p Sheets("Certificates").PrintOut Copies:=1, Collate:=True Next end_p TextBox1 = "": TextBox2 = "" MsgBox "تمت الطباعة المحددة" End If End Sub Private Sub CommandButton2_Click() MZM_CERTIFICATES.Hide End Sub أحب الإعلان عن المتغيرات (يعتبرها المبرمجون عادة حسنة) ..أرجو ألا تنزعج من مناقشتي للكود ، فإنني إذا أعجبني كود أحب دراسته بشكل مفصل تقبل تحياتي

أخى الغالى وأستاذى القدير // ياسر خليل بوركتم وجزيتم عنا خير الخير ولى تعقيب بسيط على وجهة نظركم التى هى أقرب إلى واقعنا فى عالمنا هذا _ بقصة بسيطة سأسردها لك أنا وظيفتى مطور إدارى بإحدى شركات الإستشارات جاءت إحدى الشركات التى تمتلك عده فنادق صغيرة بأكثر من دولة تطلب تطويرا لكافة الأمور الإدارية ومن طلباتها إنشاء نموذج للعملاء ( زوار الفندق ) - شرط يكون بملف اكسل يقبل تصدير البيانات للبرنامج الذى يستخدموه وقدمت ملف اكسل يستخدموه ::: المفاجأة أن الملف من إنتاج إحدى المنتديات الأجنبية عمل عليه أكثر من 9 أعضاء مذكورين بالملف وبالفعل تم تنفيذ الملف وكافة الأمور التى طلبوها وبما إن الشركة إل أعمل فيها بها نظام كل ما يتم إنتاجه من أفكار وتطبق على أرض الواقع يتم عرضها على جميع المختصين بجميع الفروع الخلاصة وهى المطلوب فكرة إنتاج ملف من منتدى تهتم به شركة بالنسبة لإمكانياتنا كدولة لا توجد وجه مقارنه مع العلم أنها شركة صغيرة فى عالم الشركات الكبرى فمن هنا آتتنى الفكرة وخاصة كم الطلب على شيت الكنترول وكمية الأكواد المعروضة بالمنتدى والتى تختص بشيت الكنترول وطبعا أعلم جيدا كم الاختلاف بين وجهات النظر لدى المختصين والمهتمين بشيت الكنترول ولكن عندما يكون هناك شيت برمجى شبه متكامل أعتقد أن تلك وجهات النظر المتباينة سيتم تقليصها وأتقدم بخالص الشكر لكم أخى الكريم على إهتمامك وتفاعلك مع الموضوع وتقبل منى وافر الاحترام والتقدير

تفكير صائب ان شاء الله وساشارك في هذا العمل وادعو الله ان يرزقنا بالافذاذ وان يرزقنا باناس يبتغون وجه الله وان تزيد كفه حسناتهم جزاكم الله خيرا

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

هلا بابو نادر .. غير صحيح ، فيمكنك تحويل نوع الحقل الى نص ويبقى التاريخ كما هو ولكن الجميل انك وضعت حقل بالتاريخ الميلادي ، ويمكنك من خلاله اجراء وتشغيل بعض الدوال وايضا وضع المعايير ويمكنك ايضا عند البحث والعمليات الاخرى التعامل مع حقل التاريخ النصي باستخدام الدالة : CDate وتحويل النص الى تاريخ CDate(expression)

استبدل الكود بهذا Sub row_height() With ActiveSheet .Cells.RowHeight = 25 lr = .Cells(Rows.Count, 2).End(3).Row .Range("b1:b" & lr - 1).RowHeight = 14.5 End With End Sub

وعليكم السلام جرب len([coodkindexchange] & '')=0 وفي VBA len([coodkindexchange] & "")=0 هذا يعمل عمل السطرين isnull([coodkindexchange])= true و [coodkindexchange]= "" جعفر والاسهل هو فك الشروط الى اسطر سهل التعامل معاها C = "[exchange]>0" C = C & " And len([coodkindexchange] & '')=0" C = C & " And [Yaree] =" & Forms![frm_3]![Yaree] C = C & " and [Monthly] =" & Forms![frm_3]![Monthly] If DCount("[coodkind]", "Tbl_Month", C) > 0 Then بحيث تستطيع ان توقف عمل اي سطر بعمل اشارة ' (او rem) اما السطر/الاسطر التي لا تريدها في الشرط) جعفر

اتفضل من هنا

اتفضل ما تريد ان شاء الله بيكون هو المطلوب ملفك بعد تعديل مع الشرح بالصور شوف عملنا استعلام للجدول باسم كويري 1 واضفنا الى هذا الاستعلام ثلاث حقول اخر بالاكواد كما مبينة بالصور شوف الاكواد لكل حقل وهذ كود الحقل الاول اللي باسم Expr1 Expr1: IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [sport]>=40 And [sport]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [sport]>=50 And [geography]>=40 And [geography]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [science]>=50 And [sport]>=50 And [geography]>=50 And [history]>=40 And [history]<50;"عبور";IIf([arabic]>=50 And [english]>=50 And [sport]>=50 And [history]>=50 And [geography]>=50 And [science]>=40 And [science]<50;"عبور";IIf([arabic]>=50 And [sport]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [english]>=40 And [english]<50;"عبور";IIf([sport]>=50 And [english]>=50 And [science]>=50 And [history]>=50 And [geography]>=50 And [arabic]>=40 And [arabic]<50;"عبور";"shivan")))))) وكما مبينة الكود في الصورة وهذا هو الكود الحقل الثاني اللي باسم Expr2 Expr2: IIf([arabic]<50 And [english]<50 Or [arabic]<50 And [science]<50 Or [arabic]<50 And [history]<50 Or [arabic]<50 And [geography]<50 Or [arabic]<50 And [sport]<50;"راسب";IIf([english]<50 And [science]<50 Or [english]<50 And [history]<50 Or [english]<50 And [geography]<50 Or [english]<50 And [sport]<50;"راسب";IIf([science]<50 And [history]<50 Or [science]<50 And [geography]<50 Or [science]<50 And [sport]<50;"راسب";IIf([history]<50 And [geography]<50 Or [history]<50 And [sport]<50;"راسب";IIf([geography]<50 And [sport]<50;"راسب";IIf([arabic]<40 Or [english]<40 Or [science]<40 Or [history]<40 Or [geography]<40 Or [sport]<40;"راسب";"ناجح")))))) كما مبينة بالصور الادناه كود لحقل التقييم تقييم: IIf([Expr1]="عبور";"عبور";IIf([Expr1]<>"عبور" And [Expr2]="ناجح";"ناجح";"راسب")) وكما في الصورة ادناه والنتيجة الاخيرة شوف بالصور واتفضل مع قاعدة بيانات مع تحياتي crossed.rar

أخى الحبيب وأستاذى // ياسر خليل جزيتم عنى خير الخير ، وزادكم الله من نعمه أخى الكريم الأستاذ / محمد تجد بالمرفقات ملف به طباعه جميع الشهادات ومسح الشهادات وجمد قلبك وإضغط على مسح ومتقلقش، وتحويل أى شيت الى PDF أو أى نطاق الى PDF أو كامل المصنف الى PDF ممكن بعد إصدار أمر طباعة الكل يمكنك تحويل شيت الشهادات الى PDF All Certificates print_ FORM OR ALL OR PDF _By _MZMELSHRIEF.rar

اذا ما كان غلطان انا هذا الكود بيعمل المطلوب لكن في القاعدة البيانات اللي رفقته في نفس المشاركة لهذا الكود انا اضفت & "سنة" لكي بيظهر النتيجة مع كلمة سنة مع تقدير

DateDiff("d", Me.time1, Me.now1) هذه لحساب الفرق بين التاريخين بالأيام "d" DatePart و هذه الدالة لتحويل الأيام إلى سنة "yyyy" و لو تلاحظ و ضعت -1900 في الأخير ذلك لأن الدالة تبدأ الحساب من 1900 هذا و الله أعلم

اليك ملفك بعد تعديل فقط كتبنا هذا الكود في محرر فيجوال لمربع Salesman_Code بعد تحديث Private Sub Salesman_Code_AfterUpdate() Me.Salesman_Name = DLookup("[EmployeeName]", "Employees", "[EmployeeID]='" & Me.Salesman_Code & "'") End Sub Database1 - Copy.rar

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

انتظرني هسة راح ارجع لك ان شاء الله

الكود الذي ينسخ كل شيء Sub Get_names1() m = 0 For i = 2 To Sheets.Count t = Application.CountA(Sheets(i).Range("b:b")) - 1 Sheets(i).Range("b2:b" & t + 1).Copy Sheets("sheet1").Range("b" & m + 2) m = m + t Next End Sub

جرب هذا الماكرو Sub row_height() Sheet1.Cells.RowHeight = 25 lr = Sheet1.Cells(Rows.Count, 1).End(3).Row Sheet1.Range("a1:a" & lr - 1).RowHeight = 14.5 End Sub

اليك هذه الوحدة النمطية اي اعمل كوبى باست هذا الكود في وحدة نمطية Option Compare Database Option Explicit Public Function Diff2Dates(interval As String, Date1 As Date, Date2 As Date, Optional ShowZero As Boolean = False) As Variant On Error GoTo Err_Diff2Dates Dim booCalcYears As Boolean Dim booCalcMonths As Boolean Dim booCalcDays As Boolean Dim booSwapped As Boolean Dim dtTemp As Date Dim intCounter As Integer Dim lngDiffYears As Long Dim lngDiffMonths As Long Dim lngDiffDays As Long Dim varTemp As Variant Const INTERVALs2 As String = "ddmmyy" interval = LCase$(interval) For intCounter = 1 To Len(interval) If InStr(1, INTERVALs2, Mid$(interval, intCounter, 1)) = 0 Then Exit Function End If Next intCounter If Not (IsDate(Date1)) Then Exit Function If Not (IsDate(Date2)) Then Exit Function If Date1 > Date2 Then dtTemp = Date1 Date1 = Date2 Date2 = dtTemp booSwapped = True End If Diff2Dates = Null varTemp = "" booCalcYears = (InStr(1, interval, "y") > 0) booCalcMonths = (InStr(1, interval, "m") > 0) booCalcDays = (InStr(1, interval, "d") > 0) If booCalcYears Then lngDiffYears = Abs(DateDiff("yyyy", Date1, Date2)) - _ IIf(Format$(Date1, "mmdd") <= Format$(Date2, "mmdd"), 0, 1) Date1 = DateAdd("yyyy", lngDiffYears, Date1) End If If booCalcMonths Then lngDiffMonths = Abs(DateDiff("m", Date1, Date2)) - _ IIf(Format$(Date1, "ddhh") <= Format$(Date2, "ddhh"), 0, 1) Date1 = DateAdd("m", lngDiffMonths, Date1) End If If booCalcDays Then lngDiffDays = Abs(DateDiff("d", Date1, Date2)) - _ IIf(Format$(Date1, "hhnnss") <= Format$(Date2, "hhnnss"), 0, 1) Date1 = DateAdd("d", lngDiffDays, Date1) End If If booCalcYears And (lngDiffYears > 0 Or ShowZero) Then varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " Óäå ", " Óäå ") End If If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then If booCalcMonths Then varTemp = varTemp & IIf(IsNull(varTemp), Null, " æ ") & _ lngDiffMonths & IIf(lngDiffMonths <> 1, " ÔåÑ ", " ÔåÑ ") End If End If If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then If booCalcDays Then varTemp = varTemp & IIf(IsNull(varTemp), Null, " æ ") & _ lngDiffDays & IIf(lngDiffDays <> 1, " íæã", " íæã") End If End If If booSwapped Then varTemp = "-" & varTemp End If Diff2Dates = Trim$(varTemp) End_Diff2Dates: Exit Function Err_Diff2Dates: Resume End_Diff2Dates End Function ومثلا عندك مربع نصي للتاريخ الاول اي اليوم باسم tarix1 ومربع اخر للتاريخ الثاني اي لتاريخ 22\2\2014 باسم tarix2 ومربع نصي اخر لكي يڤهر فيها نتيجه‌ باسم text1 وعندك زر لكي يحسبك النتيجه‌ اكتب في محرر فيجوال بعد تضغط كليك عليه هذا الكود Me.text1 = IIf(Diff2Dates("ddmmyy", [tarix2], [tarix1], False) = "", "0 íæã", Diff2Dates("ddmmyy", [tarix2], [tarix1], False)) جرب وشوف النتيجة

ما خليت شي لنا ان نعمل يا ابو حسين انا جربت القاعدة وبيعمل المطلوب ممتاز اليك مني +1

سليم حاصبيا بن علية حاجي ياسر العربى جزاكم الله خيرا

اتفضل ما تريد test30.rar

سليم حاصبيا جزاك الله خيرا تحياتى

جرب هذا الكود Sub Get_names() m = 0 For i = 2 To Sheets.Count Sheets("sheet1").Range("b" & m + 2) = Sheets(i).Range("b2") m = m + 1 Next End Sub

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

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

أخى الغالى وأستاذى القدير // ياسر خليل كم سعدت جدا بتعقيبك وتشجيعك للفكرة ، ونسأل الله أن يعيننا على إتمامها بالشكل الذى يليق بمنتدى أوفيسنا الذى ساعدنى كثيرا فى تعلمى كثير من الامور التى كنت غافلا عنها شاكرا لكم حسن تعاونكم على إهتمامك ورأيك وتشجيعك ومناقشاتك المثمرة وتقبل منى وافر الاحترام والتقدير

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

وعليكم السلام اختي جربي هذا المرفق ، والذي ينتظر ثانيتين بعد ان يعمل الاستعلام qry_Temp ، اذا ما اشتغل ، فلازم نمشي في الكود سطر بسطر ، ونعرف وين المشكلة. جعفر 563.الموظفين.mdb.zip

بلى يظهر في الجداول على رغم كل شي اتفضل اليك حل تاني مثال .rar

ربنا يبارك فيك استاذ ايسم .. انت فين ؟ لاتحرمنا من علمك .. جزاك الله خيرا

حول الحقول بالجدول الى مربعات نص واجعل تنسيق الحقل بالجدول والنموذج yyyy/mm/dd ضع هذا الكود في حدث بعد التحديث ActiveControl = UmFormat(ActiveControl.Text, ActiveControl.Format) من واقع تجربة لاتضع مع التاريخ "هـ" ستواجه مشاكل في الاحصاءات اجعلها في مربع تسمية في التقرير او النموذج اذا كنت محتاج اليها

وعليكم السلام يااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااه يا أخ أيسم لكم اشتقنا لك ولمشاركاتك الرائعة بالمنتدى ، الحمد لله أنك بخير دمت بود ، وتقبل وافر تقديري واحترامي

اخي الحبيب محمد الدسوقي أنت قديم بالمنتدى وتعرف الشروط ، الأفضل دائماً أن يكون هناك طلب واحد لكل موضوع حتى يسهل على الباحث فيما بعد أن يجد بغيته فيما يخص طباعة كل الشهادات مرة واحدة يمكن الاعتماد على نفس الكود ، حيث يتم تصدير كافة أوراق العمل إلى مصنف جديد قم بإضافة سطر يطبع المصنف الجديد بالكامل ..يمكن الحصول عليه بتسجيل ماكرو لتعرف كيف يمكنك طباعة مصنف بالكامل ، وتقوم بحذف السطر الذي يقوم بعملي التصدير .. وأعتقد الفكرة كافية جداً أما فيما يخص الفورم : فإذا حضر الماء بطل التيمم ، قام أخونا الغالي محمود بالأمر وتقبلوا وافر تقديري واحترامي أخي الحبيب محمود بعد الإطلاع على الفورم الجميل الذي قمته بعمله ، رأيت سطر الحلقة التكرارية بهذا الشكل For end_p = 1 To Page_p لما لا تبدأ الحلقة التكرارية بقيمة المتغير FromS بشكل مباشر وتنتهي بالمتغير ToS ، وفي هذه الحالة لن يكون هناك داعي لهذا السطر FromS = FromS + 1 حيث ستكون قيمة العداد في الحلقة التكرارية تساوي Froms ، ومن ثم يتم تعديل المتغير في هذا السطر Range("MZM_P_C") = FromS ليكون بهذا الشكل Range("MZM_P_C") = end_P وأيضاً لن يكون هناك داعي في هذه الحالة لهذين السطرين Page_p = ToS - FromS + 1 end_p = 0 تقبل وافر تقديري واحترامي

أخي الكريم حاول وضع بعض النتائج المتوقعة مع الشرح بالتفصيل لكيفية إجراء العملية بشكل يدوي .. الكلام بشكل عام يجعل الموضوع غير قابل للردود

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

أخى الكريم وبعد اذن أخى الحبيب وأستاذى // ياسر خليل تجد بالمرفقات طباعه الشهادات من خلال فورم ( من : الى ) وبالنسبة لطباعة الشهادات كافة ( يوجد بالمنتدى هذا الكود الأكثر من رائع وعلى ما أعتقد لا يوجد مثله بالمنتدى ) وهو للعلامة القدير أستاذى // عبد الله باقشير أنا أتذكر اسم الملف ( كنترول رائع ) ولا أتذكر اسم الموضوع كل المطلوب منك تغيير النطاق وتحديد الأعمدة به ليتناسب مع مطلبك Certificates By Form MZM_ELSHRIEF.rar

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

الأخ العزيز / cherifdiar تم عمل معادلة المجموع في موضوع سابق اذهب لهذا الرابط وهل تريد المعادلة باستخدام عمود المعامل أو عمود الشروط لأن لا بد منها للحصول على النتيجة بسهولة تم استعمال عمود المعامل لتحقيق الشروط =IF(SUMPRODUCT(--($O$14:$O$22="غ"))>=3;"راسب";IF((SUMPRODUCT(--($O$14:$O$22>=$P$14:$P$22*10))+SUMPRODUCT(--($N$14:$N$22>=$P$14:$P$22*10)))=9;"ناجح";IF((SUMPRODUCT(--($O$14:$O$22>=$P$14:$P$22*10))+SUMPRODUCT(--($N$14:$N$22>=$P$14:$P$22*10)))>=7;"ناجح بدين";"راسب"))) نتيجة بشروط.rar

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

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

وعليكم السلام أخي العزيز محمد الدسوقي في الحقيقة سأتناول نقطة واحدة فقط في الموضوع ، وهي تصدير الشهادات كلها إلى ملف PDF رابط الملف من هنا

وعليكم السلام ورحمة الله وبركاته أطرح الفكرة والجميع سوف يشاركك الجميع فيها ويحتمل أن تكون لدينا برامج شبيهه أو قريبه من فكرت وبدون أي أتعاب الاعضاء لن يبخلوا عليك صدقني بالتوفيق أخي الكريم

السلام عليكم تفضل الملف المرفق وفيه ماكرو لطباعة كل الشهادات... تمت بعض التعديلات على بعض التنسيقات (معادلة التسمية name1a، نطاق الطباعة)... تم حفظ الملف بصيغة .xlsb لأجل الماكرو... بن علية 1A first.rar

وعليكم السلام ورحمة الله بعض التغييرات على معادلات الملف التي أرجو أن تفي بالغرض (إن كنت قد فهمت المطلوب)... تم إضافة معادلات أخرى باستعمال الدالة OFFSET تقوم بالعملية نفسها... بن علية INQUIRY sheet.rar