CurrentRegion

タグ:

現在の領域を表すRangeオブジェクトを返します。現在の選択範囲は、空白の行と空白の列の任意の組み合わせで囲まれた範囲です。読み取り専用です。CtrlShiftCtrl)を押すのと同様です。

構文
Range = Range.CurrentRegion
引数
戻値
現在の領域を表すRangeオブジェクト

プログラム実行例

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

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
結果