การย่อโค้ด VBA

[tutape]

อ. ครับ ผมอยากทราบว่าโค้ด VBA ที่เราเขียนขึ้น หรืออาจจะได้จากการบันทึกแมโคร เราสามารถย่อให้สั้นลง เหลือเพียงไม่กี่บันทัดได้ หรือเปล่า โดยที่ไม่ทำให้คำสั่งเกิดการเปลี่ยนแปลงไป ผมยกตัวอย่างเช่นโค้ด ต่อไปนี้

Code: Select all

Sub ค1()
    Range("D11").Select
    Sheets("kd11").Select
    Columns("X:XFD").Select
    Selection.EntireColumn.hidden = False
    Columns("A:N").Select
    Range("N1").Activate
    Selection.EntireColumn.hidden = False
    Columns("L:L").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.hidden = True
    Range("G9").Select
End Sub

และถ้าย่อได้มีเทคนิคหรือหลักการอย่างไร รบกวนด้วยนะครับ ขอบคุณครับ

[nattasiray]

สามารถกระทำได้ โดยเราใช้การประมวลการทำงานของรหัสแบบทีละขั้น พร้อมกับการสังเกตผลที่เกิดขึ้นที่หน้าต่างโปรแกรมไมโครซอฟต์เอ็กเซล

ผมแนะนำให้คุณกดแป้น Alt+F8 เพื่อเรียกกรอบโต้ตอบ Macro
คลิกเลือกแมโครที่ต้องการ
คลิกปุ่ม Edit เพื่อเข้าสู่หน้าต่าง VBE ณ แมโครที่ต้องการตรวจสอบ
ย่อหน้าต่าง VBE ให้เลือก 1 ใน 3 ของแนวนอน
กดแป้น F8 ทีละครั้งพร้อมสังเกตความเปลี่ยนแปลงที่เกิดขึ้น

ถ้าการประมวลรหัสในบรรทัดก่อนหน้ากับการประมวลผลรหัสในบรรทัดปัจจุบันเกิดขึ้นที่กลุ่มเซลล์เดียวกัน (เช่นบรรทัดก่อนหน้ามีคำว่า Select บรรทัดปัจจุบันมีคำว่า Selection) ก็ให้ยุบได้

Code: Select all

Sub HiddenColumnAndUnhiddenColumn()
    application.goto Reference:=Worksheets("kd11").Range("G9")
    Columns("A:N,X:XFD").hidden = False
    Range(range("L1"), range("L1").End(xlToRight)).EntireColumn.hidden = True
End Sub

[snasui]

การจะย่อได้จะต้องเข้าใจ VBA ค่อนข้างดีครับ สำหรับผู้เริ่มใช้งานไม่จำเป็นต้องรีบร้อนที่จะทำ Code สั้น ๆ ให้เรียนรู้ให้เข้าใจตาม Code ไปก่อน เมื่อคล่องแล้วจะสามารถย่อ Code ได้เอง และหากคล่องมาก ๆ ก็ไม่ต้องบันทึก Macro หรือบันทึกก็น้อยลงมาก เพราะสามารถเขียนเองได้เลยโดยไม่ต้องพึ่งการบันทึก Macro นอกจากที่คุณณัฐศิระแนะนำมาแล้ว ด้านล่างเป็นอีกตัวอย่างที่จะย่อ Code ให้สั้นลงในแบบของ VBA ครับ

Code: Select all

Sub Test()
    With Sheets("kd11")
        .Range("A:N").EntireColumn.Hidden = False
        .Range("L1", .Range("L1").End(xlToRight)) _
            .EntireColumn.Hidden = True
    End With
End Sub

[tutape]

ผมว่ายากและยุ่งเอาการ ได้ไขข้อสงสัยแล้วว่าทำได้ แต่ได้รู้ว่ายากสำหรับมือใหม่ ขอบคุณครับ