هادى محمد المامون سالم

بسم الله الرحمن الرحيم الاخ محمد صلاح لقد قمت برفع البرنامج فى المشاركه رقم 178 هنا السلام عليكم

بسم الله الرحمن الرحيم قد أغيب يومين فلكم منى موضوع مفيد سنحاول فى هذه المرحلة فرض سيطرتنا على الاكسيل و اجباره على تنفيذ مانريده مثلا اذا أردنا البحث فى عمود C عن النوع دون تحديد مجال كما فعلناا سابقا سنقوم بخدعه بسيطة وهى القيام بعد جميع الخلايا الموجود فيها بيانات فى عمود C و وضعها فى مكان أمين فى الذاكرة ثم أنهاء جمله Loop بالقيمة المحفوظة لدينا و هى أخر خليه تم عدها و فى نفس الوقت اخر خليه فى عمود C سنقوم فى الكود التالي بأنشاء هذا المكان الأمين و أسمه cr يقوم بعد جميع الخلايا التى يوجد فيها بيانات فى العمود c و حفظ النتيجة داخلة 0 cr = Application.WorksheetFunction.CountA(Range("c:c")) ثم تعديل جمله For كالتالى : For i = 2 To cr و أذا أردنا أظهار رقم الخلية أو I بجوار كلمه ولد أو بنت نستخدم رمز & و نضع I بين قوسين كما بالكود التالى MsgBox "ولد" & (i) و يكون الكود فى النهايه Sub test_2() cr = Application.WorksheetFunction.CountA(Range("c:c")) For i = 2 To cr If Worksheets("Main").Cells(i, 3) = "ولد" Then MsgBox "ولد" & (i) End If If Worksheets("Main").Cells(i, 3) = "بنت" Then MsgBox "بنت" & (i) End If Next End Sub و الان أذا اضفنا اى سطر جديد سيتم تعديل الرساله تلقاءيا مع ملاحظه يجب عدم ترك أى بيان فارغ فى خانه النوع لان العدد سوف يتوقف عند اول خليه فارغة و منطقى لا يوجد طالب بدون نوع فسوف دائما تظل هذه الخلية بها بيانات0 السلام عليكم

بسم الله الرحمن الرحيم الأخت الفاضله inas aly أخى nasersaeed (مرحبا بعودتك ) مشكور على التشجيع سنضيف أضافه بسيطه و هى البحث على كلمه "ولد" ثم كلمه "بنت" ببساطه سوف نضيف جمله If مره اخرى مع أستبدال كلمه "ولد" بكلمه "بنت" و سيكون الكود كالتالى : Sub test_1() For i = 2 To 10 If Worksheets("Main").Cells(i, 3) = "ولد" Then MsgBox "ولد" End If If Worksheets("Main").Cells(i, 3) = "بنت" Then MsgBox "بنت" End If Next End Sub جربوا الكود و ستجدوا الرساله تتغير على حسب الاسم المكتوب فى الخليه السلام عليكم

بسم الله الرحمن الرحيم أخى الكريم : أرفقت لك ملف به مفتاحان أحدهما لأظهار الشريط و الاخر لأخفاء الشريط جرب و أخبرنى بالنتيجه السلام عليكم Unhide.rar

بسم الله الرحمن الرحيم الملف به ثلاثة أوراق عمل الأولى "Main "و هى الورقة التى تحتوى على البيانات الاساسية الثانية "Boy" و هى الورقة التى سوف يتم نقل بيانات الأولاد اليها 0 الثالثة "Gairl" و هى الورقه التى سوف يتم نقل بيانات البنات اليها 0 طبعا الأكسيل لا يستطيع التفريق بين أسماء الأولاد و أسماء البنات من نفسه , لذلك فى خانه الملاحظات أضفت كلمه ولد و كلمه بنت حتى يتم الفصل بين البيانات 0 أليكم مثال بسيط ليتم الفهم جيدا نريد أن نبحث فى العمود C من "C2:C10" عن كلمه و لد وأعطاء رسالة كلمه "ولد" 0 بداية يجب معرفه أننا من الممكن أن نشير الى الخلية فى ورقة العمل بعدة طرق منها Cells(Row No , Column No) (1,2) خليه فى الصف الأول و العمود الثانى (2,2) خليه فى الصف الثانى و العمود الثانى وهكذا الخطوة الأولى : ليس أمامنا سوف أستخدام جمله For…….Next التكرارية ليكون بداية الكود For i = 2 To 10 سنبدأ العد من 2 حتى ننتهي عند 10 وذلك لتحديد المجال و يمكن زيادة المجال بتغيير الرقم 10 الخطوة الثانية : سنقوم بالبحث عن أسم "ولد" فى الصفوف من صف 2 الى صف 10 بالعمود الثالث If Worksheets("Main").Cells(i, 3) = "ولد" Then لاحظ أن القيمة i سوف تتغير من الصف 2 الى صف 10 و العمود رقم 3 ثابت الخطوة الثالثة (النتيجة) أظهار رسالة تفيد بأن الخلية بها كلمة "ولد" و نلاحظ أن عدد مرات ظهور الرسالة هو نفس عدد كلمات كلمة "ولد" فى العمود MsgBox "ولد" ثم نقوم بأنهاء جملة If End If و أتمام جملة For Next وهذا هو الكود النهائى Sub test() For i = 2 To 10 If Worksheets("Main").Cells(i, 3) = "ولد" Then MsgBox "ولد" End If Next End Sub من الممكن نسخ الكود السابق بعد فهمه و تجربته و تغيير المجال أو البحث عن بنت بدلا من ولد ولكن يجب تسميه ورقة البيانات "Main" حتى يعمل الكود يبقى لكم شرح كيفيه نقل البيانات الى اوراق العمل الاخرى , ولكن للاسف لن استطيع التكمله الان حتى تستطيعوا التجربه و لا يكون الامر معقدا عند استبدال الرساله بأمر النقل و الأكثر من ذلك ان الموضوع استغرق وقت طويل و مجهود 0 و الى لقاء للتكمله السلام عليكم

