Note: The other languages of the website are Google-translated. Back to English

จะติดตามไฮเปอร์ลิงก์ไปยังแผ่นงานที่ซ่อนอยู่ใน Excel ได้อย่างไร

ตัวอย่างเช่นฉันมีสมุดงานซึ่งมีหลายแผ่นงานแผ่นงานหลักแผ่นแรกมีการเชื่อมโยงหลายมิติไปยังแผ่นงานอื่นและตอนนี้ฉันซ่อนแผ่นงานทั้งหมดยกเว้นแผ่นงานแรก ในกรณีนี้การเชื่อมโยงหลายมิติที่เชื่อมโยงไปยังแผ่นงานที่ซ่อนอยู่จะไม่พร้อมใช้งาน แต่คุณจะทำให้ไฮเปอร์ลิงก์เหล่านี้ทำงานสำเร็จได้อย่างไร เมื่อคุณคลิกเชื่อมโยงหลายมิติแผ่นงานที่ซ่อนอยู่ที่เชื่อมโยงจะเปิดขึ้นพร้อมกันตามภาพหน้าจอต่อไปนี้

ไฮเปอร์ลิงก์ doc ไปยังแผ่นงานที่ซ่อนอยู่ 1

ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนด้วยรหัส VBA

ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนอยู่แล้วซ่อนอีกครั้งด้วยรหัส VBA


ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนด้วยรหัส VBA

รหัส VBA ต่อไปนี้อาจช่วยให้คุณเปิดแผ่นงานที่ซ่อนอยู่เมื่อคลิกที่เชื่อมโยงหลายมิติแบบสัมพัทธ์โปรดดำเนินการดังนี้:

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการติดตามไฮเปอร์ลิงก์ไปยังแผ่นงานที่ซ่อนอยู่จากนั้นเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลว่าง:

รหัส VBA: ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนอยู่:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    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

ไฮเปอร์ลิงก์ doc ไปยังแผ่นงานที่ซ่อนอยู่ 2

หมายเหตุ: ในรหัสด้านบนหมายเลข 1 ในการนี​​้ ถ้า Target.Column = 1 แล้ว สคริปต์ระบุหมายเลขคอลัมน์ที่มีไฮเปอร์ลิงก์โปรดเปลี่ยนตามความต้องการของคุณ

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้ตอนนี้เมื่อคุณคลิกไฮเปอร์ลิงก์ที่เชื่อมโยงไปยังแผ่นงานที่ซ่อนอยู่แผ่นงานที่ซ่อนไว้จะเปิดขึ้นพร้อมกัน


ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนอยู่แล้วซ่อนอีกครั้งด้วยรหัส VBA

บางครั้งคุณต้องทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนอยู่และเมื่อคุณกลับไปที่แผ่นงานต้นแบบคุณต้องการให้ซ่อนแผ่นงานที่เปิดอีกครั้ง โค้ด VBA ด้านล่างสามารถช่วยคุณได้:

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการติดตามไฮเปอร์ลิงก์ไปยังแผ่นงานที่ซ่อนอยู่จากนั้นเลือก ดูรหัส จากเมนูบริบทในป๊อปอัป Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลว่าง:

รหัส VBA: ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนอยู่เมื่อย้อนกลับไปซ่อนอีกครั้ง:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    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

ไฮเปอร์ลิงก์ doc ไปยังแผ่นงานที่ซ่อนอยู่ 3

2. จากนั้นบันทึกโฆษณาปิดหน้าต่างโค้ดเมื่อคุณคลิกไฮเปอร์ลิงก์แผ่นงานที่ซ่อนอยู่ที่เชื่อมโยงจะเปิดขึ้นทันที แต่ถ้าคุณกลับไปที่แผ่นงานหลักที่มีไฮเปอร์ลิงก์แผ่นงานที่เปิดจะถูกซ่อนโดยอัตโนมัติ

หมายเหตุ: รหัสเหล่านี้จะใช้กับชื่อแผ่นงานที่ตรงกับข้อความไฮเปอร์ลิงก์ของคุณเท่านั้น


