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

วิธีเพิ่มปลายเมาส์ให้เป็นรูปร่างบางอย่างใน Excel

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

เพิ่มเมาส์เหนือปลายให้เป็นรูปร่างบางอย่างโดยเพิ่มไฮเปอร์ลิงก์
เพิ่มเมาส์เหนือปลายเป็นรูปร่างบางอย่างด้วยรหัส VBA


เพิ่มเมาส์เหนือปลายให้เป็นรูปร่างบางอย่างโดยเพิ่มไฮเปอร์ลิงก์


คุณสามารถเพิ่มไฮเปอร์ลิงก์ด้วยคำแนะนำบนหน้าจอให้กับรูปร่างบางอย่างในแผ่นงาน กรุณาดำเนินการดังนี้

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

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

3. เมื่อมันกลับไปที่ แทรกไฮเปอร์ลิงก์ ใหคลิกปุ the ม ที่คั่นหนังสือ ปุ่ม. จากนั้นป้อน A1 ลงในช่อง Type ในเซลล์อ้างอิงของไฟล์ เลือกวางในเอกสาร แล้วคลิกไฟล์ OK ปุ่ม

4 คลิกที่ OK ปุ่มใน แทรกไฮเปอร์ลิงก์ กล่องโต้ตอบเพื่อเสร็จสิ้นการสร้างไฮเปอร์ลิงก์

ตอนนี้คุณสามารถเห็นปลายหน้าจอที่แสดงเมื่อวางเมาส์เหนือรูปร่าง


เพิ่มเมาส์เหนือปลายเป็นรูปร่างบางอย่างด้วยรหัส VBA

คุณสามารถเพิ่มปลายเมาส์ให้เป็นรูปร่างที่ต้องการได้อย่างง่ายดายหลังจากเรียกใช้รหัส VBA ต่อไปนี้

1. เปิดแผ่นงานที่มีรูปร่างที่คุณจะแสดงเคล็ดลับเมื่อเลื่อนเมาส์ไป คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก View Code จากเมนูบริบท

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกรหัส VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA 1: เพิ่มเมาส์เหนือส่วนปลายเป็นรูปร่างที่แน่นอน

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
    If Target.Address = Range("A1").Address Then
        Call MoveRow
    End If
End Sub

3 คลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นป้อนรหัส VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA 2: เพิ่มเมาส์เหนือส่วนปลายเป็นรูปร่างที่แน่นอน

Sub Text()
'Updated by Extendoffice 2018/3/30
    Dim xShape As Shape
    Dim xRg As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then
        ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
    End If
    If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
        Call MoveRow
    End If
    Application.EnableEvents = True
End Sub

หมายเหตุ:

1). โปรดแทนที่ "คลิกเพื่อเรียกใช้ Macro"และ"สี่เหลี่ยมผืนผ้า 4” พร้อมข้อความคำแนะนำบนหน้าจอของคุณและชื่อของรูปร่างที่ต้องการ
2). แทนที่ "ย้ายแถว"ในบรรทัด"เรียก MoveRow"กับชื่อมาโครที่คุณกำหนดให้กับรูปร่าง

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นปลายหน้าจอที่ระบุจะถูกเพิ่มลงในรูปร่างที่แน่นอนทันที


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


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (8)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี การทดสอบย่อย () เมื่อเกิดข้อผิดพลาด ดำเนินการต่อ Dim xShape As Shape Set xShape = ActiveSheet.Shapes ("สี่เหลี่ยมผืนผ้า 4") หากไม่ใช่ xShape ก็ไม่มีอะไร _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:=" คลิกเพื่อเรียกใช้มาโคร " End Sub Thank code ใช้งานได้ดี แต่จะลบมาโครที่ได้รับมอบหมาย เมื่อฉันใช้คำแนะนำหน้าจอและกดที่รูปร่าง Macro Deos ไม่ทำงาน มีวิธีแก้ไขหรือไม่? ใช้เคล็ดลับหน้าจอกับรูปร่างและให้มาโครทำงานหรือไม่ ขอบคุณค่ะĄ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันหวังว่าใครบางคนจะแก้ปัญหานี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
โปรดลองด้านล่างเพื่อแก้ปัญหา

