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

وهي دالة شبيهة ب IF، ولكن الفرق بينها هي أن ال IF تتوقف عند تطابق الشرط وتعطي النتيجة، بينما ال IFF تستمر بالتحليل حتى يمكنها تطابق أكثر من شرط. مثال1 مثال2

الساده / أعضاء المنتدى المحترمين سلام الله عليكم جميعا ورحمته وبركاته قمت بعمل تجميع لعديد من البرامج الجاهزة وقد قمت بتجميعها من خلال البحث فى المنتدى فسامحونى إن كنت نسيت نموذج لأحد الأساتذه الأعضاء نتمنى من الله عز وجل أن ينتفع بها الجميع تلك البرامج و النماذج القيمه هى مجهود للساده الأعضاء بارك الله فيهم وزادهم الله من فضله وجزاهم رب العالمين عنا خير الجزاء وبرامج ونماذج قاموا بتنفيذها بناء على طلبات من الساده الأعضاء وتقبلوا منى وافر الإحترام والتقدير أخيكم فى الله محمود الشريف وإليكم النماذج برنامج متابعه حركة السيارات للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49733#entry303008 برنامج مصاريف سيارات وأرصده للأستاذ / محمد مصطفى أبو حمزة http://www.officena.net/ib/index.php?showtopic=46058#entry273859 برنامج مراقبة خطابات الضمان للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=38044#entry209393 برنامج نظام حركة المستودعات ومتابعة المخزون للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=38870#entry213211 برنامج للعيادات الطبية للأستاذ / مدحت http://www.officena.net/ib/index.php?showtopic=32830#entry169369 برنامج السكرتير الخاص للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=42018#entry239414 برنامج للأقساط _ مجهود مشترك بين الأستاذ / حسام والأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279457 تعديل للبرنامج السابق للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279481 تعديل للبرنامج السابق للاستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=46619#entry279786 برنامج أقساط الإصدار الأول للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry148900 برنامج أقساط الإصدار الثانى للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry149116 برنامج أقساط الإصدار الثالث للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry149553 برنامج أقساط الإصدار الرابع للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=29892#entry150361 برنامج متابعة الوثائق للأستاذ / الجزيرة http://www.officena.net/ib/index.php?showtopic=31712#entry161472 برنامج لقاعده بيانات عمل مشترك بين الأستاذ / قارى _ والأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=44485#entry259617 نموذج أقساط للأستاذ /سايق الخير http://www.officena.net/ib/index.php?showtopic=38538#entry210055 قام بالتعديل عليه الأستاذ / عبد الله المجرب http://www.officena.net/ib/index.php?showtopic=38538#entry210056 قام بالتعديل عليه الأستاذ / بن عليه حاجى http://www.officena.net/ib/index.php?showtopic=38538#entry210084 برنامج المخزون الإصدار الأول للأستاذ / عمرو http://www.officena.net/ib/index.php?showtopic=41247#entry233101 برنامج المخزون الإصدار الثانى للأستاذ / عمرو http://www.officena.net/ib/index.php?showtopic=43332#entry250295 برنامج المخزون الإصدار الثالث للأستاذ / عمرو 2010 http://www.officena.net/ib/index.php?showtopic=46059#entry273864 برنامج المخزون الإصدار الثالث للأستاذ / عمرو 2007 : 2010 http://www.officena.net/ib/index.php?showtopic=46059#entry273864 برنامج مرتبات للقطاع الخاص للأستاذ / سعيد بيرم http://www.officena.net/ib/index.php?showtopic=41465#entry240172 برنامج الصادر والوارد _ الإتصالات الإدارية للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46813#entry281283 برنامج الإتصالات الإدارية الإصدار الأول للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199078 برنامج الإتصالات الإدارية الإصدار الثانى للأستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199224 برنامج الإتصالات الإدارية الإصدار الأخير للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=37265#entry199421 برنامج للتعامل مع طلبات الشراء والموردين للأستاذ / أبو عبد الله http://www.officena.net/ib/index.php?showtopic=30844#entry155312 برنامج حجز الغرف الفندقية عمل مشترك بين الأستاذ / هانى بدر والأستاذ / أبو عبد الله http://www.officena.net/ib/index.php?showtopic=39568&page=2#entry224762 برنامج حسابات المطاعم للأستاذ هانى بدر http://www.officena.net/ib/index.php?showtopic=32220&page=2#entry189567 برنامج دليل الهاتف الإصدار الثانى للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=27222#entry131055 برنامج فواتير منوع للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26948#entry129215 برنامج حافظة شخصية دليل الهواتف للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26211#entry124665 برنامج التقويم ( التاريخ ) للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=26155#entry124252 فاتورة للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24322#entry113573 برنامج الفواتير كامل للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24191#entry112811 برنامج سندات القبض والصرف للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=24191#entry112811 برنامج خبور المحاسبى برنامج كامل للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=17944#entry80465 برنامج خبور المحاسبى الإصدار الثالث للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=16879#entry74858 برنامج خبور الإصدار الثانى للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=16256#entry71834 برنامج خبور المحاسبى الإصدار الأول للأستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=15933#entry69998 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14978#entry65693 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14880#entry65142 برنامج حسابات للاستاذ / عبد الله باقشير http://www.officena.net/ib/index.php?showtopic=14619#entry63693 برنامج شراكة العقارات للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=49900#entry304640 برنامج الشيكات للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=50143#entry306916 برنامج كشوف حسابات ( منه له ) للاستاذ / أحمد زمان http://www.officena.net/ib/index.php?showtopic=50819#entry312828 معظم برامج شئون العاملين وما يتعلق بها لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51271&hl= نسخة تجريبية لنموذج شيك لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51306#entry317305 برنامج لمتابعة أسعار الصرف ( العملات ) لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51109#entry315286 برنامج متابعة حركة السيارات قابل للتعديل وبه امكانية متابعة الوثائق لـ / محمود الشريف http://www.officena.net/ib/index.php?showtopic=51386#entry318102 برامج ونماذج التنبيه لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51261&hl= برنامج دليل الهاتف المتطور للأستاذ / أحمد حمور http://www.officena.net/ib/index.php?showtopic=33881#entry176806 برنامج دليل الهاتف العصرى للأستاذ / أحمد حمور http://www.officena.net/ib/index.php?showtopic=34679&page=2#entry182322 برنامج دليل الهاتف على طريقة سامسونج للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46463#entry277636 برنامج خاص لمحاسبة وجرد وصيانه الهواتف للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48351#entry292775 برنامج تسيير الأشخاص للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=48251#entry292035 برنامج تسيير شركات النقل للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=47818#entry289335 برنامج تسيير شئون الموظفين للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=46153#entry274883 برنامج تتبع للمضيفين والآليات للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=45902#entry272143 برنامج الموردين للأستاذ / شوقى ربيع http://www.officena.net/ib/index.php?showtopic=45883#entry271941 برنامج ادارة الإيجارات الإصدار الأول للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=50382#entry309122 برنامج إدارة الخدمات المصرفية للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=51110#entry315312 برنامج إدارة الإشتراكات الشهرية للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49929#entry304870 برنامج مستحقات نهاية الخدمة للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=47291#entry284873 برنامج سند صرف مع بيان الدفعات للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=49296#entry299662 برنامج كشف حساب للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=48492#entry293528 برنامج استمارة العائلة الإلكترونى للأستاذ / ضاحى الغريب http://www.officena.net/ib/index.php?showtopic=47555#entry287386 برامج الكنترول والمدارس لعديد من الأساتذة رابط تجميعى لـ محمود الشريف http://www.officena.net/ib/index.php?showtopic=51265&hl=

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

