оптимизация макроса по копированию данных из разных книг

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

оптимизация макроса по копированию данных из разных книг (созданный мной макрос получится слишком длинным.)

оптимизация макроса по копированию данных из разных книг

amaksimus85

Дата: Пятница, 08.07.2022, 00:30 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 20% ±

Приветствую, дорогие форумчане.
При написании программы проведения соревнований, создал макрос, который будет очень большим, что прибавит много рутинной работы.
Суть такая: Книга А (макет с таблицами для разного количества участников), Книга Б (протокол взвешивания участников), Книга В (турнирная сетка).
Мой макрос копирует определенный лист из Книги А (в зависимости от участников взвешивания в Книге Б) в Книгу В.

[vba]

Код

Sub ê8()
'
' ê8 Ìàêðîñ
'

Sub ()

    If ActiveSheet.Range("C101") = 8 Then
    Windows("Книга А.xlsm").Activate
    Sheets("8").Select     '[color=green]  макет для 8 участников
    Sheets("8").Copy After:=Workbooks(Книга В..xlsm").ActiveSheet
      Windows(Книга Б..xlsm").Activate
    Range("B3:F314").Select
    Selection.Copy
     Windows("Книга В.xlsm").Activate
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
     Windows("Книга Б..xlsm").Activate
    Range("A2:S2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Книга В..xlsm").Activate
    Range("A2:S2").Select
    ActiveSheet.Paste

    ElseIf ActiveSheet.Range("C101") = 9 Then
      Windows("Книга А.xlsm").Activate
    Sheets("9").Select    '[color=green] макет для 8 участников
    Sheets("9").Copy After:=Workbooks(Книга В..xlsm").ActiveSheet
      Windows(Книга Б..xlsm").Activate
    Range("B3:F314").Select
    Selection.Copy
     Windows("Книга В.xlsm").Activate
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
     Windows("Книга Б..xlsm").Activate
    Range("A2:S2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(Книга В..xlsm").Activate
    Range("A2:S2").Select
    ActiveSheet.Paste

и т.д.

        End If
end Sub

[/vba]

Код

[/vba]amaksimus85

К сообщению приложен файл: 3840739.xls (442.0 Kb) · 9953371.xls (114.0 Kb) · 4206750.xls (260.0 Kb)

Ответить

СообщениеПриветствую, дорогие форумчане.
При написании программы проведения соревнований, создал макрос, который будет очень большим, что прибавит много рутинной работы.
Суть такая: Книга А (макет с таблицами для разного количества участников), Книга Б (протокол взвешивания участников), Книга В (турнирная сетка).
Мой макрос копирует определенный лист из Книги А (в зависимости от участников взвешивания в Книге Б) в Книгу В.

[vba]

Код