XL2000: لا أمر القائمة إلى تحديد كافة الارتباطات التشعبية داخل ورقة

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية213790
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الأعراض
يحتوي Microsoft Excel 2000 لا يوجد أمر القائمة يسمح لك بتحديد كافة الارتباطات التشعبية داخل ورقة عمل.
الحل البديل
تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية ، ، لا الحصر إلى ضمانات القابلية للتسويق و/أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي تم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن أن يساعد إخصائيي الدعم Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات لتلبية احتياجاتك المحددة.
إذا كان يجب أن يكون لديك خبرة محدودة في مجال البرمجة، قد تحتاج إلى الاتصال بشريك Microsoft أو خدمات النصائح. لمزيد من المعلومات، قم بزيارة مواقع ويب Microsoft هذه:

Microsoft المعتمدين Partners – https://partner.microsoft.com/global/30000104

خدمات Microsoft المستند الذي يقدم النصائح - http://support.microsoft.com/gp/advisoryservice

للحصول على مزيد من المعلومات حول خيارات الدعم المتوفرة وحول كيفية الاتصال بشركة Microsoft قم بزيارة موقع Microsoft التالي على الويب: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSللتغلب على هذه المشكلة، استخدم ماكرو لتحديد كافة الخلايا التي تحتوي على ارتباطات تشعبية.
  1. إنشاء مصنف جديد في Microsoft Excel.
  2. من القائمة أدوات، أشر إلى ماكرو ، ثم انقر فوق محرر Visual Basic.
  3. في محرر Visual Basic ، من القائمة إدراج ، انقر فوق وحدة نمطية.
  4. اكتب التعليمة البرمجية التالية داخل الوحدة النمطية:
    'This Sub procedure selects all cells in the worksheet that contain'hyperlinks. You can then clear the selected cells to delete all of'the hyperlinks.Sub SelectAllHyperlinkCells()    FirstCell = 1    For Each xLink In ActiveSheet.Hyperlinks        If FirstCell = 1 Then            Set xRange = xLink.Range            FirstCell = 0        Else            Set xRange = Application.Union(xRange, xLink.Range)        End If    Next xLink    xRange.SelectEnd Sub					
معلومات أخرى

وحدات ماكرو أخرى إلى استخدام الارتباطات التشعبية

يمكنك استخدام Microsoft Visual Basic for Applications روتين فرعي التنقل بين كافة الارتباطات التشعبية داخل ورقة عمل وتنفيذ عملية معينة على كل ارتباط تشعبي. على سبيل المثال، يمكنك حذف كافة الارتباطات التشعبية أو يمكنك ببساطة إرسال تقرير موقع كل ارتباط تشعبي.

ملاحظة: تم تعديل بعض سطور التعليمات البرمجية مع حرف متابعة السطر (_) لاحتواء هذا المستند.
  1. إنشاء مصنف جديد في Microsoft Excel.
  2. من القائمة أدوات، أشر إلى ماكرو ، ثم انقر فوق محرر Visual Basic.
  3. في محرر Visual Basic ، من القائمة إدراج ، انقر فوق وحدة نمطية.
  4. اكتب التعليمة البرمجية التالية داخل الوحدة النمطية:
    'This Sub procedure deletes all hyperlinks in the active worksheet.Sub DeleteAllHyperlinks()    For Each xLink In ActiveSheet.Hyperlinks        xLink.Delete    Next xLinkEnd Sub'This Sub procedure displays a series of message boxes indicating'the location of each hyperlink in the active worksheet.Sub ReportHyperlinkLocations()   For Each xLink In ActiveSheet.Hyperlinks        MsgBox xLink.Range.Address    Next xLinkEnd Sub'This Sub procedure identifies each hyperlink and asks if you want'to delete it. If you click Yes, the hyperlink is deleted.Sub ReportAndDeleteHyperlinks()    For Each xLink In ActiveSheet.Hyperlinks        Response = MsgBox("Delete hyperlink in cell " & _            xLink.Range.Address & " ?", vbYesNo)        If Response = vbYes Then xLink.Delete    Next xLinkEnd Sub					
  5. من القائمة ملف، انقر فوق إغلاق ورجوع إلى Microsoft Excel.
إذا قمت بإدراج بعض الارتباطات التشعبية في ورقة العمل الخاصة بك يمكنك تشغيل وحدات الماكرو مختلفة عن طريق الإشارة إلى ماكرو ضمن القائمة أدوات ثم النقر فوق وحدات الماكرو. حدد اسم الماكرو لتشغيل ثم انقر فوق تشغيل.

حذف الماكرو DeleteAllHyperlinks() خاصية الارتباط التشعبي النطاق ولكن نص الارتباط التشعبي. يترك خلف نص الارتباط التشعبي.
مراجع
للحصول على مزيد من المعلومات حول الارتباطات التشعبية في محرر Visual Basic، انقر فوق "تعليمات Microsoft Visual Basic" من القائمة تعليمات ، اكتب كائن ارتباط تشعبي في مساعد Office "أو" معالج الإجابة ثم انقر فوق بحث لعرض الموضوع.
ربط روتين URL "select.special" specialcells روتين فرعي XL2000

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 213790 - آخر مراجعة: 02/06/2014 22:00:25 - المراجعة: 3.5

Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtar
تعليقات