Value

構文
Range.Value( [RangeValueDataType] )
Range.Value( [RangeValueDataType] ) = 設定値
引数
RangeValueDataType(xlRangeValueDataType
セル範囲の値のデータ型を指定します。
戻値

定数一覧

xlRangeValueDataType

名前説明
xlRangeValueDefault10Rangeオブジェクトが空の場合はEmpty値が返されます。Rangeオブジェクトに複数のセルが含まれているときは値の配列が返されます。
xlRangeValueXMLSpreadsheet11指定したXMLスプレッドシート形式のRangeオブジェクトの値、書式設定、数式、名前を返します。
xlRangeValueMSPersistXML12指定したXML形式のRangeオブジェクトのレコードセットの表示を返します。
CONST xlRangeValueDefault = 10 CONST xlRangeValueXMLSpreadsheet = 11 CONST xlRangeValueMSPersistXML = 12

プログラム実行例

アクティブセルに文字列を入力する

DIM Excel = CREATEOLEOBJ("Excel.Application") Excel.Visible = TRUE Excel.Workbooks.Add() DIM Range = Excel.Application.ActiveCell SLEEP(1.000) Range.Value = "abc" SLEEP(3.000) Excel.Application.DisplayAlerts = FALSE Excel.Quit

日付の連続データを入力する*

A1セルに「2021/01/01」と入力し、行方向に1日ずつ加算し2021/12/31まで入力します。

A1セルに「2021/01/01」と入力し、[フィル]→[連続データの作成]で範囲を行、種類を日付、増加単位を日、増分値を1、停止値を2021/12/31と設定するのと同様です。

CONST xlCols = 2 CONST xlChronological = 3 CONST xlDay = 1 WITH EXCEL.Range("A1") .Value = "2021/01/01" .DataSeries(xlCols, xlChronological, xlDay, 1, "2021/12/31") .EntireColumn.AutoFit ENDWITH

1〜12月の連続データを作成*

WITH EXCEL.Range("A1") .Value = "1月" .AutoFill(.Resize(12)) ENDWITH

2ヶ月毎の連続データを入力*

CONST xlColumns = 2 CONST xlChronological = 3 CONST xlMonth = 3 WITH EXCEL.Range("A1") .Value = "2021/01/01" .DataSeries(xlColumns, xlChronological, xlMonth, 2, "2021/12/31") .EntireColumn.AutoFit ENDWITH

DIM Excel = ExcelBoot() WITH Excel.Range("E5") FOR r = -3 TO 3 FOR c = -3 TO 3 DIM Range = .Offset(r, c) Range.Value = "(" + r + ", " + c + ")" IF r = 0 AND c = 0 THEN Range.Value = "基準セル" NEXT NEXT ENDWITH ////////////////////////////////////////////////// // 【引数】 // // 【戻値】 // Excelオブジェクト ////////////////////////////////////////////////// FUNCTION ExcelBoot() DIM Excel = CREATEOLEOBJ("Excel.Application") Excel.Visible = TRUE Excel.Workbooks.Add RESULT = Excel FEND
結果