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

วิธีทำให้แผนภูมิอยู่ในมุมมองเสมอเมื่อเลื่อนใน Excel?

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

doc เก็บแผนภูมิไว้ในมุมมอง 1
doc ลูกศรลง
doc เก็บแผนภูมิไว้ในมุมมอง 2

ดูแผนภูมิอยู่เสมอ


ลูกศรสีฟ้าฟองขวา ดูแผนภูมิอยู่เสมอ

หากต้องการเก็บแผนภูมิไว้ในมุมมองขณะเลื่อนแผ่นงานคุณสามารถใช้โค้ด VBA ด้านล่างเพื่อแก้ปัญหาได้

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการให้แผนภูมิมองเห็นได้จากนั้นคลิก ดูรหัส สร้างเมนูบริบท ดูภาพหน้าจอ:
doc เก็บแผนภูมิไว้ในมุมมอง 3

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

VBA: ดูแผนภูมิอยู่เสมอ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

doc เก็บแผนภูมิไว้ในมุมมอง 5

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

หมายเหตุ:

(1) ในรหัส VBA แผนภูมิที่ 2 คือชื่อแผนภูมิที่คุณต้องการเก็บไว้ดูคุณสามารถเปลี่ยนได้ตามต้องการ

(2) VBA นี้ไม่สามารถมองเห็นกลุ่มของแผนภูมิได้ตลอดเวลา


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

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

ขณะที่มาโครนี้ทำงานอยู่ ฉันไม่สามารถเลือกเซลล์เพื่อวัตถุประสงค์อื่นได้ เช่น การจัดรูปแบบหรือการรวมเซลล์ คลิกและลาก Shift หรือ ctrl ทำงานเพื่อเลือกกลุ่มเซลล์ ฉันสามารถเลือกได้เพียงเซลล์เดียวที่ฉันคลิก ฉันมักจะต้องการเปลี่ยนการจัดรูปแบบ (พื้นหลัง กรอกสูตร ฯลฯ) วิธีเดียวที่ฉันสามารถทำได้คือลบมาโคร บันทึก ทำการเปลี่ยนแปลงการจัดรูปแบบ วางมาโครกลับเข้าไปแล้วบันทึก

มีวิธีง่ายกว่านี้ในการทำเช่นนี้หรือไม่? บางที:

1. (แนะนำ) การกดแป้นพิมพ์อย่างง่ายที่จะปิดการใช้งานมาโครชั่วคราวแล้วเปิดใช้งานอีกครั้ง

2. เพิ่มโค้ดบางตัวในมาโครเพื่อให้สามารถเลือกกลุ่มเซลล์ได้

เดนนิส
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีสูตรที่คล้ายกันที่สามารถสร้างสำหรับ Google ชีตได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีจำกัดความสูงของแผ่นงานที่จะย้ายไปอยู่ที่แผนภูมิหรือไม่? ฉันไม่ต้องการให้ติดเหนือแถว 8
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Hola muchas gracias por el código, utilizando este código ¿Hay alguna manera de limitar qué tan alto en la hoja se reubicará el gráfico? ตัวอย่าง, no quiero que se coloque encima de la fila 9. Ayuda por favour.
ได้รับคะแนน 5 จาก 5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถใช้ Kutools เพื่อใช้ VBA นั้นสำหรับแผนภูมิของฉันโดยอัตโนมัติได้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัย Wangnuli, Kutools ยังไม่สนับสนุนสิ่งนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใครก็ได้ช่วยที เมื่อฉันทำตามขั้นตอนเหล่านี้


แผ่นงานย่อยส่วนตัว_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
ลด CPos เป็นสองเท่า
Application.ScreenUpdating = เท็จ
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("แผนภูมิ 2") เปิดใช้งาน
ActiveSheet.Shapes("แผนภูมิ 2") ด้านบน = CPos
ActiveWindow.Visible = เท็จ
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด


ฉันได้รับข้อผิดพลาดต่อไปนี้

ข้อผิดพลาดรันไทม์ '-2147024809 (80070057)':
ไม่พบรายการที่มีชื่อที่ระบุ

เมื่อฉันดีบัก
ActiveSheet.ChartObjects("แผนภูมิ 2") เปิดใช้งาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Christo คุณต้องเปลี่ยนชื่อแผนภูมิ "แผนภูมิ 2" เป็นชื่อแผนภูมิของคุณจริงๆ ในสคริปต์ คุณสามารถคลิกที่แผนภูมิและดูชื่อในกล่องชื่อ ดูภาพหน้าจอ:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช่ขอบคุณ. หลังจากถามคำถามฉันรู้ว่าชื่อแผนภูมิของฉันผิด
ขอบคุณ

PS
คุณรู้หรือไม่ว่าฉันจะทำให้แผนภูมิอยู่ในมุมมองขณะที่ฉันเลื่อนโดยไม่ต้องคลิกที่ตำแหน่งที่ต้องติดตามได้อย่างไร
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