سؤال فزورة كيف يمكن ان نسثني عدداً معيناً (مع مضاعفاته من تسلسل ما)؟؟ انظر إلى المرفق (سأقوم برفع الباسورد فيما بعد) تسلسل مخصص.rar

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم فورم يقوم بتوليد أرقام عشوائية ما بين رقمين .. الجديد في الموضوع أن الأرقام التي يتم تحديدها كأرقام البداية والنهاية يحتفظ بها في ملف الريجستري ..أي إذا أغلقت المصنف وفتحته مرة أخرى ستجد آخر أرقام تم تسجيلها ومحتفظ بها على سبيل المثال ..أول ما تشغل الفورم يكون رق البداية 1 ورقم النهاية 100 .. قم بتغيير الرقم 1 إلى 5 والرقم 100 إلى 200 ... ونفذ الكود واخرج من الفورم وأغلق المصنف وأعد فتحة مرة أخرى .. ستجد أن الأرقام الأخيرة 5 ، 200 تم الاحتفاظ بهما أرجو أن ينال الفورم إعجابكم الكود التالي يوضع في موديول Public Const PUPNAME As String = "Officena Forums" Public Const APPNAME As String = "Random Number Generator" Sub GetRandomNumber() With UserForm1 .StartUpPosition = 0 .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width) .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height) .Show End With End Sub والكود التالي يوضع في حدث الفورم Option Explicit Dim Stopped As Boolean Dim Cnt As Long Private Sub UserForm_Initialize() On Error Resume Next Label1.BackColor = ActiveWorkbook.Theme.ThemeColorScheme(msoThemeDark2).RGB On Error GoTo 0 Me.Caption = APPNAME If GetSetting(PUPNAME, "Settings", "RememberSettings", True) Then TextBox1.Text = GetSetting(PUPNAME, APPNAME, "TextBox1", 1) TextBox2.Text = GetSetting(PUPNAME, APPNAME, "TextBox2", 100) End If End Sub Private Sub StartStopButton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Call Start_Or_Stop End Sub Private Sub StartStopButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '"S" Keys Starts And Stops If KeyCode = 83 Then Call Start_Or_Stop End Sub Private Sub Start_Or_Stop() Dim Low As Double, Hi As Double If StartStopButton.Caption = "Start" Then LabelNumberCount.Visible = False 'Validate Low And High Values If Not IsNumeric(TextBox1.Text) Then MsgBox "Non-Numeric Starting Value.", vbInformation, APPNAME With TextBox1 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With Exit Sub End If If Not IsNumeric(TextBox2.Text) Then MsgBox "Non-Numeric Ending Value.", vbInformation, APPNAME With TextBox2 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With Exit Sub End If 'Make Sure They Aren't In The Wrong Order Low = Application.Min(Val(TextBox1.Text), Val(TextBox2.Text)) Hi = Application.Max(Val(TextBox1.Text), Val(TextBox2.Text)) 'Adjust Font Size If Necessary Select Case Application.Max(Len(TextBox1.Text), Len(TextBox2.Text)) Case Is < 5: Label1.Font.Size = 72 Case 5: Label1.Font.Size = 60 Case 6: Label1.Font.Size = 48 Case Else: Label1.Font.Size = 36 End Select StartStopButton.Caption = "Stop" Stopped = False Randomize Cnt = 0 Do Until Stopped Label1.Caption = Int((Hi - Low + 1) * Rnd + Low) Cnt = Cnt + 1 DoEvents Loop Else Stopped = True StartStopButton.Caption = "Start" With LabelNumberCount .Visible = True .Caption = Cnt End With End If End Sub Private Sub CancelButton_Click() Stopped = True Unload Me End Sub Private Sub UserForm_Terminate() Stopped = True SaveSetting PUPNAME, APPNAME, "TextBox1", TextBox1.Text SaveSetting PUPNAME, APPNAME, "TextBox2", TextBox2.Text On Error GoTo 0 Unload Me End Sub Private Sub PUPHelpButton_Click() MsgBox "Random Number Generator By YasserKhalil From Officena", 64 End Sub وإليكم الملف المرفق مطبق فيه الأكواد ... عسى أن ينال إعجابكم تقبلوا تحياتي حمل الملف من هنا

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي "ياسر خليل أبو البراء" على الهدايا الثمينة التي طالما تتحفنا بها جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي

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

