จะเลื่อนแผ่นงานที่ระบุหรือแผ่นงานทั้งหมดไปที่แถวบนสุดใน Excel ได้อย่างไร

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

เลื่อนแผ่นงานที่ระบุหรือแผ่นงานทั้งหมดไปที่แถวบนสุดด้วยโค้ด VBA

เลื่อนแผ่นงานที่ระบุหรือแผ่นงานทั้งหมดไปที่แถวบนสุดด้วยโค้ด VBA

หากต้องการเลื่อนแผ่นงานที่ระบุหรือแผ่นงานทั้งหมดไปที่แถวบนสุดใน Excel โปรดทำดังต่อไปนี้

1. ในแผ่นงานคุณต้องเลื่อนขึ้นไปด้านบนโปรดกดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างนี้ลงในหน้าต่างโค้ด

รหัส VBA: เลื่อนเวิร์กชีตเฉพาะไปที่แถวบนสุด

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

รหัส VBA: เลื่อนแผ่นงานทั้งหมดไปที่แถวบนสุด

Sub Select_A1_On_Activeworkbook()
    Dim xSheet As Worksheet
    For Each xSheet In ActiveWorkbook.Sheets
        xSheet.Activate
        ActiveSheet.Range("A1").Select
    Next
    ActiveWorkbook.Worksheets(1).Activate
End Sub

3. หลังจากป้อนรหัส VBA ลงในหน้าต่างรหัสโปรดกดปุ่ม F5 กุญแจสำคัญในการเรียกใช้รหัส

เวิร์กชีตที่ใช้งานอยู่หรือเวิร์กชีตทั้งหมดในเวิร์กบุ๊กปัจจุบันจะเลื่อนขึ้นไปด้านบนทันที