AutoFill

指定された対象セル範囲内のセルに対してオートフィルを実行します。

構文
Range.AutoFill( Destination, Type )
引数
Destination
オートフィルの書き込み先になるRangeオブジェクトを指定します。基準となるデータの入ったセル範囲も含むようにします。
Type
オートフィルの種類を指定します。
戻り値

Range オブジェクトを返す可能性のあるメソッド・プロパティ

Range.AutoFill メソッド (Excel)
AutoFill (Excel)
Application.Cells プロパティ (Excel)
Range.Find メソッド (Excel)
Range.SpecialCells メソッド (Excel)
Range.Columns プロパティ (Excel)
Range.CurrentRegion プロパティ (Excel)
Range.End プロパティ (Excel)
Range.EntireColumn プロパティ (Excel)
Range.EntireRow プロパティ (Excel)
Range.Item プロパティ (Excel)
Range.Offset プロパティ (Excel)
Range.Resize プロパティ (Excel)
Range.Rows プロパティ (Excel)

定数一覧

XlAutoFillType 列挙

名前説明
xlFillDefault0Excel が決定(既定値)
xlFillCopy1値と形式
xlFillSeries2連続する数値
xlFillFormats3書式のみ
xlFillValues4値のみ
xlFillDays5曜日名
xlFillWeekdays6平日の名前
xlFillMonths7
xlFillYears8
xlLinearTrend9加算による連続データ
xlGrowthTrend10乗算による連続データ
xlFlashFill11前のユーザーアクションの検出された
パターンに基づいた値(Excel 2013 以降)
CONST xlFillDefault = 0
CONST xlFillCopy = 1
CONST xlFillSeries = 2
CONST xlFillFormats = 3
CONST xlFillValues = 4
CONST xlFillDays = 5
CONST xlFillWeekdays = 6
CONST xlFillMonths = 7
CONST xlFillYears = 8
CONST xlLinearTrend = 9
CONST xlGrowthTrend = 10
CONST xlFlashFill = 11

プログラム実行例

ユーザー設定リストを作成(都道府県)

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM array[] = "北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", "茨城県", "栃木県", "群馬県", + _
				"埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", + _
				"岐阜県", "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", "奈良県", "和歌山県", + _
				"鳥取県", "島根県", "岡山県", "広島県", "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", + _
				"佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県"

Excel.AddCustomList(SLICE(array))

WITH Excel.Range("A1")
	.Value = array[0]
	.AutoFill(.Resize(47))
ENDWITH

//Excel.Quit
  1. Excel.Application.AddCustomList
  2. Excel.Range.AutoFill

ユーザー設定リストを作成(十干十二支)

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM array[] = "甲子", "乙丑", "丙寅", "丁卯", "戊辰", "己巳", "庚午", "辛未", "壬申", "癸酉", + _
				"甲戌", "乙亥", "丙子", "丁丑", "戊寅", "己卯", "庚辰", "辛巳", "壬午", "癸未", + _
				"甲申", "乙酉", "丙戌", "丁亥", "戊子", "己丑", "庚寅", "辛卯", "壬辰", "癸巳", + _
				"甲午", "乙未", "丙申", "丁酉", "戊戌", "己亥", "庚子", "辛丑", "壬寅", "癸卯", + _
				"甲辰", "乙巳", "丙午", "丁未", "戊申", "己酉", "庚戌", "辛亥", "壬子", "癸丑", + _
				"甲寅", "乙卯", "丙辰", "丁巳", "戊午", "己未", "庚申", "辛酉", "壬戌", "癸亥"

Excel.AddCustomList(SLICE(array))

WITH Excel.Range("A1")
	.Value = array[0]
	.AutoFill(.Resize(60))
ENDWITH

//Excel.Quit
  1. Excel.Application.AddCustomList
  2. Excel.Range.AutoFill

ユーザー設定リストを作成(12星座)

DIM Excel = CREATEOLEOBJ("Excel.Application")
Excel.Visible = TRUE
Excel.Workbooks.Add()

DIM array[] = "おひつじ座", "おうし座", "ふたご座", "かに座", "しし座", "おとめ座", "てんびん座", "さそり座", "いて座", "やぎ座", "みずがめ座", "うお座"
// DIM array[] = "牡羊座", "牡牛座", "双子座", "蟹座", "獅子座", "乙女座", "天秤座", "蠍座", "射手座", "山羊座", "水瓶座", "魚座"

Excel.AddCustomList(SLICE(array))

WITH Excel.Range("A1")
	.Value = array[0]
	.AutoFill(.Resize(12))
ENDWITH

//Excel.Quit
  1. Excel.Application.AddCustomList
  2. Excel.Range.AutoFill

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

WITH Excel.Range("A1")
	.Value = "1月"
	.AutoFill(.Resize(12))
ENDWITH
  1. Excel.Range
  2. Excel.Range.Value
  3. Excel.Range.AutoFill
  4. Excel.Range.Resize