не могу разобраться в макросе - Microsoft Office Excel

Finist · 26.10.2012, 15:48

Rows("4:5").Select
Selection.Insert Shift:=xlDown
Sheets("Техданные").Select
Range("A44").Select
Selection.Copy
Sheets("1ОБМ").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-3
Sheets("Техданные").Select
Range("A45").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1ОБМ").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Техданные").Select
Range("A39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1ОБМ").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Техданные").Select
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1ОБМ").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=0
Range("C1:Q1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C5").SelecККt
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1:Q1").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.ClearContents

Всем привет, в макросах я совсем новичок, подскажите, что делает этот макрос или линканите ссылку, где можно посмотреть значение каждого тега)
Заранее спасибо.

EducatedFool · 26.10.2012, 16:05

Код:

Rows("4:5").Select

выделение 4 и 5 строки

Код:

Selection.Insert Shift:=xlDown

вставка из буфера обмена

Код:

Sheets("Техданные").Select
Range("A44").Select
Selection.Copy

выделение листа ТЕХЗАДАНИЕ
выделение ячейки на нем
копирование этой ячейки

Код:

Sheets("1ОБМ").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

выделение листа 1ОБМ
вставка данных, начиная с выделенной ячейки B4

Код:

ActiveWindow.SmallScroll Down:=-3

лишняя строка (прокрутка листа)

Код:

Selection.ClearContents

очистка выделенного диапазона

в остальном, по аналогии, разберетесь самостоятельно

Finist · 26.10.2012, 16:25

Спасибо, очень помогли.

alex77755 · 28.10.2012, 00:13

Сорри, но уточню:

Код:

Rows("4:5").Select
 Selection.Insert Shift:=xlDown

Вставка 2 строк выше четвёртой строки

Finist · 01.11.2012, 09:05

Доброе утро)
А в этом о чем не подскажете?)

Sub НД_1()
'
' НД_1 Макрос
'
' Сочетание клавиш: Ctrl+q
'

ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Add Key:=Range( _
"C2:C970"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Add Key:=Range( _
"B2:B970"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

26.10.2012, 15:48	#1
Finist Регистрация: 26.10.2012 Сообщений: 3	не могу разобраться в макросе Rows("4:5").Select Selection.Insert Shift:=xlDown Sheets("Техданные").Select Range("A44").Select Selection.Copy Sheets("1ОБМ").Select Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=-3 Sheets("Техданные").Select Range("A45").Select Application.CutCopyMode = False Selection.Copy Sheets("1ОБМ").Select Range("B5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Техданные").Select Range("A39").Select Application.CutCopyMode = False Selection.Copy Sheets("1ОБМ").Select Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Техданные").Select Range("A52").Select Application.CutCopyMode = False Selection.Copy Sheets("1ОБМ").Select Range("A5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll Down:=0 Range("C1:Q1").Select Application.CutCopyMode = False Selection.Copy Range("C4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C5").SelecККt Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C1:Q1").Select Application.CutCopyMode = False Selection.ClearContents Selection.ClearContents Всем привет, в макросах я совсем новичок, подскажите, что делает этот макрос или линканите ссылку, где можно посмотреть значение каждого тега) Заранее спасибо.

26.10.2012, 16:05	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `Rows("4:5").Select` выделение 4 и 5 строки Код: `Selection.Insert Shift:=xlDown` вставка из буфера обмена Код: `Sheets("Техданные").Select Range("A44").Select Selection.Copy` выделение листа ТЕХЗАДАНИЕ выделение ячейки на нем копирование этой ячейки Код: `Sheets("1ОБМ").Select Range("B4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False` выделение листа 1ОБМ вставка данных, начиная с выделенной ячейки B4 Код: `ActiveWindow.SmallScroll Down:=-3` лишняя строка (прокрутка листа) Код: `Selection.ClearContents` очистка выделенного диапазона в остальном, по аналогии, разберетесь самостоятельно __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

28.10.2012, 00:13	#4
alex77755 Форумчанин Регистрация: 14.02.2009 Сообщений: 753	Сорри, но уточню: Код: `Rows("4:5").Select Selection.Insert Shift:=xlDown` Вставка 2 строк выше четвёртой строки помогу решить контрольные VB6, VBA (недорого) Alex77755@mail.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разобраться в простом макросе (копирование ячеек поочередно из разных файлов)	Ник Харди	Microsoft Office Excel	5	20.12.2011 15:44
C++: не могу разобраться...=(	Алиса Ростова	Помощь студентам	0	03.12.2011 15:27
не могу разобраться	Var17	Общие вопросы Delphi	6	27.03.2010 01:21
Не могу разобраться	Lokin	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	22.03.2010 22:45
НЕ МОГУ РАЗОБРАТЬСЯ...	GSV84	HTML и CSS	0	03.02.2010 01:38

26.10.2012, 16:25	#3
Finist Регистрация: 26.10.2012 Сообщений: 3	Спасибо, очень помогли.

01.11.2012, 09:05	#5
Finist Регистрация: 26.10.2012 Сообщений: 3	Доброе утро) А в этом о чем не подскажете?) Sub НД_1() ' ' НД_1 Макрос ' ' Сочетание клавиш: Ctrl+q ' ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Add Key:=Range( _ "C2:C970"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort.SortFields.Add Key:=Range( _ "B2:B970"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("1ОБМ").A utoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub