| Вопрос: VBA в Excel. Помогите разобраться. | Добавлено: 08.08.06 23:26 |
Автор вопроса:  den
|
|
Доброго всем времени суток!
Помогите разобраться с такой задачей. Есть лист Excel. В нем два столбца. В первом - наименования отделов. Во-втором - показатели отделов (числа от 0 до 5). Необходимо выбрать отделы у которых показатель = 3,6 и сформировать список этих отделов в другой книге. Вот что я написал: Sub expire() Workbooks.add 'создаем новую книгу для сохранения в ней списка отделов With ActiveWorkbook .SaveAs Filename:="C:\Select.xls" End With Dim x As Worksheet, y As Worksheet Set y = Workbooks("Select.xls").Worksheets("Лист1") 'новая книга Set x = Workbooks("HR.xls").Worksheets("Фонды_подразделений") 'книга из которой необходимо данные взять x.Activate ActiveSheet.Outline.ShowLevels RowLevels:=3 'третий уровень структуры листа For Each c In Range("d7:d140") If c = 3.6 Then 'если показатель = 3,6 c.Select ActiveCell.Offset(0, -1).copy 'то активируем ячейку в соседнем столбце с наименов. отдела y.Activate ???????????????????? ???????????????????? End If Next c End Sub Заранее спасибо за ответы. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | Цитата | #1 | Добавлено: 08.08.06 23:44 |
|
Данные - Фильтр - Автофильтр.
Фильтр по 3.6 Скопировать. |
||
Страница: 1 |