|
こんにちは。かみちゃん です。
>動作イメージです。
>入力シート
> 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〜
のコードは、コメント文にしてありますよ。
|
|