[[20160923113843]] 『[[20140607123703]] について』(Y) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

[[20140607123703]] について』(Y)

投稿
[[20140607123703]]『重複している数字ごとに交互に網掛け』(えにもく) 
について...

上記投稿で条件付き書式ではなくVBAで実装するとするとどうなりますでしょうか?どうも重くて
できればオートフィルタを更新時に発生させたいのです

< 使用 Excel:Excel2016、使用 OS:Windows10 >


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As Long, e As Long, c As Range, sw As Boolean
    Columns("A:A").Interior.Pattern = xlNone
    s = 1
    For Each c In Intersect(UsedRange, Columns("A:A")).Cells
        If c.Value <> c.Offset(1).Value Then
        e = c.Row
            If sw Then
            sw = False
            Else
            Range("A" & s & ":A" & e).Interior.Color = 65535
            sw = True
            End If
        s = c.Offset(1).Row
        End If
    Next c
End Sub
(mm) 2016/09/23(金) 12:56

 オートフィルタの変更時に働くイベントは無いと思うのだが。

 一応他のセルに
 =SUBTOTAL(3,A2:A10)
 と入れておいてCalculateイベントでひっかける方法もあるかとは思うが。
(ねむねむ) 2016/09/23(金) 13:09

 ん?

 >できればオートフィルタを更新時に発生させたいのです
 これはオートフィルターで抜き出したセルで連続したデータごとに色を付けたいということだろうか?
(ねむねむ) 2016/09/23(金) 13:12

すいませんです。こちらの回答に気づかず重複質問してしまいました。
上記のVBAですべて解決しました!!
素早いご回答、感謝感謝です。
またオートフィルタ変更時のイベントについてはねむねむさんの言う通りなのでCalculateイベントでひっかける方法でいこうと思います。
重ねてありがとうございました
(ん) 2016/09/24(土) 10:07

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.