عادل حنفي

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

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

السلام عليكم اخي ابو عبد الله بالفعل كود جميل بارك الله فيك تحياتي

السلام عليكم اخي الحبيب ابو عبد الله ايوه كده خليك ظاهر قيل التجربه بارك الله فيك فجميع اعمالك هامه خالص تحياتي و تقديري

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

السلام عليكم اخي الوافي بارك الله فيك ارسل لك اخي ملفا عبارة عن محاولة لالتقاط الصور الموجودة داخل فايل اكسل بشرط ان تكون الصورة محمله علي اداة image و الموجودة داخل شريط ادوات control toolbox اتمني ان يساعدك هذا تحياتي image.rar

السلام عليكم اخي الحبيب ابو اسامه بارك الله فيك وزادك من علمه الكود بالفعل جميل ومختصر اخي الحبيب omar1 بارك الله فيك اخي خالص تحياتي و تقديري

السلام عليكم اخي احمد يعقوب اتمني ان يكون الملف المرفق هو ما تقصده لاني اعلم انشغالك تحياتي Dinamic_Lable_final_with_formula_eny_where.rar

السلام عليكم اخي الفاضل وجدت لك هذا الكود لعله يفيدك ان شاء الله Private Sub TextBox1_Change() Dim CurrentPos As Long Dim CurrentChar As String CurrentPos = 1 While CurrentPos <= Len(TextBox1.Text) CurrentChar = Mid(TextBox1.Text, CurrentPos, 1) If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then TextBox1.Text = Replace(TextBox1.Text, CurrentChar, "") End If CurrentPos = CurrentPos + 1 Wend TextBox1.SelStart = Len(TextBox1.Text) End Sub مرفق مثال علي الاكسل تحياتي ___________________.rar

السلام عليكم هل تقصد التفقيط للعمله ام الارقام فقط و اذا كانت العمله ما نوع العمله تحياتي

السلام عليكم اخي ارسل مثال ليكون الرد علي الواقع تحياتي

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

السلام عليكم لمنع غلق الفورم ايضا Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True End Su b ويوجد كود اخر تم تطبيقه علي فورم بالفاجوال باسيك 5 يعمل دون اي مشاكل و لكن عند التجربه علي الفاجوال باسيك المدمج بالاكسل لم يعمل عموما هذا هو Private Const SC_CLOSE As Long = &HF060& Private Const MF_BYCOMMAND = &H0& Private Declare Function DeleteMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hWnd As Long, ByVal bRevert As Long) As Long Private Sub Form_Load() DeleteMenu GetSystemMenu(Me.hWnd, False), SC_CLOSE, MF_BYCOMMAND End Sub مرفق المثال علي vb5 تحياتي No_Yes.rar

السلام عليكم بارك الله فيك ابو حميد تحياتي

السلام عليكم بارك الله فيك اخي ابو عبد الله و لك وحشة و الله خالص تحياتي

السلام عليكم سلمت يمينك اخي احمد و بارك الله فيك تحياتي

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

السلام عليكم دون اذن اخي فالهدف دائما واحد 1) 2) اعذروني فهاتان الرسالتان اعجبت بهما لما تنم عن احترافيه في الاداء بارك الله فيكما معا و جعلكما دائما خيرا و نفعا للاخرين خالص تحياتي

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

السلام عليكم و لاهمية موضوع المصفوفات اود المشاركة بملف Pdf عباره عن شرح موسع شيئا ما لاخت من العراق الشقيق ارجو ان يكون له الفائدة خالص تحياتي ____array.rar

السلام عليكم و بارك الله فيكي المهم تحقق المطلوب تحياتي

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

السلام عليكم اخي الأسد الجريح بالنسبة لـ susbtitue مرفق ملف لكيفية عمل هذه الدالة تحياتي to_know.rar

السلام عليكم الاخت هنوووي لا طبعا توجد اكواد وهذا هو الكود المكتوب و شرحه Private Sub Worksheet_Change(ByVal Target As Range) في حدث التغيير If Target.Column = 8 Then اذا كانت عمود الخلية المحدده هو العمود 8 If Target <> "" Then اذا كانت قيمة الخلية المحدده بها قيمه Cells(Target.Row, Target.Column + 1) = Date الخليه المقابله لها في العمود 9 تساوي تاريخ اليوم End If End If End Sub مرفق ملف يشرح كيفية الوصول للكود تحياتي hnoy.rar

السلام عليكم اخي aysam With Sheets("ناجح"Columns(1).Rows(300).End(xlUp) هذا معنا الاتجاه الي شيت ناجح من العمود الاول وفي اول خلية فارغة بداية من الصف 300 لاعلي ممكن عمل ذلك بطريقة اخري و لكن محتاجه ملف للتجربة فان كان لديك ملف جاهز ارجو رفعه او انتطر و ان شاء الله تحل ممكن هذا او هذا