السلام عليكم هذا المثال على كيفيه استخدام النسخ واللصق فى العمليات الحسابيه مثال اذا اردنا تحويل الارقام الموجبه الى ارقام سالبه1 - كتابه -1 فى خليه منفصله2- عمل COPY لهذه الخليه3- تحديد الارقام المراد تحويلها 4- عمل PASTE special مع تحديد Values و Multiply

تفضل 1. SELECT Count(Field_YN) AS How_Many FROM Table1 GROUP BY Field_YN HAVING Count(Field_YN)=True; 2. UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]=True . جعفر

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

امثلة بسيطة ارجوا ان تنفعنا جميعا صيغة الدالة DLookup DLookup(expr, domain [, criteria] )‎ expr( مطلوب) اسم الحقل domain( مطلوبة) اسم الجدول/الاستعلام criteria( اختيارية) الشروط دا مثال بسيط : عازوين نعرف اسم الصنف الذي كوده 15 في جدول الاصناف اسم الجدول : items اسم الحقل الذي يحمل أرقام الاصناف : code_items اسم الحقل الذي يحمل أسماء الاصناف: items_Name كود: MsgBox DLookup("[items_Name]", "items", "code_items=15") ممكن ناخد كود الصنف من مربع نص موجود في نموذج بدلاً من التصريح في الدالة عن كود الصنف لنفترض مثلا أن مربع نص موجودٌ في النموذج باسم txtItemsCode كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode) ممكن ناخد قيمة كود الصنف من نموذج آخر بس بشرط أن يكون مفتوحاً ، فلو كان txtItemsCode موجود في نموذج آخر باسمfrm1 فإن الكود سيأخذ الشكل التالي : كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) ملحوظة بالنسبة للشروط يجب أن تأخذ في الاعتبار نوع بيانات الحقل الذي نعتمد عليه في الشرط ، في المثال السابق كان حقل نوع بياناته (رقم) ، فلو كان نوع بياناته (نص) سيكون الكود بالشكل التالي :code_items كود: MsgBox DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") طب لو كان نوع بياناته (وقت/تاريخ) الكود هيبقى كدا كود: MsgBox DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") وشكر الله لكم جميعا

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

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

