asneet قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 السلام عليكم إخواني الكرام حملت هذا الملف من موقعكم وهو عبارة عن كود لحذف محتويات الخلايا دون حذف المعادلات الموجودة ولكن تظهر لي مشكلة عند الضغط عليه مرتين متتاليتين أو تظهر مشكلة عند الضغط عليه وعدم وجود أي محتوى للخلايا والمشكلة الأكبر عندي أنه يحذف المعادلات بالضغط عليه للمرة الثانية أرجو حل هذه المشكلة ولكم جزيل الشكر ! Range.clear.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 السلام عليكم جرب هذا التعديل لتجاوز خطاء عدم وجود بيانات Sub Button1_Click() prompt = "هل حقا تريد مسح البيانات ؟.انتبه لا يوجد تراجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير. انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then Range("A7:Z100").Select On Error GoTo 1 Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.ClearContents 1: Range("A1").Select End If End Sub ======== بخصوص الطلب الثاني كيف ينضغط عندك مرتين وفيه رسالة تنبيهية انا جربت ولكنه لا يمسح المعادلات رابط هذا التعليق شارك More sharing options...
asneet قام بنشر فبراير 15, 2012 الكاتب مشاركة قام بنشر فبراير 15, 2012 Selection.SpecialCells(xlCellTypeConstants, 23).Select الاستاذ الكبيرعبد الله جزاك الله خيرا ارجو منك شرح الجزئيه السابقة رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 الاخ الحبيب الاستاذ / عبدالله المجرب جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 Selection.SpecialCells(xlCellTypeConstants, 23).Select السلام عليكم اخي الفاضل هذه الجزئية هي لتحديد واختيار الثوابت (من ارقام وبيانات) فقط دون باقي العناصر مثل المعادلات والكائنات والتنسيقات وغيرها ليتم تطبيق اي امر علها وحدها وهنا تم تطبيق امر المسح === جرب هذه الخطوات في شيت به قيم ومعادلات اضغط F5 ثم خاص ثم الصيغ ثم موافق ولاحظ ما يحدث رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 السلام عليكم جرب الكود بعد تعديل بسيط ان شاء الله يمشي حاله معاك Sub Button1_Click() On Error Resume Next prompt = "هل حقا تريد مسح البيانات ؟.انتبه لا يوجد تراجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير. انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then Range("A7:Z100").Select Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents Range("A1").Select End If End Sub رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 النسخه عندي انجليزي لو سمحت ماذا يقابل الصيغ رابط هذا التعليق شارك More sharing options...
asneet قام بنشر فبراير 15, 2012 الكاتب مشاركة قام بنشر فبراير 15, 2012 جزاكم الله خيراالاستاذان الكبيران رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر فبراير 15, 2012 مشاركة قام بنشر فبراير 15, 2012 السلام عليكم جرب هذا التعديل لتجاوز خطاء عدم وجود بيانات Sub Button1_Click() prompt = "هل حقا تريد مسح البيانات ؟.انتبه لا يوجد تراجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "تحذير. انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then Range("A7:Z100").Select On Error GoTo 1 Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.ClearContents 1: Range("A1").Select End If End Sub ======== بخصوص الطلب الثاني كيف ينضغط عندك مرتين وفيه رسالة تنبيهية انا جربت ولكنه لا يمسح المعادلات جربتة على شيت الدور الثلنى ممتاز ويعمل جيد مشكور ابو أحمد رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر فبراير 16, 2012 مشاركة قام بنشر فبراير 16, 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.