أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 شكرا لكل الاخوة الكرام على مرورهم كنت قد اعددت الملف و لكن مشكلة النت هي التي اجلت ارسال الموضوع هذا ملف معدل و به ميزات أخرى ارجو ان ينال رضى الجميع فهد4.rar رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 30, 2012 الكاتب مشاركة قام بنشر سبتمبر 30, 2012 (معدل) استاذي ابوحنين قبل ان احمل الملف اوكد لك انه سوف ينال اعجابي ليس لشيء ولكن لانني اعلم من الذي قام بإعدادة انه ابوحنين رسالة اعجاب باخلاقكم الراقية ومهارتكم الملهمة زادكم الله علماً وبسطة في الرزق تم تعديل سبتمبر 30, 2012 بواسطه alfahad رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 اخي الحبيب فهد جرب الملف و اخبرني بالنقائص او الاخطاء ليتم تفاديها ان شاء الله رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 30, 2012 الكاتب مشاركة قام بنشر سبتمبر 30, 2012 فكرة الملف رائعة ما شاء الله وبه معلومات مفيدة تشكر عليها ولكن لاحظت وجود مشكلة في الحذف ارجو منك التكرم بمراجعتها لانني لم اعرف كيف اعرضها وتقبل شكري على ذلك العمل الرائع رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 بالفعل كان هناك خطأ بحيث يحذف الصف ما قبل الحالي و ها هو التعديل غير زر كود الحذف بهذا الكود Private Sub CommandButton4_Click() آخر_خلية = ورقة1.Range("IV1").End(xlToLeft).Column Na = Frame1.Controls("textbox" & 2).Text RR = MsgBox(" انت على وشك حذف السيد : " & Na & " هل تريد المتابعة ؟ ", vbCritical + vbYesNo + vbMsgBoxRight, "") If RR = vbYes Then Rows(ActiveCell).Offset(1, 0).Delete Shift:=xlUp End If آخر_صف_مكتوب = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row For q = 1 To آخر_صف_مكتوب ورقة1.Cells(q + 1, 1) = q: Next End Sub رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 أخونا الغالى أبو حنين دمت بود يا الغلا بتجربة الملف الأخير لاحظت أنه عند حذف أحد السجلات لا يتم حذف السجل المقصود بل يتم كل مرة حذف السجل الذى أعلاه فعند حذف السجل رقم 10 3 مرات متتالية أول مرة حذف السجل رقم 9 وثانى مرة حذف السجل رقم 8 وثالث مرة حذف السجل رقم 7 الرجاء التأكد من المشكلة ومعرفة الحل رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 عفواً يا أخى الغالى اثناء كتابتى لمشاركتى كنت حضرتك تضع التعديل فى الكود جارى تجربة التعديل مشكور مقدماً رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 أخي الحبيب : / يوسف هل غيرت كود الحذف كما في المشاركة 30 رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 بالفعل غيرت الكود وقمت بتبديل الجزء الذى أرفقته حضرتك وظهرت مشكلة أخرى جارى شرحها بالتفصيل بعد أن أجرب عدة تجارب حذف لكى يكون شرح المشكلة واضح رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 وجدت بعض الاخطاء و تم تصحيحها بحول الله و سبحان الذي لا يسهى و لا ينسى 1.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 جازاك الله خير جارى المعاينة رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 أخى ابو حنين بعد تجربة آخر تعديل بالمشاركة رقم 35 وجدت أن كود الحذف أصبح لا يحذف الإدخال المراد حذفه بالفعل بل يحذف الإدخال التالى له فبتكرار حذف الإدخال المسمى إسم 10 مرتين متتاليتين حذف الإدخال المسمى إسم11 فى المرة الأولى ثم حذف الإدخال المسمى إسم12 فى المرة الثانية فاصبح المدخل إسم10 يليه مباشرة إسم13 ولكن التسلسل بعد هذا التعديل اصبح مضبوطاً وبعد الحذف يستمر التسلسل مضبوطاً تماماً نسأل الله لك التوفيق فى مراجعة كود الحذف والوصول به إلى بر السلام والأمان دمت بخير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 أخي يوسف لقد جربت الملف و هو يعمل عندي بطريقة عادية ارجو ان تقوم بالتالي لتتأكد ـ 1 شغل البرنامج ـ 2 قبل الحذف أظهر المستند بالضغط على : المستند ـ 3 عند ظهور المستند ستجد الترتيب رقم 7 بلون ازرق و يحمل الحرف A فوق الحرف A هناك الحرفان B و B و تحت الترتيب 7 هناك الحرف C و C ـ قم بالضغط مرتين على اي خلية لظهور الفورم ثم قم بحذف الترتيب 7 اي اين يوجد الحرف A سيحذف الحرف A و تبقى الحروف BB و CC و كل هذا من اجل التأكد فقط قمت بالتجربة مرات و مرات و النتائج صحيحة ربما انني قد فقدت التركيز و الله اعلم ارجو ان تعيد التجربة مع الملف المرفق الآن في هذه المشاركة ملاحظة : لقد اوقفت اخفاء الملف عند الضغط مرتين على اي خلية و ذلك للتأكد من الحذف 2.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 حاضر جارى التجربة رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 تمت إعادة تجربة الحذف عدة مرات عادة المرة الأولى يحذف السجل المحدد حذفه ثم بعد ذلك يحذف السجل الذى يقع تحت السجل المحدد حذفه رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 بالتجربة بطريقة أخرى على نفس الملف إكتشفت إستمرار نفس المشكلة فتحت الملف وبدأت أحذف البيانات ذات الأسماء الفردية إسم1 إسم3 إسم5 وهكذا حتى إسم 33 وجدت الكود يحذف الاسماء الزوجية إسم2 إسم4 إسم6 وهكذا حتى حذف إسم34 هل يمكن أن تترجم لنا كود الحذف سطر سطر يا أستاذنا الفاضل لأننى تهت قليلاً فيه عندما حاولت أن أتتبعه رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 و الله اخي يوسف الكود يعمل عندي بطريقة عادية و لا اعلم اين الخلل عندك و هذا شرح الكود سطرا سطرا Private Sub CommandButton1_Click() آخر_خلية = ورقة1.Range("IV1").End(xlToLeft).Column ' هذ السطر يحدد آخر خلية افقيا تحتوي على بيانات '------------------------------------------------------------------------------------------ Na = Frame1.Controls("textbox" & 2).Text ' هو النص المكتوب في مربع التص رقم 2 : Na '------------------------------------------------------------------------------------------ RR = MsgBox(" انت على وشك حذف السيد : " & Na & " هل تريد المتابعة ؟ ", vbCritical + vbYesNo + vbMsgBoxRight, "") ' رسالة تأكيد الحذف '------------------------------------------------------------------------------------------ If RR = vbYes Then ' اذا كان الرد بنعم '------------------------------------------------------------------------------------------ Rows(ActiveCell).Offset(1, 0).Delete Shift:=xlUp ' احذف الصف الموافق للخلبة النشطة '------------------------------------------------------------------------------------------ End If ' نهاية الشرط '------------------------------------------------------------------------------------------ آخر_صف_مكتوب = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row - 1 ' هذا السطر يحدد آخ خلية عموديا تحتوي على بيانات '------------------------------------------------------------------------------------------ For q = 1 To آخر_صف_مكتوب ' متغير من اول خلية الى آخر خلية مكتوبة '------------------------------------------------------------------------------------------ ورقة1.Cells(q + 1, 1) = q ' أعد ترتيب العمود الاول تصاعديا اي 1 ’ 2 ’ 3 ’ .... Next End Sub رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 السلام عليكم راجع هذا السطر Rows(ActiveCell).Offset(1, 0).Delete Shift:=xlUp ' احذف الصف الموافق للخلبة النشطة هذا يحذف صف الخلية النشطة ActiveCell.EntireRow.Delete xlUp رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 اخي عبد الله عندما اضع الكود كما ذكرت : ActiveCell.EntireRow.Delete xlUp يحذف الصف ما قبل الخلية النشطة اما بالكود الذي في الملف يحذف بطريقة عادية و لا اعرف السبب ارجو منك ان تتأكد بنفسك واحدف مثلا الاسم 5 سيحذف انظر المرفق 1.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 لحظة اشوف الملف رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 1, 2012 مشاركة قام بنشر أكتوبر 1, 2012 الكود يحتاج تركيز اولا هذا يعمل تمام عندي ActiveCell.EntireRow.Delete جرب انت قبل الدخول الى الفورم لون السطر الذي تريد حذفه باي لون لان التركيز على الارقام بعد الحذف يضيع انتباهك ومن الفورم قم بحذفه ------------------------------------------------ ثانيا مفروض هذا السطر يولد رسالة خطا اذا كانت محتوى الخلية النشطة ليس رقما صحيحا وهذا قد يحدث Sub kh1() ورقة1.Activate MsgBox Rows(ActiveCell).Offset(1, 0).Address End Sub جرب الكود في ملف جديد -------------------------------------- ثالثا اذا في سطر بدون اسم يتجاوزه الجرار ويذهب الى السطر الاول جرب اذهب الى السطر 19 رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر أكتوبر 1, 2012 الكاتب مشاركة قام بنشر أكتوبر 1, 2012 استاذي الفاضل / ابو حنين المشاركة رقم 30 كان بها بعض الاخطاء والتي تم تلافيها وحلها في المشاركة رقم 35 المشاركة رقم 38 اوضحت اكثر الحذف وتطابقة مع المستند حيث تم اظهاره عند الحذف وعدم اخفاءه المشاركة رقم 42 والتي تم فيها شرح كود الحذف اعتبرها احد دروسك التي طالما تعلمت منها ولازلت اسالك المزيد جزاك الله خيراً اخي الفاضل على ما بذلت وقدمت واثابك واجزل لك الاجر انه على ذلك قدير رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 الشكر موصول لصديقنا وأخينا العزيز / الفهد واطلب من الأستاذة الكرام عبد الله باقشير وأبو حنين مساعدتي في الملف التالي فقد استخدمت فورم الأستاذ عبد الله باقشير في المشاركة رقم 24 ولكن وجدت عند تطبيقه على ملفي يقوم ببعض الأمور التي لا أريدها - فهو يقوم بإزالة الحدود من الجدول عند الضغط على زر حفظ التغيرات - و أيضا يقوم بتغير تنسيقات الخلايا من خط وسياق ما أريده هو تغير القيم فقط المعدلة أو المضافة دون التنسيقات كما أريده يبدأ بعد السجلات من خلال عمود الاسم لأن الأرقام تضاف من خلال معادلة ورقم القيد ليس إجباري لكن أريد ظهور رقم القيد في قوائم الفورم دون أن يؤثر في تحديد آخر سجل والعفو وهذا الملف المرفق الصف الخامس.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 السلام عليكم ابشر اخي الشهابي جاري التعديل ان شاء الله رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر أكتوبر 8, 2012 مشاركة قام بنشر أكتوبر 8, 2012 بشرك الله بالخير أستاذ عبد الله وفي انتظاركم إن شاء الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.