انتقل إلى المحتوى الرئيسي

 كيفية تطبيق زر لمسح خلايا معينة في Excel؟

عادة ، يمكنك الاحتفاظ بامتداد CTRL مفتاح لتحديد عدة خلايا محددة ، ثم امسح محتويات الخلية حسب حاجتك. إذا كنت بحاجة دائمًا إلى مسح هذه الخلايا المحددة من وقت لآخر ، فيمكنك إنشاء زر واضح لمسحها بنقرة واحدة فقط. في هذه المقالة ، سأتحدث عن كيفية إنشاء زر مسح الكل لمسح بعض محتويات الخلية المحددة.

قم بتطبيق زر لمسح محتويات خلية محددة برمز VBA

السهم الأزرق الحق فقاعة قم بتطبيق زر لمسح محتويات خلية محددة برمز VBA

أولاً ، يجب عليك إنشاء زر شكل ، ثم تطبيق رمز ، أخيرًا ، ربط الرمز بزر الشكل. الرجاء القيام بما يلي:

1. انقر إدراج > الأشكال > المستطيلات لتحديد شكل المستطيل ، ثم اسحب الماوس لرسم زر مستطيل في أي مكان من الورقة حسب حاجتك ، انظر لقطة الشاشة:

زر doc مسح الخلايا 1

2. ثم أدخل النص وقم بتنسيق زر الشكل كما تريد ، انظر الصورة:

زر doc مسح الخلايا 2

3. وبعد ذلك يجب عليك إدخال رمز VBA ، يرجى الضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: مسح محتويات الخلية من خلايا معينة:

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

ملاحظات: في الكود أعلاه: A2، A5 تشير إلى أنه سيؤدي إلى مسح الخلايا في النطاق A2: A5، وليس فقط الخليتين على حدة ، يمكنك إضافة نطاقات متعددة ، مثل النطاق ("B8"، "B12"). مسح البرنامج النصي داخل الكود المراد مسحه.

4. ثم احفظ وأغلق نافذة الكود ، ثم اربط الكود بزر الشكل ، وانقر بزر الماوس الأيمن على الزر ، وحدد تعيين ماكرو، في تعيين ماكرو في مربع الحوار ، اختر ملف كليرسيلس الاسم الرمزي من اسم الماكرو مربع القائمة ، وانقر OK زر للخروج من هذا الحوار. انظر لقطة الشاشة:

زر doc مسح الخلايا 3

5. والآن ، عند النقر فوق الزر مسح الكل الزر ، يتم مسح الخلايا المحددة التي حددتها مرة واحدة ، انظر لقطة الشاشة:

زر doc مسح الخلايا 4

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (73)
Rated 5 out of 5 · 1 ratings
El Roya
El Roya
This comment was minimized by the moderator on the site
is there a way to delete data from multiple sheets with just 1 button?
Reply
0
0
skyyang
skyyang     El Roya
This comment was minimized by the moderator on the site
Hello, Roya,
To clear the specific cells in multiple sheet, please apply the following vba code:
Sub ClearMultipleRanges()
    Dim ws As Worksheet
    Dim sheetsToClear As Variant
    Dim cellRanges As Variant
    Dim range As Variant

    sheetsToClear = Array("Sheet1", "Sheet2", "Sheet3") ' Change the sheet names
    cellRanges = Array("A1:C3", "E1:E5", "G1:G10") ' Modify the cell ranges
    For Each ws In ThisWorkbook.Sheets
        If Not IsError(Application.Match(ws.Name, sheetsToClear, 0)) Then
            For Each range In cellRanges
                ws.range(range).ClearContents
            Next range
        End If
    Next ws
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
El Roya
El Roya
This comment was minimized by the moderator on the site
is there a way to delete data from multiple sheets with just 1 button?
Reply
0
0
kenvel
kenvel
This comment was minimized by the moderator on the site
very helpful. thanks so much
Reply
0
0
David Leão
David Leão
This comment was minimized by the moderator on the site
Hi there,

Used this, and it works like a charm.

