سليم حاصبيا

ملف نموذج عما اريده أرجو الاطلاع وتحديد ماذا تريد (اظهار النتائج المتوقعة (يدوياً) في الشيت "Salim" من نفس الملف) واعادة رفعه Nabhan.xlsx

ارفع نموذجاً مزيفاً غته (معلومات مستعارة ) حوالي 20 الى 25 صف لاأكثر مثلاُ في الغامود الاول A1/A2/A3 في الغامود 2 B1/B2/B3 في الغامود 3 C1/C2/C3 الخ.....

جرب هذا الكود Option Explicit Sub replace_1_Name() Dim sh12 As Worksheet Dim sh13 As Worksheet Dim Rg12 As Range, Rg13 As Range Dim i% Set sh12 = Sheets("الصفحة 12") Set sh13 = Sheets("الصفحة 13") Set Rg12 = sh12.Range("D5:N17") Set Rg13 = sh13.Range("D5:N17") Rg13.ClearContents Rg13.Value = Rg12.Value For i = 1 To Rg13.Rows.Count Rg13.Rows(i).Replace 1, sh13.Cells(i + 4, 2), 1 Next End Sub الملف مرفق Bilal_Y.xlsm

ممكن هذا الأمر Filter_By UserForm_1.xlsm

في الخلية H6 هذه المعادلة =ROUND(H5/(1+H8),2) في الخلية H7 هذه المعادلة =H5-ROUND(H5/(1+H8),2) الملف مرفق Amoudi.xlsx

تم التحديث كما تريدين 1- لادراج عدة اسماء عندها نفس الكود او نفس الرقم القومي يجب استعمال اليورز القديم لأنه لا يمكن ادراج اكثر من اسم في TextBox واحد بينما هذا ممكن في ListBox 2- بعد غملية البحث (كما اشرت في المشاركة السابقة) من حيث رقم الكود ( داخل الحلية مع فاصلة عليا) و في ListBox بدونها تحددين الاسم المطلوب و المصروف الجديد و تضغطين على الزر حفظ عندها تتحدث البيانات في الشيت (يتلوّن الصف حيث تم التعديل) و يخرج الاسم من ListBox 3- الزر Refresh للانطلاق من البداية ( تفريغ اليوزر / ازالة الألوان المحددة من الشيت) الملف من جدبد مرفق (يجب استعمال اليوزر القديم من خلال الزر User) YARA_2User Uniqus..xlsm

تم معالجة الامر يجب التقيد بالامور جسب الصور المرفقة 1-تبديل المربع الأحمر في الكود بالمربع الأزرق (حسب الصورة يارا 1) 2- كتابة رقم الكود مسبوقاً بفاصلة عليا (حسب الصورة يارا 2) 3-كتابة ما تريدنه في التكس بوكس حسب ما بوجد في الخلية (حسب الصورة يارا 3) اي بدون بفاصلة عليا الملف مرفق YARA_2_USERS_Updated..xlsm

هذا الفيديو يشرح هذا الامر https://www.youtube.com/watch?v=4PZ63qbglHY&ab_channel=MinhNguyen

تم تطوير الكود بحيث اذا تم اختيار اسم معين من الليست بوكس ينتقل الى الشيت ويختفي من الليست بوكس كي لا يتم اختياره اكثر من مرة واحدة ADV_Filter_By UserForm.xlsm

جرب هذا الملف صفحة "salim" Sub FIND_DUP() Dim I%, M%, REP As Range, COL As Collection Dim My_rg As Range Set COL = New Collection Set My_rg = Range("B3").CurrentRegion If My_rg.Rows.Count = 1 Then Exit Sub Set My_rg = My_rg.Offset(1).Resize(My_rg.Rows.Count - 1) My_rg.Interior.ColorIndex = xlNone For I = 4 To My_rg.Rows.Count + 3 On Error Resume Next COL.Add I, Cells(I, 2).Value & "*" & Cells(I, 4).Value & "*" _ & Cells(I, 8).Value & "*" & Cells(I, 9).Value & "*" _ & Cells(I, 10).Value & "*" If Err.Number <> 0 Then M = M + 1 If REP Is Nothing Then Set REP = Cells(I, 2).Resize(, 9) Else Set REP = Union(REP, Cells(I, 2).Resize(, 9)) End If End If Err.Number = 0 Next If Not REP Is Nothing Then REP.Interior.ColorIndex = 6 End If Set COL = Nothing: Set REP = Nothing End Sub الملف مرفق SHAFik.xlsm

شاهد هذا الفيديو https://www.youtube.com/watch?v=hhJ5T8wqRGk&ab_channel=ExcelTutorialsbyEasyClickAcademy

