Excel VBA質問箱 IV

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

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


3821 / 13645 ツリー ←次へ | 前へ→

【59929】autofilterについて HH 09/1/19(月) 21:14 質問[未読]
【59930】Re:autofilterについて マクロマン 09/1/20(火) 9:22 発言[未読]
【60022】Re:autofilterについて K.K 09/1/23(金) 22:51 質問[未読]
【60023】Re:autofilterについて プルート 09/1/24(土) 9:32 発言[未読]
【60024】Re:autofilterについて K.K 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について
質問  K.K  - 09/1/23(金) 22:51 -

引用なし
パスワード
   大変遅くなりました。for nextで1行おきに色をつけました。
Autofilterをマクロで実行させ、その結果画面も、1行おきに色が
つく、の法則になるようにしたいのですが

【60023】Re:autofilterについて
発言  プルート  - 09/1/24(土) 9:32 -

引用なし
パスワード
   ▼K.K さん:
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


追伸)HNは、最低でも、同スレッド内では固定した方が良いです。

【60024】Re:autofilterについて
お礼  K.K  - 09/1/24(土) 10:30 -

引用なし
パスワード
   プルートさんありがとうございました

3821 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free