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

وهي دالة شبيهة ب 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 . جعفر

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

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

السلام عليكم أحبابى واخوانى فى المنتدى هذه أول مشاركة لى بالمنتدى بعد النسخة الجديدة واسمحوا لى بأن أعبر عن رأيى فيها باختصار مثل غالبية المنتديات الأجنبية التى أطلع عليها وأشارك فيها .الشكل يبدو جافا ومفيش حيوية ولا ألوان براقة أو صورة جذابة حتى شريط العناوين كان علامة مميزة لهذا المنتدى ويعطيه الحيوية والنشاط وللأسف افتقدها المنتدى فى ثوبه الجديد ومع أن ده مهم بالنسبة ليه على الأقل والمفروض يؤخذ شكل المنتدى فى الاعتبار كجاذب للتعلم لكن الأهم أننا نتعلم و ربنا يجعل قيها البركة ويحببنا فيها أكتر من القديمة موضوعى الجديد باختصار هو ربط مجموعة خلايا ببعضها فى خلية واحدة يعنى ببساطة لو عندى مجموعة خلايا أقدر أضمهم فى واحدة بدون دمج للخلايا وأنتم عارفين دمج الخلايا الكود وعليه شرح بالعربية : Sub JoinCells() Dim Rng As Range, C As Range, FC As Range, SS As String, Rep As Integer On Error Resume Next ' فى حالة حدوث خطأ يتم تخطيه للنقطة التالية 'جعل المستخدم يعين أو يحدد الخلايا المراد ربطها Set Rng = Application.InputBox(Prompt:=" Ctrl' لربط الخلايا الغير متجاورة " & " استخدم المفتاح ", Title:="سلسلة الخلايا", Type:=8) If Rng Is Nothing Then ' فى حالة عدم فى تحديد أى خلايا Rep = MsgBox(" ! تم الغاء عملية الربط ", vbQuestion + vbRetryCancel) ' رسالة If Rep = vbCancel Then ' فى حالة الغاء تحديد الخلايا On Error GoTo 0 ' فى حالة حدوث خطأ تتم العودة الى نقطة الصفر Exit Sub ' و يتم الخروج من الاجراء Else ' اذا لم يلغى المستخدم عملية تحديد الخلايا Run "JoinCells" ' يتم اعادة الاجراء من جديد End If ' انتهاء جملة الشرط End If ' انتهاء جملة الشرط Set FC = Rng(1, 1) ' اعتبار أول خلية فى الخلايا المحددة كخلية رئيسية تتجمع فيها نصوص باقى الخلايا For Each C In Rng ' عمل لوب على كل الخلايا المراد ربطها SS = C ' اعتبار قيمة المتغير نصا و تساوى قيم الخلايا المحددة C.Clear ' تفريغ محتوى الخلية FC = Trim(Replace(FC, FC, "") & " " & FC & " " & SS) 'استبدال المحتوى الأصلى لأول خلية بالنصوص التى فى الخلايا Next C End Sub ' انتهاء الاجراء وهذا هو المرفق Join selection Cells .rar وهذا شكل آخر للكود Sub JoinCells() Dim Rng As Range Dim C As Range Dim FC As Range Dim StrStart As String Set Rng = Sheets("Sheet1").Range("C10,E10,G10,I10") Set FC = Sheets("Sheet1").Range("C4") 'مكان تجميع الخلايا For Each C In Rng StrStart = C C.ClearContents 'OR : Clear FC = Trim(Replace(FC, FC, "") & " " & FC & " " & StrStart) Next C End Sub وهذا مرفق على الشكل الثانى للكود Join specific Cells mokhtar .rar

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

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

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

جزاك الله كل خير يا ابوالبراء

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

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

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

اخى لؤى ما الداعى لفتح موضوع جديد بنفس الاسم وبنفس اليوم 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) جعفر

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

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

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

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]) مع الانتباه الى تغيير الفاصلة الى فاصلة منقوطة اذا كانت النسخة لديك عربية بالتوفيق

السلام عليكم على حد علمي فى الاكسيس اجعل فى الجدول الحقول الرقميه - القيمه الافتراضيه ( 0 ) ثم ممكن تكون التجميع بهذا الشكل ([Sum([a]+[p]+[m]+[f تسوي

أو ... Application.FollowHyperlink [pic_path]

ضع هذا التنسيق General;[Red](General)

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

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

Option Compare Database Dim DBOld As String Dim DBNew As String Private Sub Form_Close() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End Sub Private Sub Form_Load() DBOld = CurrentProject.Path & "\db2.mdb" DBNew = CurrentProject.Path & "\tst\" Call zerNc End Sub Sub delfiles() Dim strFldr As String Dim strFile As String Dim FileToGet As String strFldr = CurrentProject.Path & "\tst" ' modify folder to your own strFile = Dir(strFldr & "\*.*") ' get list of files in folder Do While Len(strFile) > 0 FileToGet = left(strFile, Len(strFile) - 4) If FileToGet <= CStr(Format(Date - 3, "yyyymmdd")) Then Kill strFldr & "\" & strFile Else End If strFile = Dir Loop End Sub Sub zerNc() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & Format(Now, "yyyymmddhhnnss") & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub Me.Requery Call delfiles End Sub db.rar

افتح راس وتذييل الصفحة ـ ادراج مربع نص في راس وتذييل الصفحة يعني اعلى الصفحة على الهامش ــ ادراج حقل من زر الامر الاجزاء السريعة ــ اختر من الحقول Page ــ اختر تنسيق الصفحة الذي تريده ــ ثم انقر على موافق في مربع الحوار حقل ــ الآن انقل مربع النص الى اي مكان في الصفحة الذي تريده وهذا مثال والسلام عليكم تجربة.rar

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

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

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

السلام عليكم فليسمح لى اخى الاستاذ سليم بهذه المعادله لمعرفة الخلية الغير فارغه =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 تقبل تحياتي

أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء في الدنيا والآخرة عمل رائع وجميل جداً ما رأيك بتعديل بسيط لن يؤثر في عمل الكود أرى أنك تكثر من التحديد والتحديد لا قيمة له ... قم بالإطلاع على الكود بالشكل التالي Sub FindEmptyCell() Dim LR&, R& Application.ScreenUpdating = False LR = Cells(Rows.Count, 1).End(3).Row If LR < 2 Then LR = 2 Range("B2:C" & LR + 1).ClearContents For R = 2 To LR With Range("A" & R) If IsEmpty(.Value) Then .Offset(0, 1) = .Address Else .Offset(0, 2) = .Address End If End With Next Application.ScreenUpdating = True End Sub

بعد اعادة تجربة الكود الكود يعمل على اكسل2010 الكود لا يعمل على2003 لا علم لي بالسبب

قبل السطر 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. حذف الجزء فى الكود المسئول عن نسبة حجم الشيت على الشاشة حيث عند تصغير وتكبير الشاشة يتغير مكان الدوائر وعلى كل حال مرفق الملف كامل وشيت الشهادات بمفرده لمن يريد المساهمة فى الحل

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

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

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

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

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