ขั้นตอนที่ 1:
ในแผ่นงานประกอบด้วยรูปร่างที่คุณจะแสดงเคล็ดลับ คลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัสจากเมนูบริบท จากนั้นคัดลอกด้านล่าง VBA ลงในหน้าต่างรหัส:

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
ถ้า Target.Address = Range("A1")).Address แล้ว
เรียก MoveRow
End If
ย่อยสิ้นสุด

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

ข้อความย่อย()
Dim xShape เป็นรูปร่าง
Dim xRg เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.EnableEvents = เท็จ
ตั้งค่า xShape = ActiveSheet.Shapes ("สี่เหลี่ยมผืนผ้า 1")
ถ้าไม่ใช่ xShape ก็ไม่มีอะไรทั้งนั้น
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
ถ้า ActiveSheet.Hyperlinks(1).SubAddress = "A1" แล้ว
เรียก MoveRow
End If
Application.EnableEvents = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน คุณอีวัลดาส
ขออภัยในความผิดพลาด โปรดลองด้านล่างเพื่อแก้ปัญหา

ขั้นตอนที่ 1:
ในแผ่นงานประกอบด้วยรูปร่างที่คุณจะแสดงเคล็ดลับ คลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัสจากเมนูบริบท จากนั้นคัดลอกด้านล่าง VBA ลงในหน้าต่างรหัส:

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
ถ้า Target.Address = Range("A1")).Address แล้ว
เรียก MoveRow
End If
ย่อยสิ้นสุด

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

ข้อความย่อย()
Dim xShape เป็นรูปร่าง
Dim xRg เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.EnableEvents = เท็จ
ตั้งค่า xShape = ActiveSheet.Shapes ("สี่เหลี่ยมผืนผ้า 1")
ถ้าไม่ใช่ xShape ก็ไม่มีอะไรทั้งนั้น
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
ถ้า ActiveSheet.Hyperlinks(1).SubAddress = "A1" แล้ว
เรียก MoveRow
End If
Application.EnableEvents = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ทำงาน..... หากมีไฮเปอร์ลิงก์ที่เกี่ยวข้องกับรูปร่าง มาโครจะไม่ทำงาน....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน ไนออล
รหัสทำงานได้ดีในกรณีของฉัน คุณสามารถระบุเวอร์ชัน Office ของคุณได้หรือไม่ ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน ไนออล
ขออภัยในความผิดพลาด โปรดลองด้านล่างเพื่อแก้ปัญหา

ขั้นตอนที่ 1:
ในแผ่นงานประกอบด้วยรูปร่างที่คุณจะแสดงเคล็ดลับ คลิกขวาที่แท็บแผ่นงานแล้วเลือกดูรหัสจากเมนูบริบท จากนั้นคัดลอกด้านล่าง VBA ลงในหน้าต่างรหัส:

แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
ถ้า Target.Address = Range("A1")).Address แล้ว
เรียก MoveRow
End If
ย่อยสิ้นสุด

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

ข้อความย่อย()
Dim xShape เป็นรูปร่าง
Dim xRg เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.EnableEvents = เท็จ
ตั้งค่า xShape = ActiveSheet.Shapes ("สี่เหลี่ยมผืนผ้า 1")
ถ้าไม่ใช่ xShape ก็ไม่มีอะไรทั้งนั้น
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
ถ้า ActiveSheet.Hyperlinks(1).SubAddress = "A1" แล้ว
เรียก MoveRow
End If
Application.EnableEvents = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แปลงรูปร่างของคุณเป็นรูปภาพ รูปภาพมีเคล็ดลับเครื่องมือ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