特定の条件の転記

質問

エクセル2010です。
特定の条件のセルに対しての転記ができるか質問します

入力エリアが以下

I10:M29
I32:M51
I55:M73
I76:M95

転記したいのが同じシート上のA11から↓　B11から↓

入力エリアに -100と入力されたらA列に100と
　　　　　　　　　100と入力されたらB列に100と　入力されるようにしたい

なお　A列とB列に値は　重なって表示しないよう段をずらして入力できるようにしたい

また　入力エリアで入力された数値は　A列　B列ともに　値が入力されているセルの下に
入力するようにする。

このようなことは　可能でしょうか？

説明不足でしたら　また　回答させていただきます

詳しい方、お願いします。

回答No.1

keithin · ベストアンサー

転記先のＡとＢを，どういう理由でどちらに振り分けたいのかが説明されていないため，たとえば数字のゼロを記入したらどっちに転記したいのか，また（誤って？）数値ではなく言葉が記入されたらどうしたいのかなどが不明ですね。

準備
Ａ１０セルとＢ１０セルにそれぞれ「結果１」「結果２」と記入しておく
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range, ha as range
’対象範囲の確認
　if application.intersect(target, range("I10:M29,I32:M51,I55:M73,I76:M95")) is nothing then exit sub

’処理
　on error resume next
　for each ha in application.intersect(target, range("I10:M29,I32:M51,I55:M73,I76:M95")).areas
　for each h in ha
　　if isnumeric(h) and h <> "" then
　　application.enableevents = false
　　if h.value <=0 then
　　　range("A65536").end(xlup).offset(1).value = -h.value
　　else
　　　range("B65536").end(xlup).offset(1).value = h.value
　　end if
　　application.enableevents = true
　　end if
　next
　next
end sub

使用状況の想定も詳しく書かれていないので，たとえば複数のセル範囲をまとめて削除したらとか，どっかからまとめて値をコピーして対象範囲に貼り付けたり，オートフィルドラッグしたらどう反応するかとか，いろいろ気を遣う必要があります。
寄せられた回答をキチンと検証してください。

お礼

keithinさん　お礼のほうが遅くなりすみません。少し理解するには

早いみたいです。勉強して再度質問しなおします。

補足

keithinさん回答ありがとうございます。

＞どういう理由でどちらに振り分けたいのかが説明されていない

I10:M29
I32:M51
I55:M73
I76:M95

の上の入力エリアで　マイナス値が入力されたら　A11より下です。

おなじく入力エリアで　プラス値が入力されたら　　B11より下です。

0　の値　または　文字の入力は一切なしと　考えてもらってほしいのですが

＞使用状況の想定も詳しく書かれていないので・・・

大変もうしわけありません。

もう少しわかりやすく、説明させてもらいます。

少しお時間いただけませんか？

よろしく　お願いします。