วิธีแทรกตารางลอยหรือกล่องข้อความในแผ่นงาน Excel
หากคุณมีตารางหรือกล่องข้อความที่มีข้อมูลสำคัญบางอย่างซึ่งคุณต้องการให้มองเห็นได้เสมอบนหน้าจอแผ่นงานแม้ว่าคุณจะเลื่อนขึ้นหรือลงในแผ่นงานก็ตาม นี่อาจเป็นงานที่น่าสนใจบทความนี้ฉันจะแนะนำเคล็ดลับง่ายๆในการแก้ปัญหา
แทรกตารางลอยใน Excel ด้วยรหัส VBA
แทรกกล่องข้อความลอยใน Excel ด้วยรหัส VBA
แทรกตารางลอยใน Excel ด้วยรหัส VBA
ไม่มีวิธีโดยตรงในการแทรกตารางลอยดังนั้นคุณต้องแปลงข้อมูลตารางเป็นรูปภาพจากนั้นใช้รหัสเพื่อทำให้เสร็จโปรดทำตามนี้:
1. เลือกตารางข้อมูลที่คุณต้องการให้มองเห็นได้จากนั้นคลิก คัดลอก > คัดลอกเป็นรูปภาพ ภายใต้ หน้าแรก ดูภาพหน้าจอ:
2. ในการโผล่ออกมา คัดลอกรูปภาพ ใหเลือก ตามที่แสดงบนหน้าจอ จาก ลักษณะ และเลือก ภาพ ภายใต้ รูปแบบ คลิกที่ OK เพื่อปิดกล่องโต้ตอบจากนั้นคลิกเซลล์เพื่อส่งออกรูปภาพในที่สุดให้กด Ctrl + V เพื่อวางภาพนี้ดูภาพหน้าจอ:
3. หลังจากแปลงตารางเป็นรูปภาพแล้วให้คลิกขวาที่แท็บแผ่นงานซึ่งมีรูปภาพตารางที่คุณต้องการให้มองเห็นได้ตลอดเวลาแล้วเลือก ดูรหัส จากเมนูบริบทและในเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า:
รหัส VBA: แทรกตารางลอยใน excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
If Target.Cells.Count > 1 Then Exit Sub
With ActiveSheet.Shapes("Picture1")
.Top = ActiveWindow.VisibleRange.Top + 5
.Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
End With
Application.ScreenUpdating = False
End Sub
หมายเหตุ: ในรหัสนี้ไฟล์ ภาพที่ 1 คือชื่อภาพที่คุณสร้างขึ้นโปรดเปลี่ยนตามความต้องการของคุณ
4. จากนั้นบันทึกและปิดหน้าต่างรหัสตอนนี้เมื่อคุณเลื่อนแผ่นงานและคลิกเซลล์รูปภาพตารางจะถูกเก็บไว้ที่มุมขวาบนของแผ่นงานเสมอ
แทรกกล่องข้อความลอยใน Excel ด้วยรหัส VBA
หากต้องการแทรกกล่องข้อความแบบลอยนี่คือรหัส VBA เพื่อแก้ปัญหานี้
1. ขั้นแรกคุณควรแทรกกล่องข้อความจากไฟล์ ผู้พัฒนา คลิกแท็บ ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ตัวควบคุม ActiveX)จากนั้นวาดกล่องข้อความและป้อนข้อมูลลงในกล่องข้อความตามที่คุณต้องการ ดูภาพหน้าจอ:
2. จากนั้นคลิกขวาที่แท็บแผ่นงานซึ่งมีกล่องข้อความที่คุณต้องการให้มองเห็นได้ตลอดเวลาและเลือก ดูรหัส จากเมนูบริบทและในเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางรหัสต่อไปนี้ลงในช่องว่าง โมดูล:
รหัส VBA: แทรกกล่องข้อความลอยใน Excel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
With ActiveWindow.VisibleRange
TextBox1.Top = .Top + 5
TextBox1.Left = .Left + .Width - TextBox1.Width - 45
End With
Application.ScreenUpdating = True
End Sub
หมายเหตุ: ในรหัสนี้ไฟล์ กล่องข้อความ 1 คือชื่อกล่องข้อความที่คุณใส่ไว้โปรดเปลี่ยนตามความต้องการของคุณ
3. จากนั้นบันทึกและปิดหน้าต่างรหัสตอนนี้เมื่อคุณเลื่อนแผ่นงานไปที่ใดก็ได้กล่องข้อความที่แทรกจะถูกเก็บไว้ที่มุมขวาบนของแผ่นงานเสมอ
หน้าต่างขยายหรือย่อขนาดแผ่นงาน
ในการขยายหน้าต่างเวิร์กชีตให้ใหญ่ที่สุดสามารถเพิ่มพื้นที่ว่างให้กับผู้ใช้ใน Excel คุณสามารถขยายหน้าต่างเวิร์กชีตให้ใหญ่ที่สุดโดยการซ่อนริบบิ้นแถบสูตรหรือแถบสถานะ Kutools สำหรับ Excel's บริเวณที่ทำงาน สามารถช่วยคุณซ่อนริบบิ้นได้ด้วยคลิกเดียว ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
