كيفية مسح محتويات النطاق المسمى في 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؟