การสาธิต: ทำตามไฮเปอร์ลิงก์เพื่อเปิดแผ่นงานที่ซ่อนด้วยรหัส VBA

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (9)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังพยายามซ่อนแผ่นงานที่มีไฮเปอร์ลิงก์ ฉันต้องการที่จะสามารถคลิกที่แผ่นงานไปที่แผ่นไฮเปอร์ลิงก์แล้วคลิกกลับไปที่แผ่นงานและปิดแผ่นงานที่ซ่อนอยู่ ฉันได้ลองทำตามคำแนะนำของคุณแล้ว แต่มันใช้งานไม่ได้ ไม่แน่ใจว่าฉันทำอะไรผิด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีแผ่นงานที่ซ่อนอยู่ซึ่งมีไฮเปอร์ลิงก์ ฉันต้องการไปที่แผ่นงานที่ซ่อนอยู่และปิดเมื่อฉันกลับไปที่แผ่นงานต้นฉบับ ฉันใช้รหัส แต่มันไม่ทำงาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้รหัสนี้กับแผ่นงานสองแผ่นที่แตกต่างกันในสมุดงานของฉัน และในทั้งสองกรณีก็ใช้ได้ดี ยกเว้นไฮเปอร์ลิงก์แรกในแต่ละหน้า ฉันได้รับ "ข้อผิดพลาดตัวห้อยอยู่นอกช่วง" และตัวดีบั๊กชี้ไปที่ "ชีต (strLinkSheet).Visible = True" ทันทีหลังจาก "สิ้นสุด if" ใครเห็นข้อผิดพลาดนี้อีก อยู่ที่ลิงค์แรกของเพจเท่านั้น (ไฮเปอร์ลิงก์ของฉันอยู่ในคอลัมน์ A และเริ่มต้นในแถว 2)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ฉันใช้รหัสนี้บนแผ่นงานสองแผ่นที่แตกต่างกันในสมุดงานของฉัน และในทั้งสองกรณีก็ใช้งานได้ดี ยกเว้นไฮเปอร์ลิงก์แรกในแต่ละหน้า ฉันได้รับ "ข้อผิดพลาดตัวห้อยอยู่นอกช่วง" และตัวดีบั๊กชี้ไปที่ "ชีต (strLinkSheet).Visible = True" ทันทีหลังจาก "สิ้นสุด if" ใครเห็นข้อผิดพลาดนี้อีก อยู่ที่ลิงค์แรกของเพจเท่านั้น (ไฮเปอร์ลิงก์ของฉันอยู่ในคอลัมน์ A และเริ่มต้นในแถว 2)โดย HelzBelz[/quote] ชื่อแผ่นงานต้องไม่มีช่องว่างเช่น "แผ่นที่ 1" ฉันแก้ไขชื่อชีตเป็น "Sheet1" และข้อผิดพลาดหยุดลง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังใช้รหัสบนแผ่นงานสองแผ่นที่แตกต่างกัน ใช้งานได้กับหนึ่งใน 40 ไฮเปอร์ลิงก์ในแผ่นงานเดียว และเปิดไฮเปอร์ลิงก์สองรายการจากทั้งหมด 10 รายการในวินาทีแรก แผ่นงานที่สองที่เปิดอยู่จะกลับไปซ่อนเมื่อฉันกลับไปที่แผ่นงาน ข้อผิดพลาดที่ฉันได้รับเมื่อไม่สามารถเปิดแผ่นงานคือข้อผิดพลาดรันไทม์"9": สคริปต์อยู่นอกช่วงและรหัสที่ชี้ให้ฉัน - ชีต(strLinkSheet).Visible = True ความคิดใด ๆ เกี่ยวกับการเปลี่ยนแปลงที่จำเป็นทำให้ รหัสทำงานบนแผ่นงานทั้งหมดหรือไม่ ขอบคุณล่วงหน้า.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไฮเปอร์ลิงก์ "ข้อความ" ของฉันเป็นตัวเลขเท่านั้น และใช้งานไม่ได้...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการใช้รหัสนี้แต่ต้องการให้ใช้กับคอลัมน์ A เท่านั้น ฉันมีลิงก์ที่อยู่เว็บอื่นในเซลล์อื่นซึ่งทำให้เกิดปัญหาเมื่อเรียกใช้รหัสนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้สร้าง wordbook จำนวนมาก และฉันต้องการสร้างดัชนีเหล่านั้นในหน้าเดียว

หมายเหตุ: ประเด็นของฉันคือฉันต้องการซ่อนแผ่นงานทั้งหมด แผ่นงานจะเชื่อมโยงกับการตั้งค่ารูปภาพไปยังหน้าหลัก โดยคลิกที่รูปภาพที่เชื่อมโยงชีตจะปรากฏขึ้นและเมื่อฉันกลับมาที่ชีตหลักยกเลิกการซ่อนชีตจะถูกซ่อนอีกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่แน่ใจว่าฉันจะได้รับการตอบกลับหรือไม่ แต่เมื่อฉันคลิกไฮเปอร์ลิงก์ใด ๆ ของฉัน ฉันจะได้รับข้อผิดพลาด "การอ้างอิงไม่ถูกต้อง"
ทุกอย่างยังคงใช้งานได้ ฉันแค่ต้องคลิกตกลงเพื่อดำเนินการต่อ
ไม่มีใครมีความคิดว่าอะไรทำให้เกิดข้อผิดพลาดนี้สำหรับรหัสนี้
ขอขอบคุณ,
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL