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

วิธีการเชื่อมโยงหลายมิติปุ่มคำสั่งไปยังที่อยู่ URL ใน Excel

ใน Excel อาจเป็นเรื่องง่ายที่เราจะสร้างไฮเปอร์ลิงก์สำหรับปุ่มรูปร่าง แต่คุณเคยพยายามสร้างไฮเปอร์ลิงก์ไปยังปุ่มคำสั่งหรือไม่? เมื่อคุณคลิกปุ่มคำสั่งมันจะไปที่เว็บไซต์ URL ที่คุณต้องการ บทความนี้ฉันจะแนะนำเคล็ดลับที่ง่ายและรวดเร็วในการจัดการกับงานนี้ใน Excel

ไฮเปอร์ลิงก์ปุ่มคำสั่งไปยังที่อยู่ URL ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา ไฮเปอร์ลิงก์ปุ่มคำสั่งไปยังที่อยู่ URL ด้วยรหัส VBA

หากต้องการไฮเปอร์ลิงก์ปุ่มคำสั่งโปรดทำตามขั้นตอนต่อไปนี้:

1. คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control)จากนั้นวาดปุ่มตามภาพหน้าจอต่อไปนี้:

ปุ่มคำสั่ง doc hyperlink 1

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

ปุ่มคำสั่ง doc hyperlink 2

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

รหัส VBA: เชื่อมโยงหลายมิติไปยังปุ่มคำสั่ง:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub

ปุ่มคำสั่ง doc hyperlink 3

หมายเหตุ: ในโค้ดด้านบน ปุ่มคำสั่ง1 เป็นชื่อของปุ่มคำสั่งที่สร้างขึ้นโปรดเปลี่ยนตามความต้องการของคุณ

4. จากนั้นบันทึกรหัสและออกจากไฟล์ โหมดการออกแบบตอนนี้เมื่อคุณคลิกปุ่มคำสั่งมันจะไปที่หน้าเว็บเฉพาะ

เคล็ดลับ: หากคำอธิบายภาพในปุ่มคำสั่งไม่ใช่ที่อยู่ URL จะเป็นเพียงสตริงข้อความตามภาพหน้าจอต่อไปนี้:

ปุ่มคำสั่ง doc hyperlink 4

คุณสามารถใช้รหัส VBA ด้านล่างเพื่อให้บรรลุ:

รหัส VBA: เชื่อมโยงหลายมิติไปยังปุ่มคำสั่ง:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub

ปุ่มคำสั่ง doc hyperlink 5

หมายเหตุ: ในโค้ดด้านบน ปุ่มคำสั่ง1 คือชื่อของปุ่มคำสั่งที่สร้างขึ้นและคุณควรแทนที่ที่อยู่เว็บไซต์ https://www.extendoffice.com ไปยังที่อยู่ URL ของคุณเอง

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

🤖 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kan je dit ook gebruiken om met een druk van de knop naar bovenaan een sheet te gaan?
This comment was minimized by the moderator on the site
Hello, Raver,
To click a button to go the top of the worksheet, please apply the below code:
Private Sub CommandButton1_Click()
ActiveSheet.Range("A1").Select
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you very much.
This comment was minimized by the moderator on the site
Gracias me sirvió full.
This comment was minimized by the moderator on the site
Thank you, can you show how you could link the URL from a cell on a sheet?
This comment was minimized by the moderator on the site
¿Cómo se podría hacer con un cuadro de texo? Es decir, que cualquier dirección web que se ponga en un cuadro de texto se puede abrir con un boton
Gracias
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations