Range

タグ:
構文
Range = Application.Range( Cells1, [Cells2] )
引数
Cells1
範囲を指定します。範囲名には、範囲を表す演算子「:」、共通部分を表すスペース「 」、または複数の範囲を表す演算子「,」を使うことができます。
Cells2
セル範囲の左上隅と右下隅のセルを指定します。
戻値
Rangeオブジェクト

プログラム実行例

セルに文字列を入力(A1形式)

DIM EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.Visible = TRUE

ID = GETID("Microsoft Excel")
CTRLWIN(ID, ACTIVATE)

EXCEL.Workbooks.Add()
EXCEL.Range("A1").Value = "UWSC"

//EXCEL.DisplayAlerts = FALSE
//EXCEL.Quit
  1. CREATEOLEOBJ
  2. Excel.Application.Visible
  3. GETID
  4. CTRLWIN
  5. Excel.Workbooks.Add
  6. Excel.Application.Range
  7. Excel.Range.Value
  8. Excel.Application.DisplayAlerts
解説
  1. 1-2行目
    DIM EXCEL = CREATEOLEOBJ("Excel.Application")
    EXCEL.Visible = TRUE
    
    Excelを起動する。
  2. 4-5行目
    ID = GETID("Microsoft Excel")
    CTRLWIN(ID, ACTIVATE)
    
    Excelをアクティブ化する。
  3. 7行目
    EXCEL.Workbooks.Add()
    
    新規ブックの作成。
  4. 8行目
    EXCEL.Range("A1").Value = "UWSC"
    
    セルA1に「UWSC」と代入。
  5. 10行目
    //EXCEL.DisplayAlerts = FALSE
    
    終了時に確認メッセージを表示しない。
  6. 11行目
    //EXCEL.Quit
    
    Excelを終了する。

上位3位

上位3位まで赤文字にする。

使ったファイルのダウンロードは下記リンクからできます。

DIM Excel = ExcelBoot("都道府県別人口.csv")

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

//////////////////////////////////////////////////
// 【引数】
//   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. ExcelBoot
  2. Excel.Range.EntireColumn.AutoFit
  3. Excel.Application.Range
  4. Excel.Application.Cells
  5. Excel.Range.FormatConditions
  6. Excel.FormatConditions
  7. Excel.FormatConditions.AddTop10
  8. Excel.Top10.Rank
  9. Excel.Top10.TopBottom
  10. Excel.Top10.Font
  11. Excel.Font.Color
  12. Excel.Font.Bold
結果

セルの指定例

入力例 説明
Range(“A1”) セルA1
Range(“A1,B2”) セルA1とセルB2
Range(“A1:B2”) セル範囲A1:B2
Range(“A1”, “B2”) セル範囲A1:B2
Range(“A1:B2,C3:D4”) セル範囲A1:B2とセル範囲C3:D4
Range(“1:3”) 行1~行3
Range(“A:C”) 列A~列C