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