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

السلام عليكم ورحمة الله اكتب المعادلة التالية فى الخلية C3 ثم اسحب نزولا ثم اضغط CRTL+SHIFT+ENTER =IFERROR(INDEX(المخزون!$A$2:$A$28;SMALL(IF(المخزون!$C$2:$C$28=0;ROW(المخزون!$C$1:$C$27);"");ROW()-2);1);"")

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

جزاكم الله خيرا

هل سيكون لكل رمز صف واحد فقط من البيانات الأفضل إرفاق ملف فيه 15 أو 20 صف ليكون معبر عن الملف الأصلي إذا كان الطلب لصف واحد فالأمر سيكون بسيط في تعديل الكود الموجود بالملف أما خلاف ذلك فسيلزم كود آخر

السلام عليكم ورحمة الله اجعل المعادلة هكذا =IFERROR(INDEX($A$2:$A$38;SMALL(IF($C$12:$C$38=0;ROW($C$11:$C$37)-1;"");ROW()-11)+1;1);"")

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

وعليكم السلام أخي الكريم حارثة أهلاً بك في المنتدى ونورت بين إخوانك ها هو الملف الذي لم تستطع تحميله .. وأرجو أن يفيدك إن شاء الله ولو احتجت أي حاجة لا تترد في طرح طلبك في المنتدى ففيه من الأخوة الكرام من سيقوم بمساعدتك إن شاء العلي القدير وتقبل تحياتي Transfer To Related Sheet Using Arrays And Check Worksheet Exists UDF YasserKhalil Facebook.rar

بالتوفيق اخى الكريم

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

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

إن شاء الله إذا لم يتدخل أحد الأخوة سأحاول في الموضوع ليلاً تقبل تحياتي

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

وعليكم السلام أخي الكريم محمد فتحي بسم الله ما شاء الله .. الأعضاء الجدد النهاردة في المنتدى عدد كبير (بفكر نعملهم حفلة) طبعاً بالنسبة للموضوع يفضل إرفاق ملف نموذج مصغر مع توضيح شكل النتائج المتوقعة عشان تلاقي استجابة أسرع (مش كدا ولا ايه ..) وعموماً كبداية الملف دا ممكن يفيدك في الموضوع https://www.file-upload.com/1tno7fg704kk

تفضل بحث شامل جميع الحقول وبجزء من الكلمة داخل النموذج الرئيسي الكود اخذته من مثال للاستاذ جعفر للبحث داخل النموذج الفرعي Dim fld As String Dim x() As String Dim A As String Dim i As Integer fld = "[اليوم]" fld = fld & " & ' ' & " & "[التاريخ]" fld = fld & " & ' ' & " & "[الاسم]" fld = fld & " & ' ' & " & "[رقم الهوية الوطنية / الاقامة]" Me.RecordSource = "" mySQL1 = "Select * From [المراجعين]" mySQL = mySQL1 & " Where " Me.textSearch.SetFocus A = Me.textSearch.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") x = Split(A, "|") If UBound(x) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else For i = LBound(x) To UBound(x) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If If Len(Me.textSearch.Text & "") = 0 Then mySQL = mySQL1 End If Me.RecordSource = mySQL End Sub بحث شامل في نموذج رئيس.rar

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

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

السلام عليكم ورحمة الله بارك الله فيك اخى الكريم ياسر مجرد مرورك على اى موضوع اشارك فيه هو شرف كبير

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

أخي الكريم محمد غانم إزاي معندكوش رقم قومي .. عموماً في وجهة نظري بدلاً من التعديل يمكنك اعتماد أي رقم كرقم قومي والموضوع هيكون بسيط .. بس هتخلي الأرقام دي بالشكل التالي أول رقم من الشمال اللي هو بيكون رقم 2 لمواليد 1990 لحد 1999 .. أو 3 لمواليد 2000 فما فوق بعد كدا الرقمين يخصوا السنة (سنة الميلاد) ، والرقمين اللي بعد كدا شهر الميلاد والرقمين بعد كدا يوم الميلاد .. وبقية الأرقام ممكن تفبركها أي أي أرقام .. والرقم التاني من جهة اليمين لو كان الطالب ذكر خلي الرقم فردي ولو أنثى خليه زوجي بالمثال يتضح المقال : لو عندك طالب اسمه "أحمد غانم" (غريبة طلع الطالب على اسمك) ... وتاريخ ميلاده 12 من شهر فبراير لعام 2006 يبقا الرقم القومي هيكون بالشكل ده : 30602123300015 الأرقام من الشمال : 3 ، 06 (السنة) ، 02 (الشهر) ، 12 (اليوم) وأي 7 أرقام بس المهم الرقم التاني من جهة اليمين يكون فردي (لو ذكر) وزوجي (لو أنثى) والرقم دا ممكن تستخدمه ككود للطالب لأن الرقم دا لا يتكرر بأي حال من الأحوال تقبل تحياتي

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

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

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

السلام عليكم يوجد هناك برنامج جاهز يعطيك جميع هذه الخصائص و أكثر اسمه aSc TimeTables https://asc-timetables.ar.uptodown.com/windows

السلام عليكم ورحمة الله تفضل اخى الكريم Private Sub CommandButton1_Click() Dim i As Long, p As Long For i = 30 To 40 If Me.Controls("TextBox" & i).Value = "" Then Exit Sub p = Val(Me.Controls("TextBox" & i).Value) * Val(Me.TextBox1.Value) Me.Controls("TextBox" & i + 11).Value = p Next Exit Sub End Sub

السلام عليكم ورحمة الله تم إضافة المعادلات اللازمة في الملف... والخطأ N/A# في نتائج المعادلات تركته بالذمة حتى تعرف أن الاسم المكتوب في العمود B غير مطابق للاسم في ورقة "البيانات" أو غير موجود أصلا في هذه الورقة... بن علية حاجي الكل.rar

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