Использование одного макроса в нескольких таблицах на нескольких листах

Question

У меня есть книга, которая разбивается на одну страницу = один месяц в году. на каждом из этих листов представляет собой таблицу с различным условным форматированием на ней. оттуда я отфильтровываю информацию несколькими способами для получения определенных бит информации (непогашенные остатки, элементы, ожидающие отправки и т. Д.)

Я пытаюсь настроить несколько простых макросов, чтобы сделать фильтрацию быстрее, например, показать только заказы от определенной компании, которые были отправлены, но не оплачены.

Моя проблема заключается в том, что макрос применяется только к листу/таблице, на котором я его создал, можно ли изменить код vb, чтобы макрос работал на всех листах/таблицах моей рабочей книги?

Это пример одного из макросов, извините, если есть протокол для ввода кода на этом форуме, я умоляю невежество.

Sub HSWC_only() 
' 
' HSWC_only Macro 
' leaves only hi-spec jobs 
' 
' Keyboard Shortcut: Ctrl+m 
' 
    ActiveSheet.ListObjects("Table25").Range.AutoFilter Field:=3, Criteria1:= _ 
     "=HSWC*", Operator:=xlAnd 
End Sub 

Answer 1

Ключ вы ищете это ActiveSheet, это сейчас применяется Автофильтр только к листу вы видите перед вами. Если вы измените объект, который вы можете связать с каждым листом, вы можете применить его к каждому листу по порядку.

Теперь, когда ваши листы имеют только один список, вы можете ссылаться на первый объект ListObject вместо его имени.

Если бы поместить строку в Loop, как это:

Sub HSWC_only() 
' 
'HSWC_only Macro 
' leaves only hi-spec jobs 
' 
' Keyboard Shortcut: Ctrl+m 
' 
    Dim ws as Worksheet 

    For each ws in ThisWorkbook.Worksheets 
     ws.ListObjects(1).Range.AutoFilter Field:=3, Criteria1:= _ 
      "=HSWC*", Operator:=xlAnd 
    Next ws 
End Sub 

Answer 2

Похоже, ваш макрос должен сделать это, так как он относится к ActiveSheet, поэтому он должен работать на любом листе вы находитесь в данный момент.

Если это не так это из-за ListObjects("Table25").Range ссылки - Вы можете захотеть изменить что-то вдоль линий UsedRange

Ваш код будет выглядеть примерно вдоль линий:

ActiveSheet.UsedRange.AutoFilter Field:=3, Criteria1:= _ 
    "=HSWC*", Operator:=xlAnd 

Не видя ваших листов/макетов, это самое близкое, что я могу предложить для решения.

Надеюсь, это поможет.