過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     730
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼色別でオートフィルタ  nori 03/2/12(水) 17:07
　　　┗Re:色別でオートフィルタ  JuJu 03/2/12(水) 17:31
　　　　　　┗Re:色別でオートフィルタ  nori 03/2/12(水) 18:01

　───────────────────────────────────────
　■題名 ： 色別でオートフィルタ
　■名前 ： nori <miyagawa@chudenko.co.jp>
　■日付 ： 03/2/12(水) 17:07
　-------------------------------------------------------------------------
   
質問ですが、色付のセルと色なしのセルがA1〜A30並んでいます。

色付のみ表示させ、色なしは非表示とする方法を教えてください。


　───────────────────────────────────────
　■題名 ： Re:色別でオートフィルタ
　■名前 ： JuJu <juju-bbs@su-u.com>
　■日付 ： 03/2/12(水) 17:31
　-------------------------------------------------------------------------
   
お世話になっております＜うちの会社が(笑)



>色付のみ表示させ、色なしは非表示とする方法を教えてください。



列の非表示ですか？

それなら、こんな感じです。



Sub Macro1()

　　Dim rngCell As Range



　　For Each rngCell In Range("A1:A30")

　　　　rngCell.EntireRow.Hidden = CBool(rngCell.Interior.ColorIndex = xlNone)

　　Next

End Sub



ではではぁ


　───────────────────────────────────────
　■題名 ： Re:色別でオートフィルタ
　■名前 ： nori <miyagawa@chudenko.co.jp>
　■日付 ： 03/2/12(水) 18:01
　-------------------------------------------------------------------------
   
早速ご回答ありがとうございました。

思いどおりの結果となりました。



▼JuJu さん：

>お世話になっております＜うちの会社が(笑)

>

>>色付のみ表示させ、色なしは非表示とする方法を教えてください。

>

>列の非表示ですか？

>それなら、こんな感じです。

>

>Sub Macro1()

>　　Dim rngCell As Range

>

>　　For Each rngCell In Range("A1:A30")

>　　　　rngCell.EntireRow.Hidden = CBool(rngCell.Interior.ColorIndex = xlNone)

>　　Next

>End Sub

>

>ではではぁ

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     730