amaksimus85
Дата: Пятница, 08.07.2022, 00:30 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Приветствую, дорогие форумчане. При написании программы проведения соревнований, создал макрос, который будет очень большим, что прибавит много рутинной работы. Суть такая: Книга А (макет с таблицами для разного количества участников), Книга Б (протокол взвешивания участников), Книга В (турнирная сетка). Мой макрос копирует определенный лист из Книги А (в зависимости от участников взвешивания в Книге Б) в Книгу В.
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
Приветствую, дорогие форумчане. При написании программы проведения соревнований, создал макрос, который будет очень большим, что прибавит много рутинной работы. Суть такая: Книга А (макет с таблицами для разного количества участников), Книга Б (протокол взвешивания участников), Книга В (турнирная сетка). Мой макрос копирует определенный лист из Книги А (в зависимости от участников взвешивания в Книге Б) в Книгу В.
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
amaksimus85
Ответить
Сообщение Приветствую, дорогие форумчане. При написании программы проведения соревнований, создал макрос, который будет очень большим, что прибавит много рутинной работы. Суть такая: Книга А (макет с таблицами для разного количества участников), Книга Б (протокол взвешивания участников), Книга В (турнирная сетка). Мой макрос копирует определенный лист из Книги А (в зависимости от участников взвешивания в Книге Б) в Книгу В. [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 Тhen 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:=xlPasteValuesAndЧumberFormats, Operation:= _ xlЧone, SkipBlanks:=False, Тranspose:=False Windows("Книга Б..xlsm ").Activate Range("A2:S2 ").Select Application.CutCopyMode = False Selection.Copy Windows(Книга В..xlsm").Activate Range("A2:S2").Select ActiveSheet.Paste и т.д. End Ifend Sub
[/vba] Автор - amaksimus85 Дата добавления - 08.07.2022 в 00:30
Serge_007
Дата: Пятница, 08.07.2022, 09:57 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
amaksimus85 , Вы точно разделом не ошиблись?
amaksimus85 , Вы точно разделом не ошиблись?Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение amaksimus85 , Вы точно разделом не ошиблись?Автор - Serge_007 Дата добавления - 08.07.2022 в 09:57
amaksimus85
Дата: Суббота, 09.07.2022, 14:17 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Serge_007, Я здесь новенький. подскажите, что не так. С правилами ознакомился
Serge_007, Я здесь новенький. подскажите, что не так. С правилами ознакомился amaksimus85
Ответить
Сообщение Serge_007, Я здесь новенький. подскажите, что не так. С правилами ознакомился Автор - amaksimus85 Дата добавления - 09.07.2022 в 14:17