و هكذا هو الحال قم بنغيير العداد ثم اضغط الزر Run و ترى النتيجة الجديدة

جرب هذا الملف Habib.xlsm

بعذ اذن احي أحمد بدرة اختر الغام المناسب من الخلية G1 MH332.xls

هذا الملف بشرح ما أفصده 1-البيانات الاساسية في صفحة Salim 2- في الصفحة Result بعد تنفيذ الفلتر بواسطة UserForm يمكن احتيار اي صف من ListeBox لينتقل الى الشيت في المكان المناسب (يمكن تكرار العملية وفي كل مرة يضاف ما تحتاره الى احر صف) 3- الصورة المرفقة تشرح كيفية التعامل مع UserForm الملف مرفق Filter_By UserForm.xlsm

تم معالجة الامر يمكنك احتيار الاسم من القائمة المنسدلة او كتابته بدوياً (الخيارين معاً) Kan3any_Extra.xlsm

يمكن تجربة هذا الملف YARA_2_USERS..xlsm

ليس من الضروري ان تمسحي الـليست بوكس اذا كان الرقم القومي غير مكرر و رقم الكود غير مكرر فإن الليست بوكس يغرص صفاً واحداً وهناك حل اخر ممكن ادراج يوزر جديد (مع الابقاء على القديم) و برمجته كما تريدين كما في هذا الملف (وهكذا يصبح بالامكان العمل غلى 2 يوزر ) اليوزر الجديد على زر Salim User سأعمل على هذا الموضوع

تم معالجة الأمر بالنسبة للزر "بحث" تكتب ما تريد البحث عنه في الحلية C6 ثم تنقر على الزر بحث allahabi 1.xlsm

لا أفهم ما الحاجة الى كل هذه الـــ TextBoxes في الملف في حين يمكن الكتابة رأساً في الخلايا الابتعاد قدر الامكان عن الخلايا المدمجة (تم ازالتها) وضعت لك كود للزر حفظ و يمكن وضع كود مماثل لباقي الأزار Option Explicit Dim Sh1 As Worksheet, Sh2 As Worksheet Dim lr1%, lR2% Dim AR1(), AR2() Dim i%, k% '========================================== Sub Debut() Set Sh1 = Sheets("Sheet1") Set Sh2 = Sheets("Sheet2") lR2 = Sh2.Cells(Rows.Count, 2).End(3).Row + 1 End Sub '============================================= Sub Form_sh1_to_sh2() '+++++++++++++++++++++++++++++++ 'Macro for cmdSave '+++++++++++++++++++++++++++++++++++ Debut AR1 = Array("C6", "C7", "C8", "C9" _ , "C10", "C11", "C12", "C13") AR2 = Array(0, 1, 2, 3, 4, 5, 6, 7) For k = LBound(AR1) To UBound(AR1) Sh2.Cells(lR2, 2).Offset(, AR2(k)) = Sh1.Range(AR1(k)) Sh1.Range(AR1(k)) = vbNullString Next Sh2.Cells(2, 1).Resize(lR2 - 1) = _ Evaluate("row(1:" & lR2 - 1 & ")") End Sub '=========================================== Private Sub cmdSave_Click() Form_sh1_to_sh2 End Sub الملف مرفق allahabi.xlsm

لا يمكن العمل على التحمين ارفع مثالاً عما تريد مع النتاج المتوقعة

تم مغالجة الأمر بالنسبة للمواصلات 1- اضافة شرط ( نعم أو لا) 2-اعادة تصميم الجداول (مصدر المعلومات) كما في الملف المرفق 3- يمكنك اضافة فدر ما تريد من مدارس شرط ان تعمل جدول خاص لكل مدرسة وتسميته بنغس اسم المدرسة المسافات ممنوعة في اسم الجدول ( مثلاً اسم المدرسة:التربية الوطنية الحديثة) بجب ان يكون اسم الجدول التربية_الوطنية_الحديثة او التربية*الوطنية*الحديثة بكلمة احرى استبدل المسافات بين الكلمات بأي شيء تريد 4- اضافة الجدول (باسمه دون مسافات) الى القوائم المنسدلة في العامود "E" Bilal3.xlsm

تم عمل المطلوب بالنسبة للأقساط (عدم ذكر الصف ) فقط المرحلة لان الاكسل لا يعرف كل صف في اي مرحلة Bilal2.xlsm

هذه المعادلة في الحلية C3 من الورقة 2 واسحب يساراُ وتزولاُ =IF(ورقة1!E3=2,ورقة1!$B3,"") الملف مرفق Bilal.xlsx

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