Only problem is... my cells are different formats... Some are 0,000 some are 00,00€ and when I it CLEAR, the format goes with tue clear event.

How can I clear the cells but maintain the format of them?
Reply
0
0
skyyang
skyyang     David Leão
This comment was minimized by the moderator on the site
Hello, David,
To keep the cell formatting when clearing the cell contents, please apply the below code:
Sub ClearCellsKeepFormat()
    'Update by Extendoffice
    'This version clears the contents but keeps the cell formatting intact.
    Range("A2:A5").ClearContents
    Range("C10:D18").ClearContents
    Range("B8:B12").ClearContents
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
David Leão
David Leão     skyyang
This comment was minimized by the moderator on the site
It worked. Thanks a lot man 😄
Reply
0
0
Rated 5 out of 5
Sabrina Gomez
Sabrina Gomez
This comment was minimized by the moderator on the site
Hi how do you use this macro without interfering the data validation?
Reply
0
0
Bharat Bali
Bharat Bali
This comment was minimized by the moderator on the site
I wanted that the confirmation needed for clear button .....so that the data is not cleared by mistakenly press the "clear" tab

And i wanted to say thanks for your brilliant work....thanks a lot in advance....

wish you have a great day...
Reply
0
0
Shannon
Shannon
This comment was minimized by the moderator on the site
Hello,
I am using this on one spreadsheet, but on 3 separate tabs. Everything was working last time I had the workbook open but today it is giving me an error "Ambiguous name detected: Clearcells". Please help!
Reply
0
0
Yac23
Yac23
This comment was minimized by the moderator on the site
Hallo zusammen,
hab soweit alles gemacht zu gewiesen usw. Funktioniert auch aber sobald ich die Datei öffne funktioniert es nicht mehr und muss alles neu eingeben.

Vorab vielen Dank
Reply
0
0
Yac23
Yac23     Yac23
This comment was minimized by the moderator on the site
Meinte, nach dem schließen und dann wieder öffne.
Reply
0
0
Leslie
Leslie
This comment was minimized by the moderator on the site
Hi. I am trying to use a toggle button to clear all cells of color and text, but only the cells that contain the word “event”. And then I’d like to use the same toggle button to add the color and the word “event” back onto the spreadsheet. Can this be done?
Reply
0
0
Nol Kirchyunger
Nol Kirchyunger
This comment was minimized by the moderator on the site
Hallo,

Hoe kan ik cellen in een range met een formule intact houden met bovenstaand script?

Mvg,

Nol
Reply
0
0
skyyang
skyyang     Nol Kirchyunger
This comment was minimized by the moderator on the site
Hello, Nol,
Do you mean to keep the formula cells when clearing the cell contents? Could you explain your problem by using English?

Thank you!
Reply
Report
0
0
Nol Kirchyunger
Nol Kirchyunger     skyyang
This comment was minimized by the moderator on the site
Hi Skyyang,

Thats what I mean indeed

Regards,

Nol
Reply
0
0
skyyang
skyyang     Nol Kirchyunger
This comment was minimized by the moderator on the site
Hi, Nol,,
Maybe the follwoing VBA code can help you:
Sub Clearcells()
Dim xStr As String
Dim xRgs, xRg, xRgA As Range
xStr = "A2:C3,A5:E16,F5:H10"
Set xRgs = Range(xStr)
For Each xRgA In xRgs.Areas
    For Each xRg In xRgA
        If Not xRg.HasFormula Then
            xRg.Clear
        End If
    Next
Next
End Sub


Please change the cell references to your need, and you should use the comma to separate the data range.
Please have a try, hope it can help you!
Reply
Report
0
0
Nol Kirchyunger
Nol Kirchyunger     skyyang
This comment was minimized by the moderator on the site
Thanks Skyyang, the script works like an charm! Keep up the good work
Reply
0
0
Nat
Nat     Nol Kirchyunger
This comment was minimized by the moderator on the site
Can you help me find a code that would clear the contents of merged cells but keep the formatting as well as formulas?
Thank you
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations