Calculation
Application.Calculation = xlManual
ปรับระบบการคำนวณเป็น Manual เพื่อหยุดการคำนวณชั่วคราว
Application.Calculation = xlAutomatic
ปรับระบบการคำนวณเป็น Automatic
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
Workbooks.Open "suchAndSuch.xls"
เปิดแฟ้มชื่อ suchAndSuch.xls
Workbooks.Open Sheets("sheet1").Range("A1").Value
เปิดแฟ้มที่มีชื่อตามที่บันทึกชื่อไว้ในเซลล์ A1 ของ Sheet1
ThisWorkbook.Close
ปิดแฟ้มที่เก็บรหัสที่ทำงานนี้
ThisWorkbook.Saved = True
ThisWorkbook.Close
ปิดแฟ้มที่เก็บรหัสที่ทำงานนี้โดยไม่ต้อง save
ActiveWorkbook.Close
ปิดแฟ้มที่กำลังใช้งานนี้
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
ปิดแฟ้มที่กำลังใช้งานนี้โดยไม่ต้อง save
Workbooks("Book1.xls").Close
ปิดแฟ้มชื่อ Book1.xls
Workbooks(Range("A1").Value).Close
ปิดแฟ้มชื่อตามที่ระบุไว้ในเซลล์ A1
ActiveWorkbook.Save
save แฟ้มที่กำลังใช้งาน
Workbooks("Book1.xls").Save
save แฟ้มชื่อ Book1.xls
Workbooks(Range("A1").Value).Save
save แฟ้มที่มีชื่อตามที่ระบุไว้ในเซลล์ A1
ActiveWorkbook.SaveAs "C:/suchAndSuch.xls"
save แฟ้มที่กำลังใช้งานตามชื่อและสถานที่เก็บตามต้องการ
Workbooks("Book1.xls").SaveAs "C:/suchAndSuch.xls"
save แฟ้มชื่อ Book1.xls ตามชื่อและสถานที่เก็บตามต้องการ
Kill "C:\myFile.xls"
ลบแฟ้มชื่อ myfile.xls ที่เก็บอยู่ใน Drive C
Worksheet
Sheets("Sheet1").Visible= xlVeryHidden
hide ชีทแรกแบบพิเศษ เพื่อทำให้หาจากเมนู Format > Sheet ไม่พบ
Sheets(Array("Sheet1", "Sheet2")).Select
เลือกชีทหลายชีทตามชื่อที่กำหนดพร้อมกัน
ActiveWindow.SelectedSheets.Visible = False
ซ่อนชีทที่เลือกไว้ทั้งหมดพร้อมกัน
Sheets("Balance").Delete
ลบชีทชื่อ Balance
Sheets.Add
insert ชีท 1 ชีท
Sheets.Add before:=Sheets("Balance")
insert ชีท 1 ชีท ไว้ก่อนชีทชื่อ Balance
Sheets.Add after:=Sheets(1)
insert ชีท 1 ชีท ไว้หลังชีทแรก
Sheets.Add After:=Sheets(Sheets.Count)
insert ชีท 1 ชีท ไว้หลังชีทสุดท้าย
Cell และ Range
Cells.Select
เลือกทุกเซลล์ในตาราง
Selection.CurrentRegion.Select
เลือกพื้นที่ตารางที่ติดต่อกันกับเซลล์ที่เลือกอยู่
Activecell.Row
Activecell.Column
คืนค่าเป็นเลขที่ของ row/column ของเซลล์ที่ใช้งานอยู่
Selection.Rows.Count
Selection.Columns.Count
คืนค่าเป็นจำนวน row/column ของตารางที่เลือก
Selection.CurrentRegion.Rows.Count
คืนค่าเป็นจำนวน row ของพื้นที่ตารางที่ติดต่อกันกับเซลล์ที่เลือกอยู่
Range("A1:A8").Formula = "=C8+C9"
สร้างสูตร =C8+C9, =C9+C10 และต่อไป ลงไปในเซลล์ A1:A8
Range("A1:A8").Formula = "=$C$8+$C$9"
สร้างสูตร =$C$8+$C$9 ลงไปในทุกเซลล์ของ A1:A8
Range("A8:G8").Select
เลือกพื้นที่ตาราง A8:G8 โดย A8 เป็นเซลล์เดียวที่ active
