[[20060203150946]]　『指定色のデータを一気に消したい』（たむりん）　ページの最後に飛ぶ

『指定色のデータを一気に消したい』（たむりん）

 こんにちは。
 いつもお世話になります。

 マクロはほとんど全くわからないのですが、これはマクロでないと出来ないと思います。

 データ入力するセルだけ色指定（例えば黄色）してあるのですが、全てのデータを一気に削除する方法はありませんか？
 途中で数式が入っているので、ちまちま手作業で消しています(T-T)
 期が変わるごとにデータを削除して次の期のカラオケを作りたいのですが、毎回やっていると気が遠くなりそうです。
 シートのカラオケを最初から作って残しておく方法もあるのですが、微妙に訂正する箇所が出てくるのでそれは出来ません。
 よろしくお願い致します。

 色は、複数あるのでしょうか？
 もし、１色でしたら、セルを全部範囲指定し
 書式 → セル 
 パターンを色なしに設定し、OK

 複数色でしたら、マクロになると思います。

 別案として、「黄色」に変更する場所に規則性があれば
 次回からは「条件付書式」で対応すると良いかもしれませんね～♪

 （キリキ）(〃⌒o⌒)b

 sub test()
 dim r as range, ff as string
 with activesheet.usedrange
     application.findformat.interior.color=vbyellow
     set r=.find("",searchformat:=true)
     if not r is nothing then
        ff=r.address
        do
           r.clearcontents
           set r=.find("",after:=r,searchformat:=true)
        loop until ff=r.address
     end if
 end with
 end sub
 (seiya)

 2002以降なら、編集＞置換でパターン色検索で置換できます。
(みやほりん)(-_∂)b

 キリキさん、seiyaさん、みやほりんさん、ありがとうございます。
 多分seiyaさんの方法で出来る様な気がします。
 2002以前なので、みやほりんさんのでは残念ながら出来ません・・・。
 ・・・何にせよ、マクロは記録マクロしか使った事がないので、
 構築の仕方が全く分かりません。
 出直してきます(T-T)
 （たむりん）

 範囲を指定してから、黄色を無色を実行してください。
Sub 黄色を無色()
Dim tbl As Range
For Each tbl In Selection
    If tbl.Interior.ColorIndex = 6 Then
        tbl.Interior.ColorIndex = 0
    End If
Next tbl
End Sub

 （キリキ）(〃⌒o⌒)b

 > 多分seiyaさんの方法で出来る様な気がします。
 2002以前なので、みやほりんさんのでは残念ながら出来ません・・・。

 私のもだめでしょう.....
 キリキさんのは大丈夫! (seiya)

黄色以外の部分は数字のみでしたら、数字のみ削除をしたら
いかがでしょうか？
全体を選んで、「F5」キーを押し、「ジャンプ」が出てきたら
「セル選択」をクリックし、「定数」をクリックして数値以外のチェックを
はずし、「OK」を押すと、数値が選択されるので、「Delete」キーで
削除するのはどうですか？

 皆さん、色々ありがとうございます！
 さっき出社して、ここを覗いてみてビックリしました！！
 後程やってみます。
 バージョンをちゃんと書いてなかったので、お手数おかけしてすみませんでした。
 （たむりん）

 おはようございます。
 キリキさんのマクロを動かしてみました。
 動きました！
 でも、黄色いセルを無色にでなく黄色いセルの中のデータを削除したいのです。
 う～、わたしの書き方がまずかったんでしょうか・・・。
 何度もすみません。
 （たむりん）

 キリキさんのマクロから
Sub test()
Dim tbl As Range
For Each tbl In Selection
    If tbl.Interior.ColorIndex = 6 Then
        tbl.Interior.ColorIndex = 0 '黄色の部分を残したければここ削除
        tbl.ClearContents 'ここ追加
    End If
Next tbl
End Sub
 （dack）

 そうです、これです。
 dackさん、皆さん、どうもありがとうございました。
 （たむりん）

 >マクロは記録マクロしか使った事がないので・・・
 dackもマクロの記録マクロしか使った事　ありませんよ＾＾
 （dack）

 こんにちは。久々に来ました^^
 [[20040302212726]]←マクロを使わなくてもこの方法でも出来ました♪（遅
 今更ながら、自分の質問の仕方が下手だと、痛感(><)
 また、困ったらお邪魔させていただきますので、よろしくお願い致しますm(__)m
 （たむりん）

コメント返信：

[ 一覧(最新更新順) ]

[[20060203150946]] 『指定色のデータを一気に消したい』（たむりん） ページの最後に飛ぶ

[[20060203150946]]　『指定色のデータを一気に消したい』（たむりん）　ページの最後に飛ぶ