Select

オブジェクトを選択します。

構文
Range.Select
引数
戻値

プログラム実行例

A列の最終行から上方向の終端セルを選択*

CONST xlUp = -4162

Excel.Cells(Rows.Count, 1).End(xlUp).Select
  1. Excel.Range.End
  2. Excel.Range.Select

1行目の最終列から左方向の終端セルを選択*

CONST xlToLeft = -4159

Excel.Cells(1, Columns.Count).End(xlToLeft).Select
  1. Excel.Range.End
  2. Excel.Range.Select

A1セルから右下方向の終端セルを選択*

A1セルが表の先頭であり空白データがない場合、表の右下のセルを選択できます。

CONST xlDown = -4121
CONST xlToRight = -4161

Excel.Range("A1").End(xlDown).End(xlToRight).Select
  1. Excel.Range.End
  2. Excel.Range.Select

先頭列の固定*

Excel.Range("B1").Select
Excel.ActiveWindow.FreezePanes = TRUE
  1. Excel.Range.Select
  2. Excel.Window.FreezePanes

先頭行の固定*

Excel.Range("A2").Select
Excel.ActiveWindow.FreezePanes = TRUE
  1. Excel.Range.Select
  2. Excel.Window.FreezePanes

アクティブセル領域を含む表を選択*

DIM path = "東京月別平均気温(2000-2019年).xlsx"
DIM Excel = ExcelBoot(path)

Excel.Range("B4").CurrentRegion.Select

//////////////////////////////////////////////////
// 【引数】
//   path : 開くファイルのパス名 
// 【戻値】
//   Excelオブジェクト 
//////////////////////////////////////////////////
FUNCTION ExcelBoot(path = "")
	DIM Excel = CREATEOLEOBJ("Excel.Application")
	Excel.Visible = TRUE
	IFB path = "" THEN
		Excel.Workbooks.Add
	ELSE
		DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
		IFB FSO.GetParentFolderName(path) = "" THEN
			path = GET_CUR_DIR + "\" + path
		ENDIF
		Excel.Workbooks.Open(path)
	ENDIF
	RESULT = Excel
FEND
  1. Excel.Range.CurrentRegion
  2. Excel.Range.Select
結果