اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

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

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

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

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

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

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

قام بنشر

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

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

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

قام بنشر

السلام عليكم

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

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

قام بنشر

السلام عليكم

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

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

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

ثم انسخ الكود التالي سترى كل النطاقات قد كتبت في العمود 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

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

تقبلو تحياتي

قام بنشر

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

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

رد شامل

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

جزاك الله خير

قام بنشر (معدل)

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

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

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

سلمت أياديكم

تم تعديل بواسطه ابو تميم
  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information