Ｅｘｃｅｌ 条件によってデータを貼り付ける方法

質問

ご存知の方いらっしゃいましたらお願いします。
Excelは2003を使用しています。

Excelで「とある条件にあった場合、この情報を貼り付ける」というマクロは可能でしょうか。
当方マクロ知識は「マクロの記録」程度です。

Ａ列に文字が入っていた場合、Ｄ列に別シートにある関数のセル（★）を貼り付ける
（この場合は、「商品い」のＤ列に★がコピーされる）

Ａ列　　　　Ｂ列　　　　Ｃ列　　　　　Ｄ列
　　　　　　商品あ　　　５０円
倉庫　　　　商品い　　　１０円　　　　★
　　　　　　商品う　　　２０円

この逆（Ａ列に情報がない場合）や、条件を複数にしたり等も出来ればうれしいです。

回答No.3

n-jun · ベストアンサー

>「ＹシートのＡ１に文字がない場合、ＷシートのＡ２セルをＹシートのＤ１に貼り付ける」
>「ＹシートのＡ１に文字がなく、Ｃ列にも文字がある場合、ＷシートのＡ２セルをＹシートのＤ１に貼り付ける」
この二つの違いが不明ですが。

取り敢えずＹシートのＡ列に
・入力があればＷシートのＡ１の数式を同じ行のＤ列に入れる。
・値がクリアされたらＷシートのＡ２の数式を同じ行のＤ列に入れる。
と言う条件としました。
（値の入力・クリアは複数セルには未対応。１つずつ行なうとしてます）

Ｙシートのシートタブを右クリック＞コードの表示で表示された
シートモジュールにコピペ。

Private　Sub　Worksheet_Change(ByVal　Target　As　Range)
　Dim　ws　As　Worksheet
　Set　ws　=　Worksheets("Ｗシート")　'シート名変更？

　With　Target
　　　　　　If　.Column　<>　1　Then　Exit　Sub
　　　　　　If　.Cells.Count　>　1　Then　Exit　Sub

　　　　　　If　LenB(.Value)　<>　0　Then
　　　　　　　　　.Offset(,　3).Formula　=　ws.Range("A1").Formula
　　　　　　Else
　　　　　　　　　.Offset(,　3).Formula　=　ws.Range("A2").Formula
　　　　　　End　If
　End　With
End　Sub
シート名”Ｗシート”は変更願います。

お礼

出来ました！
ありがとうございました。

シートモジュールというのを初めて知りました。
色々変えて試してみたいと思います。

回答No.2

n-jun

ANo.1です。

ＷシートのＡ１やＡ２は固定ですか？
数式を代入するのか、値を代入するのか、どちらでしょう。

補足

固定で数式を入れます。
元々ＷシートのＡ１、Ａ２には関数が入っているので、それをそのままコピー出来たらと思います。

回答No.1

n-jun

>Ａ列に文字が入っていた場合、Ｄ列に別シートにある関数のセル（★）を貼り付ける
Ａ列に文字が入った場合、別シートのどこのセルから貼り付けるのかが
不明です。

>この逆（Ａ列に情報がない場合）や、条件を複数にしたり等も出来ればうれしいです。
詳細が不明です。
Ａ列に文字がない時はどうしたいのか。
複数条件とは何を差すのか、そして何をしたいのか。

補足

わかりにくい説明ですみません。

例えば・・・
作業ワークシート：Ｙシート
関数セルがあるワークシート：Ｗシート

「ＹシートのＡ１に文字があった場合は、ＷシートのＡ１セル（関数が入力されている）を、ＹシートのＤ１に貼り付け、
ＹシートのＡ１に文字がない（空白）の場合は、貼り付けない」

というのをやりたいです。
可能であれば、

「ＹシートのＡ１に文字がない場合、ＷシートのＡ２セルをＹシートのＤ１に貼り付ける」
「ＹシートのＡ１に文字がなく、Ｃ列にも文字がある場合、ＷシートのＡ２セルをＹシートのＤ１に貼り付ける」

というちょっと違うパターンなども出来れば嬉しいです。