اخواني في المنتدى اليكم هذا الموضوع(ليس سؤال) ربما يكون مفيداً عندما تدعو الحاجة find cell.address.zip

السّلام عليكم و رحمة الله و بركاته أخي الكريم .. يا يمين يا شمال .. إبتعد لو سمحت عن عبارة " وإن لم يكن ......." وحدّد ماذا تريد بالضبط ..هدفًا محدّدًا تريده .. ليتمكّن الأساتذة الأكارم من تقديم المساعدة من يمكنه ذلك فائق إحتراماتي

أخي بن علية معادلة ناجحة جداً اما معادلتي فهي =IF(AND(N($D$1)>0,MOD($D$1,1)=0),IF($D$1=1,ROWS($A$1:A1),ROUNDUP(ROWS($A$1:A1)/($D$1-1),0)+ROWS($A$1:A1)-1),"")

اخى لؤى ما الداعى لفتح موضوع جديد بنفس الاسم وبنفس اليوم http://www.officena.net/ib/topic/67678-يتغير-لون-خليه-بمجرد-ادخال-معلومات-بالجدول/ اكتفى بعد ذلك ان لم تجد استجابه بوضع مشاركه فى موضوعك للرفع مثلا حتى يكون الموضوع بالاعلى ليراه الجميع وسوف يشاركك من يفهم سؤالك بكل تاكيد تقبل مرورى واعذرنى لكلامى هذا ولكن حفاظا على المنتدى بالتوفيق

ادخال أمر ..... ادخال بيانات الرجاء التوضيح أكثر بمثال

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

خلي كلامنا في الاستعلام: المشكلة تحدث عندما نريد ان نعمل عملية معينة على حقل Null ، فجرب التالي: nz([fName],"") اما بالنسبة للتاريخ ، فيجب ان نتأكد من وجود التاريخين ، فاذا لم يوجدا ، فنقول للاستعلام ، استعمل التاريخ الاصل (اي الذي نبحث فيه): iif(len([Date_From] & "")=0 or len([Date_To] & "")=0,[myDate], Between Date_From and Date_To) جعفر

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

وعليكم السلام هذه استعلامات بحد ذاتها واذا اردناها في النموذج ، على زرين مختلفين: 1. A= DCount("*","Table1","[Field_YN]=-1") 2. mySQL= "UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]= -1" currentdb.execute(mySQL) جعفر

تمت التجربة و لله الحمد

جزاك الله كل خير اخى ارجو منك ارفاق ملف مع شرحك حتى يتثنى للمبتدئين أمثالى تحميله وتجربته اكثر بالتوفيق

السلام عليكم اخى الكريم ضع المعادلة التاليه فى الخليه D13 ثم قم بالسحب لاسفل =IF($B$11="";"";INDEX(ring;MATCH(A13;احصاء!$A$2:$A$16;0);MATCH($B$11;tam;0)))

السلام عليكم ورحمة الله وبركاته اقدم لكم هذا البرنامج البسيط لعل وعسى ان ينال رضاكم ... هذا البرنامج لادارة شؤون الموظفين بالمدارس يوجد به تسجيل بيانت الموظفين والدورات والاجازات والعديد من التقارير. وهو عمل بسيط ارجوا ان ينال اعجابكم وارجوا منك اطلاعى على المشكلات والخطاء والافكار الممكن اضافتها الى البرنامج https://drive.google.com/open?id=0BxKxrloSKc-TNllfYmtmVXFEZ0k

اخى الزبارى موضيعك مميزة جزاك الله خيرا

iif(isnull([a]),0,[a])+iif(isnull([m]),0,[m])+iif(isnull([f]),0,[f])+iif(isnull([c]),0,[c])+iif(isnull([d]),0,[d]) مع الانتباه الى تغيير الفاصلة الى فاصلة منقوطة اذا كانت النسخة لديك عربية بالتوفيق

