أحمد السيد قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 (معدل) السلام عليكم اخوانى واحبتى فى الله محتاج منكم كود حذف CLEAR ولكن بأكثر من مدى يعنى فى تصميم شغال عليه ومحتاج افرغ البيانات كل شويه اكثر من خليه متفرقه واكثر من مدى فى اتجاهات مختلفه انا جربت ولكت يكون بحذف بيانات او مدى مضاف ممكن كود اعدل عليه بما يناسبنى اللى يتمسح عدد من الخايا متفرقه يعنى مثلا امر بيع فيه اسم العميل وعنوانة ورقم هاتفه الخ من البيانات وفى الاسفال فى اكثر من مدى وليكن مثلا (H12:H27) هذا مدى والمدى الثانى من (J12:J27) تم تعديل يناير 20, 2013 بواسطه عفوك يارب رابط هذا التعليق شارك More sharing options...
هاني عدلي قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 أخي العزيز راجع هذا اللينك http://www.officena....showtopic=44863 أو أرفق ملف حتى نستطيع مساعدتك رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 انا بتاسف انا اقصد كود لحذف بيانات اكثر من مدى ولست اقصد كود طباعة يعنى كما وضحت فى اول الموضوع ولكن بدلا من كود طباعة يكون كود حذف CLEAR رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 اريد ارفاق الكود لكى اتعلم تركيبه فى محرر الاكواد اريد خلايا متفرقه مثلا G7 وF9 ومدى مثلا H12:H27 ومدى اخر J12:J27 انا اختار خلايا ومدى عشوائى من السهل ان ارفق الملف ولكن اريد معرفه الكود لكى اتعلمه كود لحذف البيانات من الخلايا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 (معدل) السلام عليكم Public Sub A_Cr() ' مدى1 مدى2 مدى3 مدى4 مدى5 Union([H12:H27], [J12:J27], [A7], [B7], [L7]).ClearContents End Sub أرجو من الأخوة المشرفين تعديل عنوان المشاركة تم تعديل يناير 20, 2013 بواسطه عباد رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 (معدل) السلام عليكم الاخ الكريم / احمد السيد جرب الكود التالي : Sub clear() Range("M12,B2:B12,H7:H13,M11").Select Range("M11").Activate Selection.ClearContents End Sub ويمكنك تحديد المدي الذي تريده في الكود وتغييره الي ما تريداو قم بتوضيح الفكرة اكثر تم تعديل يناير 25, 2013 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 السلام عليكم الاستاذ الكبير القدير / عباد لم اري رد سيادتكم الابعد ارفاق المشاركة عذرا كل العذر استاذي القدير حيث انه لا يوجد رد بعد رد سيادتكم جزاك الله خيرا استاذي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 اخي الحبيب حاده عمر لا داعي للإعتاذر اخي الكريم تعدد الحلول تنور و تثري صاحب الطلب جزاك الله خير وبارك فيك تحياتي رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 السلام عليكم اخى عباد انا عاجز عن شكر حضرتك ولكن الكود لا يعمل معى على الاطلاق حاولت وعدلت عليه ولكنه لا يعمل اريد توضيح ولو بمثال من عندك به اكثر من خليه متفرقه واكثر من مدى متفرق ايضا لكى توضح الفكر رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 السلام عليكم الاخ الكريم / احمد السيد جرب الكود التالي : Sub clear()[/b] [b] Range("M12,B2:B12,H7:H13,M11").Select Range("M11").Activate Selection.ClearContents End Sub[/b] [b] ويمكنك تحديد المدي الذي تريده في الكود وتغييره الي ما تريد او قم بتوضيح الفكرة اكثر السلام عليك اخى حمادة عمر ايضا لا ادرى ابن المشكله هل وضع حرف فى الكود يعنى شئ ارجو التوضيح والافادة وعدك الانزعاج منى انا اريد ان اتعلم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 السلام عليكم الاخ الكريم / أحمد السيد آسف جدا حيث انني لم اري هذا الخطأ ولكن حرف هو جزء من اكواد الاضافة عند اضافة كود في المشاركة فليس له اي وجود بالكود وتفضل الكود الصحيح هو كالتالي Sub clear() Range("M12,B2:B12,H7:H13,M11").Select Range("M11").Activate Selection.ClearContents End Sub ومرفق ملف يوضح ذلك Book111.rar 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 20, 2013 مشاركة قام بنشر يناير 20, 2013 السلام عليكم شاهد المرفق الخلايا الصفراء وجرب نفذ الكود من الزر A_Cr.rar 1 رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 السلام عليكم الاخ الكريم / أحمد السيد آسف جدا حيث انني لم اري هذا الخطأ ولكن حرف هو جزء من اكواد الاضافة عند اضافة كود في المشاركة فليس له اي وجود بالكود وتفضل الكود الصحيح هو كالتالي Sub clear() Range("M12,B2:B12,H7:H13,M11").Select Range("M11").Activate Selection.ClearContents End Sub ومرفق ملف يوضح ذلك Book111.rar والله انا فعلا عاجز عن الشكر فعلا تم تشغيل الكود والعمل بنجاح جزاك الله كل خير اخر حمادة وجعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 20, 2013 الكاتب مشاركة قام بنشر يناير 20, 2013 السلام عليكم شاهد المرفق الخلايا الصفراء وجرب نفذ الكود من الزر انا بشكرك جدا جدا اخى عباد يعلم الله ان عن جدا احترمكم جميعا لمساعدتكم لنا اسال الله العظيم ان يجعل اعمالك كلها لوجهه الكريم وان يجازيك عنها كل خير تم تفيذ الكون والا يعمل شكرا لكل من يساعد الاخرين رابط هذا التعليق شارك 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.