Макрос для вывода определенных значений на другой лист

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для вывода определенных значений на другой лист (Формулы/Formulas)

yakutt-1573

Дата: Понедельник, 30.01.2017, 19:40 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2013

Здравствуйте!
Помогите, пожалуйста, с написанием макроса - если это возможно?!
Есть основной лист с базой, необходимо по заданным критериям, а именно оценка ученика, вывести все строки в отдельный лист согласно оценки.
То есть, если ученики получили 2, то вывести их на лист 2, если 3 то на 3 и тд.
В примере файл, где листы с оценками были заполнены вручную - вдруг просто непонятно объяснил.
Заранее благодарен за ответ!

К сообщению приложен файл: 1739771.xlsx (14.2 Kb)

Ответить

Pelena

Дата: Понедельник, 30.01.2017, 20:07 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Непонятно, зачем на листах все столбцы, но... как просили

К сообщению приложен файл: 1739771.xlsm (23.6 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

bmv98rus

Дата: Понедельник, 30.01.2017, 20:25 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

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

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

Excel 2013/2016

yakutt-1573,
и без макросов, как не просили, но с тем же результатом.
[offtop]Эх а у нас у математика в старших классах система оценок была от 1-,1,1+,2-,2,2+, 3-, 3 еле, 3еле еле, 3,3+,.......... 5+ [/offtop]

К сообщению приложен файл: Copy_of_1739771.xlsx (18.0 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Понедельник, 30.01.2017, 21:00

Ответить

yakutt-1573

Дата: Понедельник, 30.01.2017, 21:48 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2013

Pelena, спасибо!
А как будет если только нужный столбец выводить на листе?

Ответить

bmv98rus

Дата: Понедельник, 30.01.2017, 21:54 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

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

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

Excel 2013/2016

yakutt-1573,
А зачем эти столбцы ваще? Вам же список "двоечников" надо получить.

К сообщению приложен файл: 8198790.xlsx (17.4 Kb)

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Pelena

Дата: Понедельник, 30.01.2017, 22:06 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата yakutt-1573, 30.01.2017 в 21:48, в сообщении № 4 ()

нужный столбец

[vba]

Код

Sub www()
    Dim o&
    Application.ScreenUpdating = False
    For o = 2 To 5
        Sheets(CStr(o)).[A1].CurrentRegion.ClearContents
        With Sheets("ОСНОВНОЙ").[A1].CurrentRegion
            .AutoFilter Field:=o + 2, Criteria1:="=" & o
            .Columns(1).SpecialCells(12).Copy Sheets(CStr(o)).[A1]
            .Columns(2).SpecialCells(12).Copy Sheets(CStr(o)).[B1]
            .Columns(o + 2).SpecialCells(12).Copy Sheets(CStr(o)).[C1]
            .Parent.AutoFilterMode = 0
        End With
    Next o
    Application.ScreenUpdating = True
End Sub

[/vba]
Если нужен только список фамилий, то удалите строчку
[vba]

Код

.Columns(o + 2).SpecialCells(12).Copy Sheets(CStr(o)).[C1]

[/vba]