نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية متابعة الارتباط التشعبي إلى ورقة مخفية في إكسيل؟

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

دوك تشعبي إلى ورقة خفية شنومكس

اتبع الارتباط التشعبي لفتح ورقة مخفية مع التعليمات البرمجية فبا

اتبع الارتباط التشعبي لفتح ورقة مخفية ثم إخفاء مرة أخرى مع التعليمات البرمجية فبا


إدراج جميع أسماء أوراق العمل والارتباط بكل ورقة:

مع كوتولس ل إكسيل's إنشاء قائمة بأسماء الورق ، يمكنك بسرعة سرد كافة أسماء أوراق العمل في ورقة جديدة مع ارتباطات تشعبية أو أزرار ماكرو حسب الحاجة.

أسماء أوراق العمل ذات الارتباطات التشعبية أسماء أوراق العمل بأزرار ماكرو
DOC-قائمة رقة عمل-names2  2 DOC-قائمة رقة عمل-names2  2 DOC-قائمة رقة عمل-names2

اتبع الارتباط التشعبي لفتح ورقة مخفية مع التعليمات البرمجية فبا


التعليمات البرمجية فبا التالية قد تساعدك على فتح ورقة العمل المخفية عند النقر على الارتباط التشعبي النسبي، يرجى القيام على النحو التالي:

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

رمز فبا: اتبع الارتباط التشعبي لفتح ورقة مخفية:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

دوك تشعبي إلى ورقة خفية شنومكس

ملاحظة:: في التعليمات البرمجية أعلاه، الرقم 1 في هذا إذا target.Column = شنومك ثم يشير النص البرمجي إلى رقم العمود الذي يحتوي على الارتباطات التشعبية، يرجى تغيير حاجتك.

2. ثم حفظ وإغلاق هذا الإطار التعليمات البرمجية، الآن، عند النقر فوق الارتباط التشعبي الذي يرتبط إلى ورقة مخفية محددة، سيتم فتح ورقة مخفية في وقت واحد.


اتبع الارتباط التشعبي لفتح ورقة مخفية ثم إخفاء مرة أخرى مع التعليمات البرمجية فبا

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

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

رمز فبا: اتبع الارتباط التشعبي لفتح ورقة مخفية عند الرجوع مرة أخرى إخفاءه مرة أخرى:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

دوك تشعبي إلى ورقة خفية شنومكس

2. ثم حفظ الإعلان إغلاق نافذة التعليمات البرمجية، عند النقر فوق الارتباط التشعبي، سيتم فتح ورقة مخفية مرتبطة على الفور، ولكن، إذا كنت العودة ورقة رئيسية التي تحتوي على الارتباطات التشعبية، سيتم إخفاء ورقة فتح تلقائيا مرة أخرى.

ملاحظة:: يتم تطبيق رموز الأطروحات فقط على أسماء الصفحات التي تطابق نص الارتباط التشعبي الخاص بك.


عرض: اتبع الارتباط التشعبي لفتح ورقة مخفية مع التعليمات البرمجية فبا

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.