ไปยังเนื้อหาหลัก

 วิธีเรียกใช้แมโครโดยคลิกไฮเปอร์ลิงก์ใน Excel

รหัสมาโครอาจมีประโยชน์มากสำหรับเราในการแก้งานที่ซับซ้อนบางอย่างใน Excel โดยปกติเราสามารถเรียกใช้งานได้ในไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างโดยคลิก วิ่ง หรือกด F5 สำคัญ. แต่คุณเคยพยายามเรียกใช้แมโครโดยคลิกที่ไฮเปอร์ลิงก์สัมพัทธ์ในแผ่นงานหรือไม่?

เรียกใช้หรือเรียกใช้แมโครโดยคลิกไฮเปอร์ลิงก์ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา เรียกใช้หรือเรียกใช้แมโครโดยคลิกไฮเปอร์ลิงก์ด้วยรหัส VBA

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

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

doc เรียกใช้มาโครจากไฮเปอร์ลิงก์ 1

2. ทำซ้ำขั้นตอนข้างต้นเพื่อสร้างไฮเปอร์ลิงก์อื่น ๆ ที่คุณต้องการใช้ตามภาพหน้าจอต่อไปนี้:

doc เรียกใช้มาโครจากไฮเปอร์ลิงก์ 2

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

รหัส VBA: เรียกใช้รหัสแมโครจากการเชื่อมโยงหลายมิติ:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$B$6" Then
        Call Macro1
        End If
         If Target.Range.Address = "$B$8" Then
        Call Macro2
         End If
End Sub

doc เรียกใช้มาโครจากไฮเปอร์ลิงก์ 3

หมายเหตุ: ในโค้ดด้านบน B6 และ B8 เซลล์มีไฮเปอร์ลิงก์ที่คุณต้องการใช้หรือไม่และ Macro1 และ Macro2 เป็นชื่อรหัสมาโครโปรดเปลี่ยนตามความต้องการของคุณ

4. จากนั้นให้บันทึกและปิดหน้าต่างโค้ดนับจากนี้ไปเมื่อคุณคลิกไฮเปอร์ลิงก์โค้ดแมโครเฉพาะจะถูกเรียกใช้งานพร้อมกัน


บทความที่เกี่ยวข้อง:

วิธีเรียกใช้แมโครเมื่อค่าของเซลล์เปลี่ยนแปลงใน Excel

วิธีเรียกใช้แมโครตามค่าเซลล์ใน Excel

วิธีเรียกใช้แมโครตามค่าที่เลือกจากรายการแบบหล่นลงใน Excel

วิธีเรียกใช้มาโครโดยอัตโนมัติก่อนพิมพ์ใน Excel

วิธีเรียกใช้แมโครเมื่อแผ่นงานถูกเลือกจากสมุดงาน

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
works well
This comment was minimized by the moderator on the site
Me sale un error:

Error de compilación:
No se ha definido Sub o Function
This comment was minimized by the moderator on the site
Olá,

Um dos poucos locais onde encontrei essa solução. Muito obrigado! Estou quase lá. Não estou usando uma célula para o hiperlink, mas uma imagem que inseri na planilha e indicando uma célula qualquer como referência. Fiz como indicado, mas não funciona (Só para verificação, fiz com uma célula e deu certo). Há alguma modificação a ser feita na macro?
This comment was minimized by the moderator on the site
Hello
This is very handy, thank you, however this only works if you are in the cell $B$8. I want to create the same hyperlink, which performs the same macro function, but in every row down the sheet.
ie. I have two tabs, sheet 1 and sheet 2. The user is in Sheet 1, and a macro is run which enters data in sheet 1 and sheet 2 on a row-by-row basis. This works fine, but then i want a macro so that the user can click a link in the next cell and it takes them back to their original row in sheet 1, offset a few cells. I can do this using the above, BUT only if the user is in a set row in sheet 2 (eg $B$8). How can i make it so the macro works when they are in sheet 2 B9, B10, B11....?
This comment was minimized by the moderator on the site
This will assign sheet1 column J, row 2 to 35 with a hyperlink to it's own cell with the text name

Sub whateverName()
For i = 2 To 35 Step 1
ActiveCell.FormulaR1C1 = "name"
Range("J" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'sheet1'!J" & i, TextToDisplay:="name"
Next

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations