本ページには広告が含まれています。
目次
作業中のワークシートのすべてのセルを表すRange オブジェクトを返します。
- 構文
- Range = Application.Cells.[_Default]( [rowIndex, columnIndex] )
- 既定プロパティ
- Application.Cells プロパティ
- 引数
- rowIndex 省略可
- 行番号を表す数値を指定する
- columnIndex 省略可
- 列番号を表す数値を指定する
- 戻り値
- Range オブジェクト
Application オブジェクトを返すメソッド・プロパティ
- Application.Cells プロパティ
- Microsoft Excelアプリケーションを表すApplication オブジェクトを返します。
プログラム実行例
セルに文字列を入力（R1C1形式）
DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)
Excel.Workbooks.Add()
Excel.Cells(1, 1).Value = "UWSC"
// Excel.DisplayAlerts = FALSE
// Excel.Quit使用関数
解説
気象庁のホームページから一月分の気温を取得し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結果
使用関数
人口の上位3位取得
上位3位まで赤文字にする。
使ったファイルのダウンロードは下記リンクからできます。
[download "/example/510/都道府県別人口.xlsx"]DIM Excel = ExcelBoot("都道府県別人口.xlsx")
CONST xlDown = -4121
CONST xlTop10Top = 1
WITH Excel
.Range("A:E").EntireColumn.AutoFit
FOR col = 3 TO 5
DIM Top10 = .Range(.Cells(2, col), .Cells(48, col)).FormatConditions.AddTop10
WITH Top10
.Rank = 3
.TopBottom = xlTop10Top
.Font.Color = 255
.Font.Bold = TRUE
ENDWITH
NEXT
ENDWITH結果
使用関数
既定プロパティ
Application.Cells プロパティはRange オブジェクトの既定プロパティなので、Cellsの引数にItemプロパティの引数であるrowIndex,columnIndexを直接指定することができます。
Cellsの記述例
| 例 | 説明 |
|---|---|
| Cells(1, 2) | B1セル |
| Cells(2, "C") | C2セル |
| Cells | セル全体 |
| Cells.Item(3, 4) | D3セル |
関連記事
- Range オブジェクト
- セル、行、列、連続した1つ以上のセル範囲を表します。
- Application.ActiveCell プロパティ (Excel)
- セルまたはセル範囲を表すRangeオブジェクトを返します。
- Range.Activate メソッド (Excel)
- 1つのセルをアクティブにします。セルは現在の選択範囲内にある必要があります。セルの範囲を選択するには、Selectメソッドを使用します。
- Range.AutoFill メソッド (Excel)
- 指定された対象セル範囲内のセルに対してオートフィルを実行します。
- Range.AutoFilter メソッド (Excel)
- オートフィルターを使ってリストをフィルター処理します。
- Range.ClearComments メソッド (Excel)
- 指定されたセル範囲からすべてのコメントを消去します。
- Range.ClearHyperlinks メソッド (Excel)
- 指定された範囲からすべてのハイパーリンクを削除します。
- Range.Copy メソッド (Excel)
- 範囲を、指定の範囲またはクリップボードにコピーします。
- Range.DiscardChanges メソッド (Excel)
- 編集されたセル範囲内のすべての変更を破棄します。
- Range.NumberFormatLocal プロパティ (Excel)