Excel VBA質問箱 IV

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

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


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

【58439】オートフィルのVBAについて 初心者 08/10/26(日) 11:42 質問[未読]
【58442】Re:オートフィルのVBAについて こぎつね 08/10/26(日) 12:34 発言[未読]
【58446】Re:オートフィルのVBAについて 初心者 08/10/26(日) 14:41 質問[未読]
【58447】Re:オートフィルのVBAについて こぎつね 08/10/26(日) 15:03 発言[未読]

【58439】オートフィルのVBAについて
質問  初心者  - 08/10/26(日) 11:42 -

引用なし
パスワード
   かなり基本的なことで申し訳ありませんが

今マクロでセル検索をして、ひとつ横に移動することはできたのです。

それからB2に予め計算式があるので今選択しているセルまでオートフィルをしたいのですが。
何か良い方法があれば教えください。

【58442】Re:オートフィルのVBAについて
発言  こぎつね  - 08/10/26(日) 12:34 -

引用なし
パスワード
   ▼初心者 さん:
>かなり基本的なことで申し訳ありませんが
>
>今マクロでセル検索をして、ひとつ横に移動することはできたのです。
>
>それからB2に予め計算式があるので今選択しているセルまでオートフィルをしたいのですが。
>何か良い方法があれば教えください。

アクティブなセルまでなら、
Range("B2").AutoFill Destination:=Range("B2", ActiveCell), Type:=xlFillDefault
な感じでしょうか。

ただ”今選択しているセル”と言うのは考慮してませんけど。

【58446】Re:オートフィルのVBAについて
質問  初心者  - 08/10/26(日) 14:41 -

引用なし
パスワード
   ▼こぎつね さん:
>▼初心者 さん:
>>かなり基本的なことで申し訳ありませんが
>>
>>今マクロでセル検索をして、ひとつ横に移動することはできたのです。
>>
>>それからB2に予め計算式があるので今選択しているセルまでオートフィルをしたいのですが。
>>何か良い方法があれば教えください。
>
>アクティブなセルまでなら、
>Range("B2").AutoFill Destination:=Range("B2", ActiveCell), Type:=xlFillDefault
>な感じでしょうか。
>
>ただ”今選択しているセル”と言うのは考慮してませんけど。


ありがとうございました。失敗はType:=xlFillDefautがなかったことでした。

初心者でして恥ずかしながらxlFillDefautの意味を教えていただけませんか?

【58447】Re:オートフィルのVBAについて
発言  こぎつね  - 08/10/26(日) 15:03 -

引用なし
パスワード
   ▼初心者 さん:
>▼こぎつね さん:
>>▼初心者 さん:
>>>かなり基本的なことで申し訳ありませんが
>>>
>>>今マクロでセル検索をして、ひとつ横に移動することはできたのです。
>>>
>>>それからB2に予め計算式があるので今選択しているセルまでオートフィルをしたいのですが。
>>>何か良い方法があれば教えください。
>>
>>アクティブなセルまでなら、
>>Range("B2").AutoFill Destination:=Range("B2", ActiveCell), Type:=xlFillDefault
>>な感じでしょうか。
>
>ありがとうございました。失敗はType:=xlFillDefautがなかったことでした。
>
>初心者でして恥ずかしながらxlFillDefautの意味を教えていただけませんか?

マクロの自動記録をちょっといじっただけですけど。

ヘルプには
>この引数に xlFillDefault を指定する、または省略すると、元になるセル範囲に
>応じて、最も適切な種類のリストが選択されます。
とありますので、別な物をしていしたと言う事でしょうか。
省略しただけなら結果は同じはずですけど。

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