[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『[[20140607123703]] について』(Y)
投稿
[[20140607123703]]『重複している数字ごとに交互に網掛け』(えにもく)
について...
上記投稿で条件付き書式ではなくVBAで実装するとするとどうなりますでしょうか?どうも重くて
できればオートフィルタを更新時に発生させたいのです
< 使用 Excel:Excel2016、使用 OS:Windows10 >
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.