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

السلام عليكم، عند كتابه مشاركه ورغبت في اضافه مرفق الى مشاركتك يجب عليك عمل الاتي: اولا : لابد من ضغط الملف(اكسس، اكسل ، وورد....) في ملف من نوع RAR او Zip. ثانيا: في حاله كون حجم الملف المضغوط اكبر من المساحه المتاحه للرفع ،ارفع ملفك على احد مراكز التحميل المجانيه المتوفره على الانترنت.

اهداء لأخوتي في المنتدى فورم ادخال بسيط وتم عمل شاشة دخول للبرنامج بباس ورد ويوزر يمكن تطويعة كيفما تريد عسى ان ينفع به احد الاخوة للدخول للبرنامج User Password Wael Wael@19637 Elhadi 2014 حماية الكود Wael@19637 login.rar

السلام عليكم إخواني الكرام إليكم الملف المرفق فيه نبذة عن المصفوفات .. أرجو من الله أن ينفع به المسلمين Arrays.rar

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

تحية كبيرة للأخ ياسر خليل وجازاه الله خيرا على متابعة الموضوع تفضل اخي الكريم Sub test() Dim sh As Worksheet: Set sh = Feuil4 Dim Lr As Long: Lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row - 1 Dim Text As String Dim i As Integer, r As Integer, x As Integer, xx As Integer r = 0 For i = 2 To Lr x = Val(sh.Range("A" & i + 1)) - Val(sh.Range("A" & i)) Select Case x Case Is > 1 For xx = 2 To x r = r + 1 Text = Text & Val(sh.Range("A" & i)) + xx - 1 & vbCrLf Next End Select Next MsgBox Text End Sub تحياتي للجميع

تفضل أخ ريان ملف مرفق بالكود الرائع الخاص بالأستاذ العلامة شوقي ربيع Missing Number By Code.rar

السلام عليكم الشكر موصول للأخ سليم حاصبيا للإفادة هذا حل عن طريق الاكواد Sub test() Dim sh As Worksheet: Set sh = Feuil4 Dim Lr As Long: Lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row - 1 Dim i As Integer, r As Integer, x As Integer, xx As Integer For i = 2 To Lr x = Val(sh.Range("A" & i + 1)) - Val(sh.Range("A" & i)) Select Case x Case Is > 1 For xx = 2 To x r = r + 1 sh.Range("O" & r).Value = Val(sh.Range("A" & i)) + xx - 1 Next End Select Next End Sub تحياتي للجميع

اللهم إني أحب عبدك هذا حبا يجهله هو وتعلمه أنت اللهم فلا تريني فيه بأسا وأسعد قلبه دوما وأسألك له العفو والعافية و أحفظه من كل شر اللهم آميـــــــــــــن يارب العالميــــــــــــن

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

أخي الحبيب ادخل على لوحة التحكم Control Panel وابحث عن Default Program واختر منها Associate a file type ثم قم بالبحث عن امتداد الصورة المراد تحديد برنامج معين لفتحها ثم اختر Windows Photo Viewer

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

بارك الله فيك اخى الحبيب لنا لقاء بعد التجربه ومحاوله التعلم

السلام عليكم بعد اذن اساتذتى // لاثراء الموضوع حل اخر بمعادلة صفيف تفضل اخى الكريم Aziz002.rar

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

السلام عليكم اليك هذاالملف النموذجي عن الموضوع missing number.rar

شكرا اخي مقصرت والله جزاك الله الف خير

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

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

السلام عليكم و رحمة الله وبركاته اخي الفاضل استفدنا من الكود الموجود وقمنا بعمل كود يقوم بـ4خطوات بضغطة واحدة ترحيل الفاتورة طباعة الفاتورة بعد الترحيل مسح الفاتورة زيادة رقم 1 لرقم الفاتورة بعد المسح Sub trhil_invoice() Application.ScreenUpdating = False Dim LR As Long, LR1 As Long Dim WS As Worksheet Dim WS1 As Worksheet Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("mat") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 Dim FR For r = 6 To LR1 If WS1.Cells(r, 3) = WS.Range("I3") Then MsgBox "This invoice already exist, No shift will done": Exit Sub Next For FR = 10 To 50 If WS.Cells(FR, 3) = "" Then GoTo 7 WS1.Cells(LR1, 2) = WS.Range("E3").Value WS1.Cells(LR1, 3) = WS.Range("I3").Value WS1.Cells(LR1, 4) = WS.Range("E5").Value WS1.Cells(LR1, 12) = WS.Range("E7").Value WS.Range("D" & FR & ":J" & FR).Copy WS1.Range("E" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False WS.Select Application.ScreenUpdating = True 2 Range("A1:K53").PrintOut Copies:=1 Q1 = MsgBox("Êã ÍÝÙ ÈíÇäÇÊ ÇáÝÇÊæÑÉ æ ÌÇÑí ØÈÇÚÉ ÇáÝÇÊæÑÉ - åá ÊÑíÏ ØÈÇÚÉ äÓÎ ÇÎÑì", vbYesNo, "ØÈÇÚÉ") If Q1 = vbYes Then GoTo 2 Range("E3,E5,E7,D10:H49,J10:J49").ClearContents Range("E3").Select ActiveWindow.SmallScroll Down:=-45 Range("I3") = Range("I3") + 1 End Sub آمل ان يكون به المطلوب نموزج فاتورة.rar

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