اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل كود مسح


jawad80

الردود الموصى بها

السلام عليكم

ارجوا من الاخوة الخبراء مساعدتي بتعديل الكود ادناه ليقوم بمسح نطاقين مختلفين من الخلايا في اوراق متعددة

 

ولكم الشكر

 

 

Sub Button1_Click()
prompt = "هل تريد مسح البيانات؟انتبه لا يوجد تراجع عن المسح!!"
Command_buttons = vbYesNo + VbMsgBoxRt1Reading
project = MsgBox(prompt, Command_buttons, Title)
If project = vbYes Then
    Range("
B4:E13").Select
On Error GoTo 1
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
1:
    Range("
A1").Select

End If
End Sub

مثال2.rar

رابط هذا التعليق
شارك

اخي العزيز شكراً للرد

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

هذا ولك خالص شكري وتقديري ...

رابط هذا التعليق
شارك

عزيزي جواد

هذا المنتدى له الفضل علي قبل أي أحد من الأعضاء لأنني تعلمت منه الكثير بفضل أساتذة هذا المنتدى العظيم

وبالتأكيد إن شاء الله سأشرح لك

---------------------------------------------------------------------------------------------

هذا هو الكود

Sub dddd()

prompt = "هل تريد مسح البيانات"
Command_buttons = vbYesNo + VbMsgBoxRt1Reading
 
project = MsgBox(prompt, Command_buttons, Title)
If project = vbYes Then
Range("الحضور") = ""
Range("العاملين") = ""
End If
MsgBox ("تم المسح")
End Sub
1- قم بتحديد النطاق المطلوب في كل ورقة
2- قم بتسميت النطاقات بأي أسم تريده
3- قم بكتابة أسم النطاق بدلاً من أسماء النطاقات الموجودة في الكود Range("الحضور") = "" Range("العاملين") = ""
وشكراً .
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information