Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3833 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59929】autofilterについて HH 09/1/19(月) 21:14 質問[未読]
【59930】Re:autofilterについて マクロマン 09/1/20(火) 9:22 発言[未読]
【60022】Re:autofilterについて Ｋ．Ｋ 09/1/23(金) 22:51 質問[未読]
【60023】Re:autofilterについて プルート 09/1/24(土) 9:32 発言[未読]
【60024】Re:autofilterについて Ｋ．Ｋ 09/1/24(土) 10:30 お礼[未読]
【59929】autofilterについて
質問  HH  - 09/1/19(月) 21:14 -
引用なし
パスワード
   今晩は、質問です。見易さ目的のため、1行おきに色をつけたあるデータベースがあります。これにautofilterをかけるとこの法則が崩れてしまいます。そうならない方法を教えてください
【59930】Re:autofilterについて
発言  マクロマン  - 09/1/20(火) 9:22 -
引用なし
パスワード
   どのようにして一行おきに色を着けているのでしょう？
手作業？
条件付き書式？
オートフォーマット？
その他？
【60022】Re:autofilterについて
質問  Ｋ．Ｋ  - 09/1/23(金) 22:51 -
引用なし
パスワード
   大変遅くなりました。ｆｏｒ　ｎｅｘｔで1行おきに色をつけました。
Ａｕｔｏｆｉｌｔｅｒをマクロで実行させ、その結果画面も、１行おきに色が
つく、の法則になるようにしたいのですが
【60023】Re:autofilterについて
発言  プルート  - 09/1/24(土) 9:32 -
引用なし
パスワード
   ▼Ｋ．Ｋ さん：
SpecialCellsを使用すると、表示されているセルの取得ができます。
ヘルプ等で確認してみてください。

一応、コードはこんな感じでしょうか
Dim myRange As Range
Dim myColorIdx As Integer

Cells.Interior.ColorIndex = xlNone　'一旦色クリア

myColorIdx = xlNone
For Each myRange In Range("A1:A" & Range("A1").CurrentRegion. _
　　　　　　　　　　Rows.Count).SpecialCells(xlCellTypeVisible)
　　myRange.EntireRow.Interior.ColorIndex = myColorIdx
　　If myColorIdx = xlNone Then
　　　　myColorIdx = 6　　　　　'<-- 希望の色で
　　Else
　　　　myColorIdx = xlNone
　　End If
Next myRange


追伸）ＨＮは、最低でも、同スレッド内では固定した方が良いです。
【60024】Re:autofilterについて
お礼  Ｋ．Ｋ  - 09/1/24(土) 10:30 -
引用なし
パスワード
   プルートさんありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3833 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free