Excel VBA質問箱 IV

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

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


35494 / 76732 ←次へ | 前へ→

【46437】Re:数式の列データ最後までのオートフィル
発言  かみちゃん  - 07/2/3(土) 13:43 -

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

>動作イメージです。
>入力シート
>   A   B   C   D   E   F
>1 品名  価格 個数  品名  価格 個数
>2 もも      5  もも      10      
>3 みかん     4  みかん     5
>
>500(浮動)
>
>各月毎の商品別売上です。
>別シートの商品別価格から、価格列に値を貼り付けます。
>
>商品別価格シート
>  A   B   
>1 品名  価格 
>2 もも  100    
>3 みかん  50
>
>500(浮動)
>
>入力シートの、価格列に、商品別価格シートの価格を
>貼り付けたいのです。

上記のシートイメージ、関連性がよくわかりません。
提示されたコードの数式でどのような処理をしたいのでしょうか?

>>対象となるセルの数が1つしかないときはAutoFillする必要があるでしょうか?
>>というより、できますか?
>必要はないですね。。
>セル数が1以上だったらオートフィルする、ですね。

「1以上」ではなく、「1より大きい」場合です。
これ、意外に重要なので・・・

>今試してみたところ、
>Selection.AutoFill Destination:=Range(Selection, ActiveCell.xlLastCell), Type:=xlFillValues
>のところで、このオブジェクトは、プロパティまたはメソッドをサポートしていませんエラーがでました。。

ですから、そのコードがまずいので、
[46432]のコードを提示させていただいています。

>教えて頂いたものを記述しましたが、オートフィル機能が
>作動しませんでした。。

作動しないというのは、上記のエラーメッセージが出るということですか?
もしそれであれば、もう一度[46432]のコードを試してください。
ちなみに
Selection.AutoFill〜
のコードは、コメント文にしてありますよ。

1 hits

【46431】数式の列データ最後までのオートフィル acochaco 07/2/3(土) 9:42 質問
【46432】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 10:59 発言
【46434】Re:数式の列データ最後までのオートフィル acochaco 07/2/3(土) 12:44 質問
【46435】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 12:54 発言
【46436】Re:数式の列データ最後までのオートフィル acochaco 07/2/3(土) 13:26 質問
【46437】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 13:43 発言

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