سليم حاصبيا

جرب هذا الشيء اللائحة مطاطة تستطيع ان تضيف ما تشاء من اسماء في الجدول(الاسم المكرر يظهر مرة واحدة فقط) VALLIST.rar

في هذا الكود الرقم 3 هو رقم العامود حيث الكنابة في هذه الخالة C في هذه العبارة (Set myrange = Selection.Offset(-1, -2).Resize(1, 8 الرقم 8 هو عدد اعمدة الجدول الرقم 2- هو عدد الخلايا للوصول الى اول عامود في الجدول من الخلية المحددة الرقم 1- هو ازاحة للاعلى بمقدار صف واحد تستطيع ان تغير هذه الارقام كما تريد

تستطيع ان تعدل المعادلات باستبدال للرقم 40 بأي رقم تريده

تم التعديل على الملف حسب ما تريد انظر الى الصفحة الثانية واضغط افضل اجابة (اذا كانت كذلك) Sans paternal adapte.rar

عسى ان يكون المطلوب Sans paternal.rar

زيادة في اثرء الموضوع يمكن استعمال اح هذين الكودين: Sub salim() i = 2 Do While Range("a" & i) <> "" Range("B" & i) = "=" & Range("a" & i) i = i + 1 Loop End Sub

اذهب الى هذا العنوان : https://support.office.com/ar-sa/article/%D8%A5%D8%B1%D8%B4%D8%A7%D8%AF%D8%A7%D8%AA-%D9%88%D8%A3%D9%85%D8%AB%D9%84%D8%A9-%D9%84%D8%B5%D9%8A%D8%BA-%D8%A7%D9%84%D8%B5%D9%81%D8%A7%D8%A6%D9%81-3be0c791-3f89-4644-a062-8e6e9ecee523?ui=ar-SA&rs=ar-SA&ad=SA

ربما كان المطلوب borders salim.rar

رمضان كريم والسلام عليكم هل خطر في بال احد ما ان يعرف مجموع عدد ايام محددة (سبت- احد .... الخ) بين تاريخين مع تاريخ كل يوم هذا الملف يحل هذه المشكلة (تم حماية المعادلات في الملف لعدم العبث بها عن طريق الخطأ) count days.rar

ربما كان المطلوب 111 salim.rar

السلام عليكم و رمضان كريم كيف يمكن مقارنة نتيجة طالبين بواسطة VBA عسى ان ينال اعجابكم COMPAIRE NOTES.rar

تضيف عامود المحافظة الى الجدول و للحصول على المحافظة التابعة تستعمل نفس المعادلة ولكن تستبدل الرقم 2 في المعادلة برقم 3

الملف جاهز و تحت لطلب اضغط (افضل اجابة) كي يكون الموضوع مجاب عليه و منته expl2 salim 1.rar

يجب ان تنسخ الماكرو ايضاً

يجب معرفة معادلة الخط اولاً بواسطتها يتم حساب اي نقطة انظر الى الورقة 2 كمثال حساب مستقيم salim.rar

ارفع قسماً من الملف ولو 5% منه كي يتم معالجة الامر

هل هذا المطاوب؟ compteur.rar

اليك هذا الملف للعمل عليه (فقط نموذج) تستطيع لتعديل في البيانات في الصفحة رقم 2 كود المدن.rar

زيادة في اثراء الموضوع النتيجة بواسطة الماكرو انظر الى (Feuil1 (2 المسافة salim (macro).rar

حاول ان تكتب الكود بهذا الشكل Private Sub CommandButton1_Click1() On Error Resume Next Dim x x = TextBox1.Value If Not x Is Nothing And Sheets("sheet(x)").Name Then Sheets(x).Activate ActiveSheet.Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = TextBox1.Value ActiveSheet.Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).Value = TextBox2.Value ActiveSheet.Range("D" & Range("D" & Rows.Count).End(xlUp).Row + 1).Value = TextBox3.Value Else MsgBox "لم تحدد ورقة العمل" End If TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox1.SetFocus End Sub

رمضان كريم اليك المطلوب القوائم المنسدلة مطاطة (تستجيب لاي تعديل في البيانات و لا يظهر المكرر الا مرة واحدة) (أفضل اجابة من فضلك) المسافة salim.rar

تم التعديل غلى الملف ليعمل بواسطة المعادلات ايضاً انظر الى لصفحة Sheet(1) 2 تسلسل salim advanced.rar

الحرف a في الكود هو اول عامود في الجدول (العامود رقم واحد يمكنك استبداله) الرقم 6 هو عدد اعمدة الجدول الرقم 1 داخل هذه العبارة( Cells(Rows.Count, 1 هو رمز للعامود الاول a=1 ,B=2 ,c=3 .... و هكذا يمكنك تغيير هذه المعطيات في اي كود جديد تكتبه

السلام عليكم و رمضان كرم اذا كان صحيحاً ما فهمته فهذا المطلوب تسلسل salim.rar

المعادلة مكونة من ثلاثة اقسام 1 القسم الاول OR , و ما بداخلها يحدد اذا كانت احد الخليتين C5 أو H3 فارغة (التركيز على أو) يطبق القسم الثاني (True) و اذا كانت الخليتين C5 و H3 غير فارغتين (معاً) يطبق القسم الثالث (False) 2-القسم الثاني "" لا تظهر شيئاً (اي اجعل الخلية -حيث المعادلة - فارغة) 3-القسم الثالث اظهر قيمة الخلية BL2