[[20230314132013]] 『シート名とフィルタ』(ry) ページの最後に飛ぶ

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

 

『シート名とフィルタ』(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/14(火) 21:27:26

こんにちは
出来ました。

更になんですが…
フィルタを掛けたままので、全部が見えるようにしたいです。
わがまま言ってすみません。
(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

ありがとうございます。
早速今日から使います。
(ry) 2023/03/17(金) 07:58:46

コメント返信:

[ 一覧(最新更新順) ]


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