امكانية الغاء اسماء النطاقات من صفحة معينة بعد تسميتها ؟

[حمادة عمر]

السلام عليكم

الاساتذة الكرام اسمحوا لي ان أسال

هل من الممكن بعد ان قمت بعمل نطاقات متعددة في شيت اكسيل وطبعا اعطيت لكل نطاق اسمه هل من الممكن

ان اقوم بالغاء اسماء هذه النطاقات لاعادة تسميتها مرة اخري او عمل نطاقات جديدة

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

من ضمن النطاقات الموجودة

جزاكم الله خيرا

[الشهابي]

أخي العزيز / حمادة عمر

أضغط على (CTRL+F3) لإظهار أسماء النطاقات والتعيدل عليها أو تغيرها

أو من علامة التبويب (صيغ ) واختار ( إدارة الأسماء )

[رعد داود]

وأذا كنت تستخدم اوفيس 2007 من formulas ثم تختار name manager لتظهر قائمه بأسماء الأنطقه تختار منه الذي تريد حذفه ثم دليت فيحذف

[حمادة عمر]

السلام عليكم

لكم مني جزيل الشكر وعظيم الامتنان

جزاكم الله خيرا

[أبو حنــــين]

السلام عليكم

لاثراء الموضوع

يمكن عمل ذلك أيضا بالكود

إفتح ملف جديد و ضع فيه زر ثم حدد مجموعة نطاقات في هذا الملف

ثم انسخ الكود التالي سترى كل النطاقات قد كتبت في العمود K

بعدها اضغط على اي خلية تحتوي على اسم نطاق معين في العمود K مرتين متتاليتين سيحذف هدا النطاق

الكود :

Private Sub CommandButton1_Click()

For s = 1 To ActiveWorkbook.Names.Count

Cells(s, 11) = ActiveWorkbook.Names(s)

Next

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

For s = 1 To ActiveWorkbook.Names.Count

If Target = ActiveWorkbook.Names(s) Then

Cancel = True

ActiveWorkbook.Names(s).Delete

Exit Sub: End If: Next: Target = ""

End Sub

[الـعيدروس]

ألسلام عليكم

وهذه بطريقة الأكواد

هذا الكود لإعادة تسمية نطاق معين

Public Sub Rnm_Ali()

Dim Nam_Rn As Name

Dim Rms As Long

Dim A_Rnm As String

    For Each Nam_Rn In Names

	    Rms = MsgBox(" هل هذا النطاق المراد إعادة تسميته " & Nam_Rn.Name _

		    & vbNewLine & "الذي يشير للمدى: " & Nam_Rn.RefersTo, _

		    vbQuestion + vbYesNoCancel, "إعادة تسمية")

	    If Rms = vbCancel Then Exit Sub

	    If Rms = vbYes Then

  With Nam_Rn

   A_Rnm = InputBox("إدخل التسمية الجديدة للنطاق", "الأسم الجديد")

   If A_Rnm = "False" Or A_Rnm = cnacel Or IsNumeric(A_Rnm) Then Exit Sub

    .Name = A_Rnm

    MsgBox " تم بنجاح إعادة تسمية النطاق إلى الإسم التالي :" & A_Rnm: Exit Sub

  End With

	    End If

    Next Nam_Rn

End Sub

وهذا الكود لإعادة تحديث النطاق الى نطاق اخر

Public Sub Refe_Ali()

Dim Nam_Rn As Name

Dim Rms As Long

On Error Resume Next

Dim Re_Rn As Range

    For Each Nam_Rn In Names

	    Rms = MsgBox(" هل تريد تحديث هذا النطاق " & Nam_Rn.Name _

		    & vbNewLine & "الذي يشير للمدى: " & Nam_Rn.RefersTo, vbQuestion + vbYesNoCancel, "حذف نطاق")

	    If Rms = vbCancel Then GoTo Nex

	    If Rms = vbYes Then

	    Anm = Nam_Rn.Name

	    With ThisWorkbook.Names(Anm)

0:

Set Re_Rn = Application.InputBox("حدد بالماوس المدى المراد بدلا من النطاق السابق.", "إعادة تعين نطاق", , , , , , 8)

    If Re_Rn Is Nothing Then

	    Re_Rn = MsgBox("التحديد ليس مدى هل تريد اعادة تحديد المدى ؟ ", vbOKCancel + vbQuestion)

	    If Re_Rn = vbCancel Then

		    Exit Sub

	    Else

		    GoTo 0

	    End If

    Else

	   .RefersTo = Re_Rn.Address

	   MsgBox " تم بنجاح تحديث النطاق إلى النطاق الجديد " & .RefersTo

	   Exit Sub

    End If

    End With

    End If

Nex:

    Next Nam_Rn

End Sub

وهذا لحذف نطاق معين

Public Sub DNam_Ali()

Dim Nam_Rn As Name

Dim Rms As Long

    For Each Nam_Rn In Names

	    Rms = MsgBox(" هل تريد حذف النطاق المسمى " & Nam_Rn.Name _

		    & vbNewLine & "الذي يشير للمدى: " & Nam_Rn.RefersTo, _

		    vbQuestion + vbYesNoCancel, "حذف نطاق")

	    If Rms = vbCancel Then Exit Sub

	    If Rms = vbYes Then Nam_Rn.Delete

    Next Nam_Rn

End Sub

أرجو تجربة الأكواد

تقبلو تحياتي

[الـعيدروس]

السموحه منك أخي أبو حنين

لم أرى مشاركتك

إلا بعد المشاركه

[أبو حنــــين]

أكواد رائعة أخي عباد

جربتها و هي تعمل بطريقة ممتازة

إلا أن كود التحديث لا يظهر اسم النطاق في مربع الرسم اي في الاعلى يسار شريط الصيغة

جزاك الله خيرا

[الـعيدروس]

اخي أبو حنين

انا جربت الأكواد على نطاقات مضافة عن طريق يسار الصيغة

الأوفيس عندي 2007

[saad abed]

استاذنا ابونصار

الاكواد تعمل بكفاءة

رد شامل

اتابع ردودك وكلى شغف لانها تضيف الينا اشياء جديدة

جزاك الله خير

[ابو تميم]

أساتذتنا ابو نصار و ابو حنين

جزاكم الله خيرا

فعلا أكواد رائعة جدا كأصحابها

سلمت أياديكم

تم تعديل ديسمبر 22, 2012 بواسطه ابو تميم

[رشراش علي]

أساتذتنا الكرام: الله لا يحرمنا منكم ومن علمكم ويثيبكم عنا اجرا كريما ودرجة رفيعة......