|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.10.2012, 15:48 | #1 |
Регистрация: 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 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
Код:
Код:
выделение ячейки на нем копирование этой ячейки Код:
вставка данных, начиная с выделенной ячейки B4 Код:
Код:
в остальном, по аналогии, разберетесь самостоятельно |
26.10.2012, 16:25 | #3 |
Регистрация: 26.10.2012
Сообщений: 3
|
Спасибо, очень помогли.
|
28.10.2012, 00:13 | #4 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Сорри, но уточню:
Код:
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
01.11.2012, 09:05 | #5 |
Регистрация: 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 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разобраться в простом макросе (копирование ячеек поочередно из разных файлов) | Ник Харди | 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 |