Excel VBA質問箱 IV

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

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


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

【30159】オートフィル設定の仕方について かずっち 05/10/20(木) 22:30 質問[未読]
【30160】Re:オートフィル設定の仕方について かみちゃん 05/10/20(木) 22:36 回答[未読]
【30170】Re:オートフィル設定の仕方について Jaka 05/10/21(金) 9:59 発言[未読]
【30211】Re:オートフィル設定の仕方について YN62 05/10/21(金) 21:11 発言[未読]
【30212】みなさん ありがとうございます かずっち 05/10/21(金) 21:44 お礼[未読]
【30218】Re:みなさん ありがとうございます YN62 05/10/22(土) 9:11 回答[未読]
【30304】ありがとうございます かずっち 05/10/24(月) 21:25 お礼[未読]

【30159】オートフィル設定の仕方について
質問  かずっち  - 05/10/20(木) 22:30 -

引用なし
パスワード
   初歩的な質問ですみませんが、お助けください。
あまりプログラムに自信がないので困ってます。
毎回行数が違う表でのオートフィルがうまく書けません。
  Selection.AutoFill Destination:=Range("F1:F18")
  Range("F1:F18").Select
Fは不変で、18だけが変わるので、最後のセルを取得のマクロを組み合わせて書いたのですが、うまくいきません
なにかスマートな方法はないでしょうか

【30160】Re:オートフィル設定の仕方について
回答  かみちゃん  - 05/10/20(木) 22:36 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>Fは不変で、18だけが変わるので、最後のセルを取得のマクロを組み合わせて書いた

それは、どのように書いたのですか?
Range("F1",Range("F65536").End(xlUp)).Select
でできると思いますが・・・

【30170】Re:オートフィル設定の仕方について
発言  Jaka  - 05/10/21(金) 9:59 -

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

>最後のセルを取得のマクロを組み合わせて書いたのですが、うまくいきません
何を基準として最後の行とするのでしょうか?
F列の最後の行を知ったところで、オートフィルするから上書きするような感じになりますが....。

また、このSelectionとか非常にあいまいですが、Range("F1")と書かないとF1以外が選択されていたら、エラーになると思います。

【30211】Re:オートフィル設定の仕方について
発言  YN62  - 05/10/21(金) 21:11 -

引用なし
パスワード
   ▼かずっち さん:
>初歩的な質問ですみませんが、お助けください。
>あまりプログラムに自信がないので困ってます。
>毎回行数が違う表でのオートフィルがうまく書けません。
>  Selection.AutoFill Destination:=Range("F1:F18")
>  Range("F1:F18").Select
>Fは不変で、18だけが変わるので、最後のセルを取得のマクロを組み合わせて書いたのですが、うまくいきません
>なにかスマートな方法はないでしょうか

想像ですが、行の長さが変わっても、対応できるようなAutoFilterという事でしょうか。
↓このようなコードのイメージではないですか・・・
Range("F1", Range("F65536").End(xlUp)).AutoFilter _
 field:=1, Criteria1:=Range("A5")

上のコードでなくて、この下のコードでできるはずです。
Range("F1").AutoFilter field:=1, Criteria1:=Range("A5")

【30212】みなさん ありがとうございます
お礼  かずっち  - 05/10/21(金) 21:44 -

引用なし
パスワード
   よくある分厚いテキストを見ながら、あっちゃらこっちゃら
例のマクロを組み合わせたり、マクロを記録したりして試してみたのですが
なにせ基本がなってないものですから
質問も漠然となってしまいまして済みません
"F1"の式をオートフィルで設定したかったんです。
ただセルの位置が毎回変わるのでどうしたものかと困ったんです

【30218】Re:みなさん ありがとうございます
回答  YN62  - 05/10/22(土) 9:11 -

引用なし
パスワード
   ▼かずっち さん:
>よくある分厚いテキストを見ながら、あっちゃらこっちゃら
>例のマクロを組み合わせたり、マクロを記録したりして試してみたのですが
>なにせ基本がなってないものですから
>質問も漠然となってしまいまして済みません
>"F1"の式をオートフィルで設定したかったんです。
>ただセルの位置が毎回変わるのでどうしたものかと困ったんです

失礼しました。勘違いしていました。これで一度テストしてください。

F1にどのような関数が入っているか知りませんが、もし
例えばA列に数字があり、それがF1に関与するのであれば、下の式でいけます。
もし関与する列が異なれば、アルファベットの変更と
Offset(,5)の数字をそれにあわせて変更してください。


Range("F1").AutoFill Destination:=Range(("A1"), Range("A65536").End(xlUp)).Offset(, 5)

【30304】ありがとうございます
お礼  かずっち  - 05/10/24(月) 21:25 -

引用なし
パスワード
   遅くなりまして済みません
ありがとうございます。なんとか出来ました^^

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