excelでデータが一定の列を超えた場合処理を中止にしたい

自分でもあれこれやってみたいのですが
うまく処理できずに困っています。
よい方法があれば教えてください。


商品コードと商品名をExcelの表にしています。

例
012345　水出しコーヒー
023456　紅茶

別表とつき合わせてVLOOKUP関数を使うため
費目ごとの表をコピー、別シートにペーストしています。

特定の費目に限り商品コード数が150を超える場合が
あります。

商品コードを列にして処理した場合
シートが重くなるのでその費目だけは
別ファイルに保存するように
メッセージを出したいと思います。

セルに空白以外の値が入力された場合
エラーを返す入力規則を設定してみたのですが
コピー&ペーストの場合
入力規則が有効になりません。

特定列以降に保護をかけてペーストすると確かに
処理は中止されるのですが
保護を解除するようにとシステムメッセージが
出されます。

メッセージは保護の解除ではなく
「商品コード数が多すぎます。別ファイルに
データを貼り付けて下さい。処理を中止します」
というメッセージを出したいのです。

よい方法がありましたらアドバイスよろしく
お願いします。

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2004/01/13 15:01

よい方法は思いつきませんが、コピー先シートのＡ列が商品コード欄とした場合、

A1 か B1 に

=IF(COUNTA(A2:A160)>150,"データが "&COUNTA(A2:A160)-150&"件多いです。超過
データは別シートにコピーしてください"," ")

のような式を入力し、ついでに条件付き書式で、そのセルが 半角スペース でなけ
れば赤文字にする指定をしていおたらいかがでしょうか。
また、その行は「ウィンドウ枠の固定」でスクロールしないようにしておきます。

マクロで処理すると、スマートになるかもしれませんが、そちらはどなたか得意な
かたのレスを待ちましょう。

この回答へのお礼

ありがとうございました。結局貼り付け処理したのち列が一定数を超えたら転記したデータを削除する方法で乗り切りました。余談ですが、方法は違ってもヒントになるような即レスってうれしいものです。ありがとうございました。

お礼日時：2004/01/15 15:22