سليم حاصبيا

جرب هذا الملف سداد ايجار salim.rar

تم التعدبل مجدداً لا يتغير شيئ في البيانات المسجلة مسبقاً My_Project salim5.rar

ربما كان المطلوب حساب متوسط الأكواد salim.rar

لا اعلم عن اي بيانات تتكلم انت تريد ان تنسخ البيانات من ورقة محمد و هكذا كان الخلايا A2 B2 C2 D2 من ككل صفحة تتغير جسب العميل اما الخلايا الباقية لا اعرف اين مصدرها انظر الى التعديل التالي للملف My_Project salim4.rar

لم استطع ان اكون اسرع من ذلك للرد و ذلك لانشغالي بالاعمال المدرسية وضيق الوقت على فكرة لم ار الاعجاب بعد(انا اصلي بهــزر)

مع انك لم ترفع الملف المطلوب العمل عليه هذا ملف نموذج عما تريد _3alamat.rar

تم التعديل للمرة الثّالثة My_Project salim3.rar

استطعت ان اجد التاريخ بغض النظر عن الكود يبقى ان يكفل احد الاخوة بالباقي لضيق الوقت missing date.rar

جرب هذا التنسيق [$-2000000]0.00

بعد الضفط على لا يظهر امامك مربع حوار 1-اختر اسماً جديداً للملف(يمكنك الاحتفاظ بنفس الاسم) 2 من التيويب save as type اضفط على السهم الصغير و اختر Excel macro enabled workbook 3-اضغط Save

تم التعديل مرة اخرى فقط عليك كتابة المعادلات اللازمة(قمت ببعضها بواسة الكود) My_Project salim2.rar

تم التعديل على الماكرو My_Project salim.rar

حرب هذا الملق تم تغيير اسم الورقة للغة الاجنبية( Projects) لسهولة التعامل مع الكود الكود: Sub uniq_to_dataValidation() If ActiveSheet.Name <> "Projects" Then Exit Sub Dim SL, ar, i As Integer Dim My_Str As String ar = Range("b7", Range("b" & Rows.Count).End(xlUp)) Set SL = CreateObject("System.Collections.ArrayList") With SL For i = 1 To UBound(ar, 1) If Not .contains(ar(i, 1)) Then .Add ar(i, 1) Next i End With My_Str = SL(0) For i = 1 To SL.Count - 1 My_Str = My_Str & "," & SL(i) Next With Range("a2").Validation .Delete: .Add xlValidateList, , , My_Str End With End Sub الملف My_Project.rar

جرب هذا لماكرو Sub format_it() i = 1 Do Until Cells(i, "k") = "" Or Cells(i, "h") = "" my_formul = "#.00 " & Cells(i, "h").Value Cells(i, "k").NumberFormat = (my_formul) i = i + 1 Loop End Sub

كيف نختار عدد معين من الاسماء في جدول ( عشوائياً -دون تكرار) مع العلم ان الاسماء يمكن ان تتكرر في الجدول انظر الى المرفق choose_n_person randomly.rar

ربما كان المطلوب الاسماء تضاف تلقائيا الى الكومبو و ترتب ابجدياً بدون تكرار form1.rar

بمكن ان بكون المطلوب يتم اختيار الكلمة من الخلية Q1 تجميع النصوص avence.rar

جرب هذا الملف تجميع النصوص salim.rar

ارفع الملف للتعامل معه

يمكن ذلك AMAN salim sans eqts.rar

انتبه الى ترقيم عامود التسلسل _ العامود B_ (بدون ذلك لا يعمل الكود بشكل جيد)

السطر رقم 8 في الكود عدله الى هذا الشكل x = Le \ 3: If x > 6 Then x = 6

جرب هذا الملف يمكن زيادة البيانات والمبالغ قدر ما تريد (يعد ذلك اضغط الزر Run) وتنتقل المعلومات (مفصلة) الى الصفحة الاخرى AMAN salim.rar

السلام عليكم يهمنا جداً تقديم المساعدة 1-لذا يجب معرفة اصدار الاكسل الذي تعمل عليه 2- قم يارسال ملف صغير بالبيانات والبيانات المتوقع الحصول عليها

جرب هذه المعادلة في الخلية ِA2 واسحب يميناً هنا لا لزوم للجدول =IF(OR(A$1={"Pre Foundation";"Foundation";"Emerging";"Established";"Accomplished"}),VLOOKUP(A$1,{"Pre Foundation",1;"Foundation",2;"Emerging",3;"Established",4;"Accomplished",5},2,0),"") اليك الملف مع المعادلات Code salim.rar