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

วิธีแทรกตารางลอยหรือกล่องข้อความในแผ่นงาน Excel

หากคุณมีตารางหรือกล่องข้อความที่มีข้อมูลสำคัญบางอย่างซึ่งคุณต้องการให้มองเห็นได้เสมอบนหน้าจอแผ่นงานแม้ว่าคุณจะเลื่อนขึ้นหรือลงในแผ่นงานก็ตาม นี่อาจเป็นงานที่น่าสนใจบทความนี้ฉันจะแนะนำเคล็ดลับง่ายๆในการแก้ปัญหา

แทรกตารางลอยใน Excel ด้วยรหัส VBA

แทรกกล่องข้อความลอยใน Excel ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา แทรกตารางลอยใน Excel ด้วยรหัส VBA

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

1. เลือกตารางข้อมูลที่คุณต้องการให้มองเห็นได้จากนั้นคลิก คัดลอก > คัดลอกเป็นรูปภาพ ภายใต้ หน้าแรก ดูภาพหน้าจอ:

doc แทรกตารางลอย 1

2. ในการโผล่ออกมา คัดลอกรูปภาพ ใหเลือก ตามที่แสดงบนหน้าจอ จาก ลักษณะ และเลือก ภาพ ภายใต้ รูปแบบ คลิกที่ OK เพื่อปิดกล่องโต้ตอบจากนั้นคลิกเซลล์เพื่อส่งออกรูปภาพในที่สุดให้กด Ctrl + V เพื่อวางภาพนี้ดูภาพหน้าจอ:

doc แทรกตารางลอย 2

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 คือชื่อภาพที่คุณสร้างขึ้นโปรดเปลี่ยนตามความต้องการของคุณ

doc แทรกตารางลอย 3

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


ลูกศรสีฟ้าฟองขวา แทรกกล่องข้อความลอยใน Excel ด้วยรหัส VBA

หากต้องการแทรกกล่องข้อความแบบลอยนี่คือรหัส VBA เพื่อแก้ปัญหานี้

1. ขั้นแรกคุณควรแทรกกล่องข้อความจากไฟล์ ผู้พัฒนา คลิกแท็บ ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ตัวควบคุม ActiveX)จากนั้นวาดกล่องข้อความและป้อนข้อมูลลงในกล่องข้อความตามที่คุณต้องการ ดูภาพหน้าจอ:

doc แทรกตารางลอย 4

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 คือชื่อกล่องข้อความที่คุณใส่ไว้โปรดเปลี่ยนตามความต้องการของคุณ

doc แทรกตารางลอย 5

3. จากนั้นบันทึกและปิดหน้าต่างรหัสตอนนี้เมื่อคุณเลื่อนแผ่นงานไปที่ใดก็ได้กล่องข้อความที่แทรกจะถูกเก็บไว้ที่มุมขวาบนของแผ่นงานเสมอ


หน้าต่างขยายหรือย่อขนาดแผ่นงาน

ในการขยายหน้าต่างเวิร์กชีตให้ใหญ่ที่สุดสามารถเพิ่มพื้นที่ว่างให้กับผู้ใช้ใน Excel คุณสามารถขยายหน้าต่างเวิร์กชีตให้ใหญ่ที่สุดโดยการซ่อนริบบิ้นแถบสูตรหรือแถบสถานะ Kutools สำหรับ Excel's บริเวณที่ทำงาน สามารถช่วยคุณซ่อนริบบิ้นได้ด้วยคลิกเดียว ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


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

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)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ - สิ่งนี้ช่วยแก้ปัญหาของฉันได้ง่ายมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าฉันปรับขนาดหน้าต่างใหม่ รูปภาพจะลอยอยู่ตรงกลางมากเกินไป ฉันจะทำให้รูปภาพลอยไปที่ระยะขอบเดียวกันจากหน้าจอได้อย่างไร ไม่ว่าฉันจะมีหน้าต่างขนาดใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ระหว่างขั้นตอนที่ 2 และ 3 ใน "แทรกตารางลอยใน Excel ด้วยรหัส VBA" ฉันพลาดวิธีตั้งชื่อรูปภาพที่ฉันเพิ่งคัดลอกและวาง

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

Mi pregunta es cómo mantener มองเห็นได้ la imagen flotante aun cuando me desplace en distintas filas o columnas de la hoja.

Saludos และ gracias por compartir tus conocimientos.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