Page 1 of 1
การย่อโค้ด VBA
Posted: Thu Oct 18, 2012 9:48 pm
by 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
และถ้าย่อได้มีเทคนิคหรือหลักการอย่างไร รบกวนด้วยนะครับ ขอบคุณครับ
Re: การย่อโค้ด VBA
Posted: Thu Oct 18, 2012 10:02 pm
by 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
Re: การย่อโค้ด VBA
Posted: Thu Oct 18, 2012 10:09 pm
by 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
Re: การย่อโค้ด VBA
Posted: Thu Oct 18, 2012 10:33 pm
by tutape
ผมว่ายากและยุ่งเอาการ ได้ไขข้อสงสัยแล้วว่าทำได้ แต่ได้รู้ว่ายากสำหรับมือใหม่ ขอบคุณครับ