بسم الله الرحمن الرحيم مشكور أخى الكريم اللهم اجعل هذا العمل فى ميزان حسناتك السلام عليكم

بسم الله الرحمن الرحيملم يتفاعل اخد أرفقت ملف به مساعده صغيره لقد قمت بالجزء الصعب و هو فصل أول مجموعه فى الكشف و ترحيل البنات الى كشف و الاولاد الى كشف اخر و الترتيب بناء على رقم المسلسل مع الكتابه بخط غليظ 0 كدت ان اكتب لك طريقه الفصل فقط و لكن العمل فى الملف كان سهل باقى الطلبات اتمنى ان يساعدك فيها احد السلام عليكم 1911200601_Print.rar

بسم الله الرحمن الرحيم اخى skyblue اليك الشرح و سأقوم بأرفاق بعض الصور قدر المستطاع لان البرنامج الذى سوف أقوم بشرحه هو نفس البرنامج الذى أرفق به الصور قم بتشغيل برنامج SNAGIT سوف تظهر لك اخر صفحه كنت تعمل عليها قبل الخطوه الاولى و لاحظ انه تظهر مربعات حمراء و خضراء حول الاطارات و ذلك لتحديد أى نافذه تريد العمل عليها اضغط Enter أو كليك ستظهر لك نافذه صغيره أختار Start الان بدأت التسجيل و لأيقاف التسجيل اضغط Cotrol + Shift+ P ستظهر لك النافذه الصغيره التى ظهرت من قبل و لكن فى هذه المره أضغط Stop ستظهر لك شاشه Snaglt Capture Preview اضغط على علامه صح الخضراء الموجوده على اعلى الشاشه من اليسار تظهر لك شاشه الحفظ اختار الحفظ بصيغه AVI أرفقت لك فيلم قمت بأعداده اليوم بالطريقه السابق شرحها للتأكد من جوده الفيلم الملف مضغوط من 9.7 ميجا الى 305ك السلام عليكم Test_Movie.rar

انا مش ناسى بس نخلص السته البيض

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

بسم الله الرحمن الرحيم الملف بالمرفقات السلام عليكم ________.rar

بسم الله الرحمن الرحيم أرسل لى الملف سريعا على الميل قبل الساعه 8 و سوف اقوم برفعه hs889@hotmail.com السلام عليكم

بسم الله الرحمن الرحيم أخى الكريم أرفقت لك ملف تستطيع ان تكتب المعادله على اى خليه تقف عليها دون الدخول الى صفحه الاكود و منتظر المتابعه بعد عودتى من السفر السلام عليكم ____________.rar

أخى skyblue تحت أمرك و لكن برجاء أمهلنى بعض الوقت

أخى nse يجب تثبيت المجال بالعلامه $ حتى تظهر النتيجه عن السحب كما بالكود التالى =VLOOKUP($A$9:$A$21;'بيانات الوحدات'!$C$8:$J$21;4;FALSE)

بسم الله الرحمن الرحيم لقد أرفق الاخ محمد مختار الملف و سبق لى تحميل الملف , و لكن الان لا يظهر فعلا قمت بارفاق ملف الاخ محمد مختار , برجاء التأكد السلام عليكم ___.rar

بسم الله الرحمن الرحيم أخى الكريم شاهد الملف المرفق السلام عليكم Rows.rar

بسم الله الرحمن الرحيم أخى الكريم أستخدم هذا الكود Sub frmAdd() [C1].Formula = "=A1+B1" End Sub السلام عليكم

بسم الله الرحمن الرحيم أنظروا المشاركه رقم 178 السلام عليكم

بسم الله الرحمن الرحيم أخى kh_mh_5 مشكور اخى الكريم عجبتنى الفكره فصممت لك ملف تستطيع ان تخفى اى ورقه حتى اذا اضفت ورقه جديده عن طريق قائمه تتحدث بالبيانات الجديده السلام عليكم 0311200601_Hide_01.rar

بسم الله الرحمن الرحيم اخى Lord هذه هى الملاحظات التى قمت بتعديلها برجاء التأكد مره اخرى الملاحظه الاخيره عند الدخول ادخل بالمستخدم الثانى او الثالث او الرابع و ليس الاول بخصوص كلمه السر فعلا لقد قمت بتغييرها لتخبرنى عن الطريقه التى اكتشفتها بها 0 السلام عليكم

بسم الله الرحمن الرحيم انتهزت وقت و قمت بأرفاق ملف لتصحيح الملاحظات السلام عليكم تم تعدبل شريط القوائم ليظهر مره اخرى1310200601_Pass_07.rar

بسم الله الرحمن الرحيم أخى لورد : لك حق سيتم مراعاه ذلك السلام عليكم

بسم الله الرحمن الرحيم اخى متعب معادله الاخ nse سليمه ولكن عند النقل تغيرت الفاصله كما قلت و حاولت اصلاحه و لكنى لم افلح و اذا نسخت الكود كما هو سوف يعمل معك ارفقت لك ملف بنفس الكود انسخه ثم ضعه فى الخليه F3 ثم اسحبه السلام عليكم Code.rar