حمادة عمر قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 السلام عليكم الاساتذة الكرام اسمحوا لي ان أسال هل من الممكن بعد ان قمت بعمل نطاقات متعددة في شيت اكسيل وطبعا اعطيت لكل نطاق اسمه هل من الممكن ان اقوم بالغاء اسماء هذه النطاقات لاعادة تسميتها مرة اخري او عمل نطاقات جديدة وان امكن ذلك هل سيتم علي كل النطاقات الموجودة بالصفحة مرة واحدة ام ان هناك طريقة تجعلني اقوم بحذف اسم النطاق الذي اريده فقط من ضمن النطاقات الموجودة جزاكم الله خيرا
الشهابي قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 أخي العزيز / حمادة عمر أضغط على (CTRL+F3) لإظهار أسماء النطاقات والتعيدل عليها أو تغيرها أو من علامة التبويب (صيغ ) واختار ( إدارة الأسماء )
رعد داود قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 وأذا كنت تستخدم اوفيس 2007 من formulas ثم تختار name manager لتظهر قائمه بأسماء الأنطقه تختار منه الذي تريد حذفه ثم دليت فيحذف 1
حمادة عمر قام بنشر ديسمبر 21, 2012 الكاتب قام بنشر ديسمبر 21, 2012 السلام عليكم لكم مني جزيل الشكر وعظيم الامتنان جزاكم الله خيرا
أبو حنــــين قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 السلام عليكم لاثراء الموضوع يمكن عمل ذلك أيضا بالكود إفتح ملف جديد و ضع فيه زر ثم حدد مجموعة نطاقات في هذا الملف ثم انسخ الكود التالي سترى كل النطاقات قد كتبت في العمود 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
الـعيدروس قام بنشر ديسمبر 21, 2012 قام بنشر ديسمبر 21, 2012 ألسلام عليكم وهذه بطريقة الأكواد هذا الكود لإعادة تسمية نطاق معين 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 أرجو تجربة الأكواد تقبلو تحياتي
الـعيدروس قام بنشر ديسمبر 22, 2012 قام بنشر ديسمبر 22, 2012 السموحه منك أخي أبو حنين لم أرى مشاركتك إلا بعد المشاركه
أبو حنــــين قام بنشر ديسمبر 22, 2012 قام بنشر ديسمبر 22, 2012 أكواد رائعة أخي عباد جربتها و هي تعمل بطريقة ممتازة إلا أن كود التحديث لا يظهر اسم النطاق في مربع الرسم اي في الاعلى يسار شريط الصيغة جزاك الله خيرا
الـعيدروس قام بنشر ديسمبر 22, 2012 قام بنشر ديسمبر 22, 2012 اخي أبو حنين انا جربت الأكواد على نطاقات مضافة عن طريق يسار الصيغة الأوفيس عندي 2007
saad abed قام بنشر ديسمبر 22, 2012 قام بنشر ديسمبر 22, 2012 استاذنا ابونصار الاكواد تعمل بكفاءة رد شامل اتابع ردودك وكلى شغف لانها تضيف الينا اشياء جديدة جزاك الله خير
ابو تميم قام بنشر ديسمبر 22, 2012 قام بنشر ديسمبر 22, 2012 (معدل) أساتذتنا ابو نصار و ابو حنين جزاكم الله خيرا فعلا أكواد رائعة جدا كأصحابها سلمت أياديكم تم تعديل ديسمبر 22, 2012 بواسطه ابو تميم
رشراش علي قام بنشر يناير 23, 2014 قام بنشر يناير 23, 2014 أساتذتنا الكرام: الله لا يحرمنا منكم ومن علمكم ويثيبكم عنا اجرا كريما ودرجة رفيعة......
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.