![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと[327] 数値の範囲指定を行って置換
tetsu [2015/08/29 15:46:12]
はじめまして。
いつもＣＳＶ編集に使わせていただいております。
マクロの質問ですが、特定の列に4桁の数字(0001から9999）がランダムにある状況で、特定の数字（8888）があるセル以外を空白にする為にはどのようにしたら宜しいでしょうか。
いい方法があれば教えて下さい。
Re: [327] 数値の範囲指定を行って置換
tetsu [2015/08/29 18:01:55]
すいません、追加でご質問いたします。
先ほど特定の数字(8888)(単独)と表記致しましたが
(8888、9999)などの複数条件で、条件に合致しない列のセル
に入っている数値を削除する形も可能でしょうか？
お忙しいところ申し訳ありませんが、マクロをお教え頂ければ
ありがたいです。
よろしくお願いいたします。
Re: [327] 数値の範囲指定を行って置換
あすかぜ [2015/08/31 01:20:25]
返信遅くなってしまいすみません。
マクロを書いてみたので、試してみてください。
http://www.asukaze.net/soft/cassava/macro/asukaze/bbs327_20150831.cms
カーソルを対象の列に置いてこのマクロを実行し、ダイアログボックスに「8888」等の残したい数字を入力してください。
よろしくお願いします。
Re: [327] 数値の範囲指定を行って置換
tetsu [2015/08/31 18:38:56]
たいへん遅い時間に返信を有難うございます。
早速使用させていただきましたが、完璧な動作です。
ありがたく使用させていただきます。
自分でも過去の履歴を探したりしてマクロを作って近い事が
できるようにしましたが、ここまでは出来ませんでした。
これからも愛用させていただきます。
本当に有難うございました。
追加になり申しわけありませんが、列をクリックしなくても
ダイアログボックスに「列**」と指定することも可能でしょうか？
いつでもいいのでご検討ください。
Re: [327] 数値の範囲指定を行って置換
あすかぜ [2015/08/31 21:44:45]
動作確認ありがとうございます。
列番号をダイアログボックスで入力するようにするには、19 行目あたりに
x = InputBox("対象の列番号を入力してください。");
という命令を追加してください。
このダイアログボックスには列番号を数字で入力してください（「列**」ではなく ** 部分のみ）
よろしくお願いします。
Re: [327] 数値の範囲指定を行って置換
tetsu [2015/09/04 11:05:19]
おせわになっております。
連絡が遅れてしまいましたが、動作確認と変更を行い
行指定＆条件指定にて空白との置き換えができるように
なりました。
いろんな処理対象データを使って、もう少し確認を行い
ますが、ほぼ大丈夫だと思われます。
この度は色々と教えて頂き、本当にありがとうございました。