Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10010 / 13644 ツリー ←次へ | 前へ→

【24205】アクティブセルの場所を変数に・・・。 kouka 05/4/15(金) 14:27 質問[未読]
【24208】Re:アクティブセルの場所を変数に・・・。 Jaka 05/4/15(金) 15:56 回答[未読]
【24212】Re:アクティブセルの場所を変数に・・・。 kouka 05/4/15(金) 17:27 質問[未読]
【24217】Re:アクティブセルの場所を変数に・・・。 ウッシ 05/4/15(金) 20:20 回答[未読]
【24270】Re:アクティブセルの場所を変数に・・・。 kouka 05/4/18(月) 11:23 質問[未読]
【24271】Re:アクティブセルの場所を変数に・・・。 Jaka 05/4/18(月) 11:47 回答[未読]
【24282】Re:アクティブセルの場所を変数に・・・。 kouka 05/4/18(月) 14:31 お礼[未読]

【24205】アクティブセルの場所を変数に・・・。
質問  kouka  - 05/4/15(金) 14:27 -

引用なし
パスワード
   こんにちは、koukaです。
わからないので教えてください。

現在選択しているセルの場所の情報(A3とか・・・)を
変数に入れたいのですが、どうしたらいいですか?
変数に入れた後に、その変数を使ってセルを選択した後に、
オートフィルしたいのです。
(例えば、変数1にA3が入っていて、変数2にA5が入っていて、
 A3:A5を選択したいのです。)

すみませんが、よろしくお願いします。

【24208】Re:アクティブセルの場所を変数に・・・。
回答  Jaka  - 05/4/15(金) 15:56 -

引用なし
パスワード
   こんにちは。

▼kouka さん:
>現在選択しているセルの場所の情報(A3とか・・・)を
>変数に入れたいのですが、どうしたらいいですか?
↓の違いは試し後で、ヘルプ見てね。
変数1 = Activecell.Address(0,0)
変数2 = Activecell.Address

>変数に入れた後に、その変数を使ってセルを選択した後に、
>オートフィルしたいのです。
>(例えば、変数1にA3が入っていて、変数2にA5が入っていて、
> A3:A5を選択したいのです。)
Range(変数1 & ":" & 変数2).select と、A3:A5の部分を文字列としてつなげてやれば良いです。

Range("A1") とかのA1は、""でくくってあるから文字です。

【24212】Re:アクティブセルの場所を変数に・・・。
質問  kouka  - 05/4/15(金) 17:27 -

引用なし
パスワード
   Jakaさん、ありがとうございました!
変数にそのセルの場所を入れることができました!

そこで、また質問で申し訳ないのですけど、
変数で選択した範囲を例えば、100行目までオートフィルするには、
どうしたらいいのでしょう??
(A3:A5まで選択した後に、A100までオートフィルしたいのです)

質問ばっかで申し訳ありませんが、よろしくお願いします。

【24217】Re:アクティブセルの場所を変数に・・・。
回答  ウッシ  - 05/4/15(金) 20:20 -

引用なし
パスワード
   こんばんは

>(A3:A5まで選択した後に、A100までオートフィルしたいのです)
この処理をマクロに記録すればコードが出来ますのでそれを整理すればいいです。

【24270】Re:アクティブセルの場所を変数に・・・。
質問  kouka  - 05/4/18(月) 11:23 -

引用なし
パスワード
   こんにちは、ウッシさん。

マクロの記録を使うとその行が固定されてしまってダメなのです。
アクティブセルの場所が日々変動するので、
それにあわせて変数2+100行目まで、という感じにしたいのです。
しかし!それがうまくいきません(泣)

例えば、変数1にA3、変数2に$A$5と入っているときに、
変数2+100行($A$105)までオートフィルするにはどうしたらいいのですか?

すみませんが、教えてください。
よろしくお願いします。

【24271】Re:アクティブセルの場所を変数に・・・。
回答  Jaka  - 05/4/18(月) 11:47 -

引用なし
パスワード
   まだるっこく書くと

rw = ActiveCell.Row
cw = ActiveCell.Column
Range(ActiveCell, Cells(rw + 99, cw)).Select

Resize使うと

ActiveCell.Resize(100).Select

上記で範囲を広げられます。

これ?。
ActiveCell.AutoFill Destination:=ActiveCell.Resize(100), Type:=xlFillSeries

【24282】Re:アクティブセルの場所を変数に・・・。
お礼  kouka  - 05/4/18(月) 14:31 -

引用なし
パスワード
   こんにちは、Jakaさん。

おかげ様で解決しました。
範囲を広げる時は『Resize』というものを使うのですね!

勉強になりました。
ありがとうございました。

10010 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free