วิธีทำให้ตารางขยายได้โดยการแทรกแถวตารางในแผ่นงานที่มีการป้องกันใน Excel

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

ทำให้ตารางขยายได้โดยการแทรกแถวตารางในแผ่นงานที่มีการป้องกันด้วยรหัส VBA

ทำให้ตารางขยายได้โดยการแทรกแถวตารางในแผ่นงานที่มีการป้องกันด้วยรหัส VBA

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

1 คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่ม (การควบคุมแบบฟอร์ม) เพื่อแทรกไฟล์ การควบคุมแบบฟอร์ม ลงในแผ่นงานของคุณ

2. ในการโผล่ขึ้นมา กำหนดมาโคร ใหคลิกปุ the ม ใหม่ ปุ่ม

3 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัส VBA ด้านล่างระหว่างไฟล์ ต และ ย่อยสิ้นสุด ย่อหน้าใน รหัส หน้าต่าง

รหัส VBA: ทำให้ตารางขยายได้โดยการแทรกแถวตารางในแผ่นงานที่มีการป้องกัน

'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    Set tableRg = ActiveSheet.ListObjects("Table4").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True

หมายเหตุ : :

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดหน้าต่าง Microsoft Visual Basic for Applications

5. เลือกเซลล์ในตารางที่คุณต้องการกำหนดข้อมูลใหม่ยกเว้นคอลัมน์สูตรจากนั้นกดปุ่ม Ctrl + 1 คีย์เพื่อเปิด จัดรูปแบบเซลล์ กล่องโต้ตอบ ใน จัดรูปแบบเซลล์ กล่องโต้ตอบยกเลิกการเลือก ล็อค จากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

6. ตอนนี้ให้ป้องกันเวิร์กชีตของคุณด้วยรหัสผ่านที่คุณระบุไว้ในโค้ด VBA

จากนี้ไปหลังจากคลิกปุ่ม Form Control ในแผ่นงานที่มีการป้องกันของคุณตารางจะขยายได้โดยการแทรกแถวใหม่ตามภาพด้านล่างที่แสดง

หมายเหตุ: คุณสามารถแก้ไขตารางยกเว้นคอลัมน์สูตรในแผ่นงานที่มีการป้องกัน

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

• วิธีทำให้ตัวแบ่งส่วนข้อมูลของตาราง Pivot เคลื่อนที่ด้วยการเลื่อนแผ่นงานใน Excel
• จะรวมเซลล์และจัดรูปแบบเซลล์ใน Excel ได้อย่างไร?
• วิธีลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกไว้ใน Excel