連続データを入力する(AutoFill メソッド)
AutoFill メソッド
Excel で、連続するデータを入力する「オートフィル」機能を VBA で実行します。
【書式】
object.AutoFill ( destination [, type ] )
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- destination ・・・ 連続データの書き込み先となるセル範囲(Range オブジェクト)を指定します(省略不可)。
- type ・・・ オートフィルの種類を表す XlAutoFillType 列挙型 の定数またはその値を指定します(省略可能)。
名前 値 説明 xlFillDefault 0 Excel が決定(既定値) xlFillCopy 1 値と形式 xlFillSeries 2 連続する数値(たとえば、’1, 2′ は ‘3, 4, 5’ となります) xlFillFormats 3 書式のみ xlFillValues 4 値のみ xlFillDays 5 曜日名 xlFillWeekdays 6 平日の名前 xlFillMonths 7 月 xlFillYears 8 年 xlLinearTrend 9 加算による連続データ xlGrowthTrend 10 乗算による連続データ xlFlashFill 11 前のユーザー アクションの検出されたパターンに基づいた値(Excel 2013 以降)
AutoFill メソッド 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Sub Sample_AutoFill() 'Type:省略(Excelが自動判定) Range("A2:A4").AutoFill Destination:=Range("A2:A16") 'Type:連続 Range("B2").AutoFill Destination:=Range("B2:B16"), _ Type:=xlFillSeries 'Type:曜日 Range("C2").AutoFill Destination:=Range("C2:C16"), _ Type:=xlFillDays 'Type:書式のみ Range("D2").AutoFill Destination:=Range("D2:D16"), _ Type:=xlFillFormats 'Type:Excelが自動判定 Range("E3").AutoFill Destination:=Range("E3:E16"), _ Type:=xlFillDefault End Sub |
実行結果
サンプルVBAソース 実行前
実行後
関連記事
-
-
A1参照形式、R1C1参照形式の設定・取得(ReferenceStyle プロパティ)
ReferenceStyle プロパティ ReferenceStyle プロパテ …
-
-
指定した行数・列数移動したセル・セル範囲を参照(Offset プロパティ)
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …
-
-
オートフィルタ(日付・時刻のグループ化)AutoFilter メソッド
グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …
-
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
A1 形式と R1C1 形式を変換、相対参照と絶対参照を変換(ConvertFormula)
ConvertFormula メソッド 数式で参照しているアドレスの相対参照と絶 …
-
-
フリガナの取得(GetPhonetic メソッド)
GetPhonetic メソッド GetPhonetic メソッドは、指定した文 …
-
-
数式を設定・取得する(Formula プロパティ・FormulaR1C1 プロパティ)
Formula プロパティ(FormulaR1C1 プロパティ) Formula …
-
-
対象のセル・セル範囲に数式があるかどうか調べる(HasFormula プロパティ)
HasFormula プロパティ HasFormula プロパティは、対象のセル …
-
-
オートフィルタ(日付フィルタ)AutoFilter メソッド
日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …
-
-
セル・セル範囲を切り取る(Cut メソッド)
Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …