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

وهي دالة شبيهة ب 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 & "#") وشكر الله لكم جميعا

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 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

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

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

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

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

أخي بن علية معادلة ناجحة جداً اما معادلتي فهي =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),"")

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

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

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

وعليكم السلام هذه استعلامات بحد ذاتها واذا اردناها في النموذج ، على زرين مختلفين: 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

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

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

أو ... Application.FollowHyperlink [pic_path]

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

السلام عليكم أخي عصام الكود بحاجة الى مسافة قبل كلمة 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 جعفر

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

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

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

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

شكراَ اخي محمد على هذه المغادلة لكن اذا اردت ان تشمل كل النطاق من 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 تقبل تحياتي

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

بعد اعادة تجربة الكود الكود يعمل على اكسل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

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

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

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

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