[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シート名とフィルタ』(ry)
依頼というファイルに、在庫というファイルの不規則なシート名のシートを、
コピーして検索という名前を付けてフィルターを掛け、停止の行に色を染めたいです。
ちなみに停止と記入してあるのはC2から下です。
範囲はA〜Fまでです。
更に見出しにも色を自動で付けたいです。
宜しくお願い致します。
< 使用 Excel:Microsoft365、使用 OS:Windows11 >
Sub test() ActiveSheet.Copy ActiveSheet With ActiveSheet .Name = "検索" .AutoFilterMode = False .Range("A1").AutoFilter 3, "停止" With .Range("A1").CurrentRegion.Offset(1, 0) .Resize(.Rows.Count - 1).Interior.Color = RGB(255, 255, 0) End With End With End Sub
[[20230310215537]]
はどうなったんですか?
(フォーキー) 2023/03/14(火) 13:36:00
(ry) 2023/03/14(火) 15:55:00
Sub test() ActiveSheet.Copy Workbooks("依頼.xlsx").ActiveSheet With ActiveSheet .Name = "検索" .AutoFilterMode = False .Range("A1").AutoFilter 3, "停止" With .Range("A1").CurrentRegion.Offset(1, 0) .Resize(.Rows.Count - 1).Interior.Color = RGB(255, 255, 0) End With End With End Sub (フォーキー) 2023/03/14(火) 16:14:43
更になんですが…
フィルタを掛けたままので、全部が見えるようにしたいです。
わがまま言ってすみません。
(ry) 2023/03/16(木) 14:40:09
>フィルタを掛けたままので、全部が見えるようにしたいです。 フィルタを解除する、ということでしょうか。
Sub test() ActiveSheet.Copy Workbooks("依頼.xlsx").ActiveSheet With ActiveSheet .Name = "検索" .AutoFilterMode = False .Range("A1").AutoFilter 3, "停止" With .Range("A1").CurrentRegion.Offset(1, 0) .Resize(.Rows.Count - 1).Interior.Color = RGB(255, 255, 0) End With .Range("A1").AutoFilter '追加 End With End Sub
色は勝手に黄色にしましたが、変更する場合は VBA RGB 一覧 で調べてください (フォーキー) 2023/03/16(木) 21:05:46
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.