【Excel】 文字が入力されたら他のセルを空白に

質問

こんにちは

J3からJ127までの範囲で、
このセルの中に文字を入れたら、
他の範囲を空白にする方法を教えて下さい。

一度だけではなく、何度も繰り返されます。
J3に入力すると、他のセルは空白になり、
またJ5に入力すると、先ほど入力したJ3が空白になる
といった感じです。

Excel2007です。
宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　dim buf as variant

　set h = application.intersect(target, range("J3:J127"))
　if h is nothing then exit sub

　application.enableevents = false
　buf = h.areas(1)(1).value
　range("J3:J127").clearcontents
　h.areas(1)(1).value = buf
　application.enableevents = true
end sub

ファイルメニューから終了してエクセルに戻る
範囲に値を記入する。

＃参考
＞J3からJ127までの範囲で、このセルの中に文字を入れたら

エクセルでは、次のような使い方をすることが出来ます
○１つのセルを選んで値を記入する（←ご相談ではこれしか考えてない）
○ヒトカタマリのセル範囲を選んで値を一斉に記入する
○とびとびの複数セルを選んで値を一斉に記入する
○まとまった数のナニカをコピーして範囲に貼り付ける・オートフィルドラッグで入力する

そういった使い方をしても、おかしくなったり意図と違う結果にならないようしっかり準備するか、あるいは決められた使い方しかしないようにするなどの対処を考えないといけません。

お礼

早速のご回答ありがとうございます。

大変上手くいきました。

注意事項も教えていただき、
参考になりました。

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