كيفية مسح محتويات النطاق المسمى في Excel؟
ستوضح لك هذه المقالة طريقة مسح محتويات نطاق مسمى محدد بالإضافة إلى مسح محتويات جميع النطاقات المسماة مع الاحتفاظ بأسماء النطاق في ورقة عمل نشطة في Excel.
امسح محتويات النطاق المسمى برمز VBA
امسح محتويات النطاق المسمى برمز VBA
الرجاء القيام بما يلي لمسح محتويات نطاق مسمى محدد أو كل النطاق المسمى في ورقة العمل الحالية.
1. في ورقة العمل التي تحتوي على النطاق المسمى الذي ستقوم بمسح المحتويات منه ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة التعليمات البرمجية.
لمسح محتويات نطاق مسمى محدد في ورقة العمل ، يرجى تطبيق كود VBA أدناه.
رمز فبا 1: امسح محتويات نطاق مسمى محدد في Excel
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود.
4. ثم أ كوتولس ل إكسيل ينبثق مربع الحوار. الرجاء إدخال اسم النطاق المسمى الذي ستقوم بمسح المحتويات منه ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
ثم يتم مسح جميع المحتويات الموجودة في خلايا النطاق المحدد على الفور.
لمسح محتويات جميع النطاقات المسماة في ورقة العمل النشطة ، يرجى تطبيق رمز VBA أدناه.
كود فبا 2: مسح محتويات كافة النطاقات المسماة في الورقة النشطة في إكسيل
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub
3. اضغط على F5 مفتاح لتشغيل التعليمات البرمجية ، ثم انقر فوق OK زر في كوتولس ل إكسيل مربع الحوار كما هو موضح أدناه لقطة الشاشة.
ثم يتم مسح محتويات جميع النطاقات المسماة من الورقة النشطة.
مقالات ذات صلة:
- كيفية مسح محتويات مربع التحرير والسرد برمز VBA في Excel؟
- كيفية مسح المحتويات والتنسيق في نفس الوقت في الخلايا في Excel؟
- كيفية مسح القيم المقيدة في الخلايا في Excel؟
- كيفية مسح محتويات الخلية المحددة إذا تغيرت قيمة خلية أخرى في إكسيل؟
- كيفية مسح محتويات الخلية المحددة عند الفتح والخروج في مصنف Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!