VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

AutoFill メソッドを使ってセルに連続してデータを入力する(VB6.0 基本編) ( No.25 ) 　[親スレッドへ]

日時： 2013/05/22 15:08
名前： VBレスキュー(花ちゃん): ***********************************************************************************
* カテゴリー：[エクセル][][]                                                      *
* キーワード：Excel VBA,オートフィル,セルに連続してデータを入力する,セル操作,　　*
***********************************************************************************

http://hanatyan.sakura.ne.jp/patio/read.cgi?mode=view2&f=319&no=32
上記リンクの VB2010 から Excel のセルに関する操作、1行 Tips 集その１(VB.NET) ( No.32 ) の
15．AutoFill メソッドを使ってセルに連続してデータを入力するをVB6.0 用に書き換えた分です

http://www.hanatyan.sakura.ne.jp/vb6/excel02.htm
VBからExcelを起動・終了する(基本操作部分) のコードを使ってExcelを起動・終了して下さい。

上記のコードに下記コードを追加してして試して見て下さい。

Private Sub Command3_Click()
    Dim xlRange As Excel.Range
    Dim xlRange1 As Excel.Range
    Set xlRange = xlSheet.Range("A1")
    xlRange.Value = "1月"
    Set xlRange1 = xlSheet.Range("A1:L1")
    'セル A1 ~ L1 まで、1月～ 12月と入力します。
    xlRange.AutoFill Destination:=xlRange1, Type:=xlFillMonths
End Sub

※ 今後のサンプルは、上記同様にして試して下さい。