รหัส VBA ที่น่าสนใจจาก www.Excel-VBA.com

Calculation

1. Application.Calculation = xlManual
   ปรับระบบการคำนวณเป็น Manual เพื่อหยุดการคำนวณชั่วคราว
2. Application.Calculation = xlAutomatic
   ปรับระบบการคำนวณเป็น Automatic
   
3. Activesheet.Calculate
   สั่งคำนวณเฉพาะชีทที่กำลังใช้งานอยู่

CutCopyMode

• Application.CutCopyMode=False
  ล้างหน่วยความจำใน clipboard เพื่อลดภาระของเครื่อง

GoTo

• Application.Goto Reference:=Range("V300")
  หรือ
  Range("V300").Select
  หรือ
  Application.Goto Reference:=Range("V300"), Scroll=True
  เพื่อทำให้เซลล์ที่ถูกเลือกเป็นเซลล์แรกซ้ายบนสุดของจอ

Quit : ปิดโปรแกรม Excel

• Application.Quit

ScreenUpdating

• Application.ScreenUpdating = False
  Application.ScreenUpdating = True
  ควบคุมไม่ให้รหัสที่อยู่ระหว่างคำสั่ง 2 บรรทัดนี้ แสดงการเปลี่ยนแปลงใดๆให้เห็นบนหน้าจอ

Workbook

1. Workbooks.Open "suchAndSuch.xls"
   เปิดแฟ้มชื่อ suchAndSuch.xls
2. Workbooks.Open Sheets("sheet1").Range("A1").Value
   เปิดแฟ้มที่มีชื่อตามที่บันทึกชื่อไว้ในเซลล์ A1 ของ Sheet1
3. ThisWorkbook.Close
   ปิดแฟ้มที่เก็บรหัสที่ทำงานนี้
4. ThisWorkbook.Saved = True
   ThisWorkbook.Close
   ปิดแฟ้มที่เก็บรหัสที่ทำงานนี้โดยไม่ต้อง save
5. ActiveWorkbook.Close
   ปิดแฟ้มที่กำลังใช้งานนี้
6. ActiveWorkbook.Saved = True
   ActiveWorkbook.Close
   ปิดแฟ้มที่กำลังใช้งานนี้โดยไม่ต้อง save
7. Workbooks("Book1.xls").Close
   ปิดแฟ้มชื่อ Book1.xls
8. Workbooks(Range("A1").Value).Close
   ปิดแฟ้มชื่อตามที่ระบุไว้ในเซลล์ A1
9. ActiveWorkbook.Save
   save แฟ้มที่กำลังใช้งาน
10. Workbooks("Book1.xls").Save
    save แฟ้มชื่อ Book1.xls
11. Workbooks(Range("A1").Value).Save
    save แฟ้มที่มีชื่อตามที่ระบุไว้ในเซลล์ A1
12. ActiveWorkbook.SaveAs "C:/suchAndSuch.xls"
    save แฟ้มที่กำลังใช้งานตามชื่อและสถานที่เก็บตามต้องการ
13. Workbooks("Book1.xls").SaveAs "C:/suchAndSuch.xls"
    save แฟ้มชื่อ Book1.xls ตามชื่อและสถานที่เก็บตามต้องการ
14. Kill "C:\myFile.xls"
    ลบแฟ้มชื่อ myfile.xls ที่เก็บอยู่ใน Drive C

Worksheet

1. Sheets("Sheet1").Visible= xlVeryHidden
   hide ชีทแรกแบบพิเศษ เพื่อทำให้หาจากเมนู Format > Sheet ไม่พบ
2. Sheets(Array("Sheet1", "Sheet2")).Select
   เลือกชีทหลายชีทตามชื่อที่กำหนดพร้อมกัน
3. ActiveWindow.SelectedSheets.Visible = False
   ซ่อนชีทที่เลือกไว้ทั้งหมดพร้อมกัน
4. Sheets("Balance").Delete
   ลบชีทชื่อ Balance
5. Sheets.Add
   insert ชีท 1 ชีท
6. Sheets.Add before:=Sheets("Balance")
   insert ชีท 1 ชีท ไว้ก่อนชีทชื่อ Balance
7. Sheets.Add after:=Sheets(1)
   insert ชีท 1 ชีท ไว้หลังชีทแรก
8. Sheets.Add After:=Sheets(Sheets.Count)
   insert ชีท 1 ชีท ไว้หลังชีทสุดท้าย

Cell และ Range

1. Cells.Select
   เลือกทุกเซลล์ในตาราง
2. Selection.CurrentRegion.Select
   เลือกพื้นที่ตารางที่ติดต่อกันกับเซลล์ที่เลือกอยู่
3. Activecell.Row
   Activecell.Column
   คืนค่าเป็นเลขที่ของ row/column ของเซลล์ที่ใช้งานอยู่
4. Selection.Rows.Count
   Selection.Columns.Count
   คืนค่าเป็นจำนวน row/column ของตารางที่เลือก
5. Selection.CurrentRegion.Rows.Count
   คืนค่าเป็นจำนวน row ของพื้นที่ตารางที่ติดต่อกันกับเซลล์ที่เลือกอยู่
6. Range("A1:A8").Formula = "=C8+C9"
   สร้างสูตร =C8+C9, =C9+C10 และต่อไป ลงไปในเซลล์ A1:A8
7. Range("A1:A8").Formula = "=$C$8+$C$9"
   สร้างสูตร =$C$8+$C$9 ลงไปในทุกเซลล์ของ A1:A8
8. Range("A8:G8").Select
   เลือกพื้นที่ตาราง A8:G8 โดย A8 เป็นเซลล์เดียวที่ active