Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10012 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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とか・・・）を
>変数に入れたいのですが、どうしたらいいですか？
↓の違いは試し後で、ヘルプ見てね。
変数１ = Activecell.Address(0,0)
変数２ = 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』というものを使うのですね！

勉強になりました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10012 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free