string(33) "Range.End プロパティ (Excel)" Range.End プロパティ (Excel) | UWSC辞典

End

対象セル範囲の領域における終端のRangeオブジェクトへの参照を返します。「[End] + 矢印キー」を押す操作と同等です。

構文
Range = Range.End( Direction )
引数
Direction
移動する方向です。XlDirection定数。
戻り値

定数一覧

XlDirection 列挙

名前説明
xlUp-4162上へ
xlToRight-4161右へ
xlToLeft-4159左へ
xlDown-4121下へ
CONST xlUp = -4162
CONST xlToRight = -4161
CONST xlToLeft = -4159
CONST xlDown = -4121

プログラム実行例

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でグラフを作成

CONST xlUp = -4162
CONST xlLineMarkers = 65

DIM year = 2020
DIM month = 8

DIM IE = IEBoot()
IE.Navigate("https://www.data.jma.go.jp/obd/stats/etrn/view/daily_s1.php?prec_no=14&block_no=47412&year=" + year + "&month=" + month + "&day=&view=p1")
BusyWait(IE)

DIM array[-1][-1]
DIM element = IE.document.getElementById("tablefix1")
getTableData(element, array)

IE.Quit

DIM Excel = XLOPEN()
DIM SheetName = Excel.ActiveSheet.Name

XLSETDATA(Excel, array, "A1")

DIM row = Excel.Cells(Excel.Rows.Count, 1).End(xlUp).Row
DIM Charts = Excel.Charts.Add

WITH Charts
	.ChartType = xlLineMarkers
	.SeriesCollection.NewSeries
	.HasTitle = TRUE
	.ChartTitle.Text = "札幌 " + year + "年" + month + "月気温"

	WITH .FullSeriesCollection(1)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$H$5:$H$35"
		WITH .Format
			.Fill.ForeColor.RGB = 255
			.Line.ForeColor.RGB = 255
		ENDWITH
	ENDWITH

	WITH .FullSeriesCollection(2)
		.XValues = "=Sheet1!$A$5:$A$35"
		.Name = "=<#DBL>最高気温<#DBL>"
		.Values = "=Sheet1!$I$5:$I$35"
		WITH .Format
			.Fill.ForeColor.RGB = 16711680
			.Line.ForeColor.RGB = 16711680
		ENDWITH
	ENDWITH
ENDWITH
  1. IEBoot
  2. IE.Navigate
  3. BusyWait
  4. document.getElementById
  5. getTableData
  6. XLOPEN
  7. Excel.Application.ActiveSheet
  8. Excel.WorkSheet.Name
  9. XLSETDATA
  10. Excel.Application.Cells
  11. Excel.Range.End
  12. Excel.Range.Row
  13. Excel.Application.Charts
  14. Excel.Sheets.Add
  15. Excel.Charts
  16. Excel.Chart.ChartType
  17. Excel.Chart.SeriesCollection
  18. Excel.SeriesCollection.NewSeries
  19. Excel.Series
  20. Excel.Chart.HasTitle
  21. Excel.Chart.ChartTitle
  22. Excel.ChartTitle.Text
  23. Excel.Chart.FullSeriesCollection
  24. Excel.FullSeriesCollection
  25. Excel.FullSeriesCollection.Item
  26. Excel.Series.XValues
  27. Excel.Series.Name
  28. Excel.Series.Values
  29. Excel.Series.Format
  30. Excel.FillFormat.ForeColor
  31. Excel.ColorFormat.RGB
  32. Excel.LineFormat.FontColor
結果

Was this post helpful?