オートフィルマクロで作り、パラメータを変数にす方法

質問

EXCEL2007にて
textBoxに入力された値を
オートフィルのパラメータに指定したいのですが、
どのように記述すれば良いかわかりません。

Dim a As Integer
a = TextBox.Text

この変数aをオートフィルのパラメータにするにはどうすれ良いでしょうか？
TextBoxに"10"と入力した場合、
A1：A１０までオートフィルするためのマクロです。

..........｜A｜B｜C
.....1..｜10
.....2..｜10
.....3..｜10
.....4..｜　
.....5..｜
.....6..｜
.....7..｜

初心者のため説明不足で申し訳ないのですが、
よろしくお願いいたします。

回答No.3

tom04 · ベストアンサー

こんばんは！
外していたらごめんなさい。

テキストボックスに仮に10と入れ、マクロを実行するとA1セルをA10セルまでオートフィル、
テキストボックスが20であればA1セルをA20セルまでオートフィル！
という解釈で良いのですかね？

もしそうであれば一例です。

Dim a As Integer
a = TextBox.Value
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A" & a)

こんなんではどうでしょうか？

的外れならごめんなさいね。m(_ _)m

お礼

ありがとうございました。
まさに求めていた記述です。
思ったような結果がえられました。

回答No.4

keithin

ん？　そういう意味ですか。

では
＞オートフィル

とは，具体的にどういう操作を考えたのですか。

ご質問で掲示されているのは単に「Ａ１を１０個コピーする」ですが，それなら

private sub commandbutton1_click()
worksheets("シート名").range("A1").resize(me.textbox1, 1).filldown
end sub

といった具合です

エクセルの操作としての「オートフィル」なら
private sub commandbutton1_click()
worksheets("シート名").range("A1").resize(me.textbox1, 1).dataSeries type:=xlautofill
end sub
といった具合になります。

Ａ１セルにたとえば「A1」などのように記入してあった時の結果が違いますが，具体的にどういう使い方を考えているのかに応じて，適切なマクロを選んで使ってください。

お礼

説明不足ですいませんでした。
説明では範囲内に同じ１０の値を入力する作業のみえますが、求めていたのは下記でご説明くださった、１０、１１，１２　のようになるプログラムです。
無事できました。ありがとうございました。

回答No.2

imogasi

大げさに、オートフィルといわなくても良いのでは。
Ａ１：Ａ１０に同じ値を入れるなら
Sub test01()
Range("A1:A10") = 10
End Sub
この10をＴｅｘｔＢｏｘ１．Ｖａｌｕｅで代替して使えば良い。
Range("A1:A10") = ＴｅｘｔＢｏｘ１．Ｖａｌｕｅ
こんなことのためにテキストボックスを持ち出す必要あるのかな。ＩｎｐｕｔＢｏｘで十分では。
ーー
それともれんぞくデータの作成のことか。
操作をしてマクロの記録を採れば仕舞い。
ーー
前記だってＡ１：Ａ１０を範囲指定。数式バー部に１０と入れてＣＴＲＬを押しながら、ＥＮＴＥＲでマクロの記録が採れる。
ＶＢＡをやるといってもエクセルのことを知らないとだめ。
初心者なら、まずマクロの記録を活用を考えること。

回答No.1

keithin

worksheets("シート名").range("A1:A10").value = me.textbox1.value
などのように。