العمل اننا نضيف سطر نحجب هذا الزر عند تحقق الشرط Me.fvacations.Form!zer1.Visible = False db1.rar

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

أو ... Application.FollowHyperlink [pic_path]

السلام عليكم أخي عصام الكود بحاجة الى مسافة قبل كلمة Where ، فيصبح الكود الصحيح هكذا: DoCmd.RunSQL "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "' WHERE (((main.ID)=[forms]![new txn]![issue id]))" وفي برامجي ، دائما اجزّء الكود الى اسطر ، حتى لا اقع في مثل هذا الخطأ ، فيكون الكود هكذا (لاحظ المسافة قبل Where) : mySQL = "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "'" mySQL = mySQL & " WHERE main.ID =[forms]![new txn]![issue id]" DoCmd.RunSQL mySQL جعفر

وعليكم السلام أخي الكريم ابو قاسم الملف مضغوط ويجب فك الضغط أولاً .. بعد فك الضغط سيظهر معك ملف إكسيل عموماً إليك الملف مضغوط ولكن بتنسيق أوفيس 2003 VBA Time Saver Kit.rar

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

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

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

الفاائدة استبدال المعادلتين (واحدة في كل عامود )الى معادلة واحدة تكتب في الخلية B2 , ولا تنفذ الا على عامودين فقط اينما وضعتها

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

شكراَ اخي محمد على هذه المغادلة لكن اذا اردت ان تشمل كل النطاق من B2 :c100 بمعادلة واحدة (صفيف) اكتب هذه في B2 و اسحب يساراً و نزولاً (لا نتس Ctrl+Shift+Enter) =IF(OR(ROWS(B$2:B2)+1>MAX(--($A$2:$A$100<>"")*ROW($A$2:$A$100)),COLUMNS($A1:A1)>2),"",CHOOSE((COLUMNS($A1:A1)),IF($A2<>"",CELL("address",$A2),""),IF($A2="",CELL("address",$A2),"")))

السلام عليكم فليسمح لى اخى الاستاذ سليم بهذه المعادله لمعرفة الخلية الغير فارغه =IF(A2<>"";CELL("address";A2);"") لمعرفة الخلية الفارغه =IF(A2="";CELL("address";A2);"") تقبلوا منى تحياتى

بسم الله ما شاء الله أخي الغالي المتميز مختار تسلم الأيادي وتكيد الأعادي .. تسلم يا ابن بلادي إليك زيادة في الخير .. دالة لدمج القيم في خلية واحدة ويمكنك تحديد نوع الفاصل بين القيم من خلال المعادلة Public Function Concat(MyRange As Range, Optional myDelimiter As String) '=Concat(C9:I14," ") Dim rCell As Range Application.Volatile For Each rCell In MyRange Concat = Concat & rCell & myDelimiter Next rCell If Len(myDelimiter) > 0 Then Concat = Application.WorksheetFunction.Trim(Left(Concat, Len(Concat) - Len(myDelimiter))) End If End Function تقبل تحياتي

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

قبل السطر For Each c In MyRng ضع الاسطر التالية For Each V In ActiveSheet.Shapes If V.Top = Rows(16).Top + 1 Or V.Top = Rows(30).Top + 1 Or V.Top = Rows(44).Top + 1 Then V.Delete Next

أخى الفاضل جلال بك محمد السلام عليكم بالنسبة لرفع الملف كامل ها هو رابط خارجى http://www.mediafire.com/?k9b6uw7d42s5h7f ولكن العمل على شيت الشهادات نفسه أسرع وأفضل حيث أن الشهادة تأخذ الدرجات من نفس الشيت الذى فيه الشهادات ولكن من خلايا وسيطة وهذه الخلايا بدورها تأخذها من شيت الرصد ما علينا فى الواقع أعتقد أن الملف الذى أرفقته أنا فى المشاركة رقم 7 من هذا الموضوع يجب أن نعمل عليه لأن به نصف الموضوع تم إنجازه وهو وضع الدوائر تلقائياً وكما ذكرت فى السابق يبقى أمران صغيران 1. إضافة سطر بالكود لحذف الدوائر عن الدرجات الناجحة وذلك قد يستدعى إضافة إلس أو إف فى الكود 2. حذف الجزء فى الكود المسئول عن نسبة حجم الشيت على الشاشة حيث عند تصغير وتكبير الشاشة يتغير مكان الدوائر وعلى كل حال مرفق الملف كامل وشيت الشهادات بمفرده لمن يريد المساهمة فى الحل

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

للرفع رفع الله قدركم

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

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

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