здравствуйте! Я к вам с вопросом. Задача стоит в следующем: Есть таблица в ней отображается успеваемость студентов. Нужно с помощью переключателей вывести не Больше трех лучших студентов и не БОЛЬШЕ трех худших . У меня выводится, но не столько студентов сколько надо, надо какой-то критерий отбора написать, не могли бы пожалуйста помочь
здравствуйте! Я к вам с вопросом. Задача стоит в следующем: Есть таблица в ней отображается успеваемость студентов. Нужно с помощью переключателей вывести не Больше трех лучших студентов и не БОЛЬШЕ трех худших . У меня выводится, но не столько студентов сколько надо, надо какой-то критерий отбора написать, не могли бы пожалуйста помочьrubin
Sub ListCountries(func As Boolean) Application.ScreenUpdating = False With Range("A13").CurrentRegion .Sort Key1:=.Cells(1, 7), Order1:=IIf(func = True, xlAscending, xlDescending), Header:=xlYes Range("G3:G5").Value = .Columns(1).Offset(1).Resize(3).Value .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
If func Then Range("G1").Value = "Максимальная оценка " & WorksheetFunction.Max(.Columns(7)) Range("G2").Value = "Ученики с хорошей оценкой:" Else Range("G1").Value = "Минимальная оценка " & WorksheetFunction.Min(.Columns(7)) Range("G2").Value = "Ученики с плохой оценкой:" End If End With Application.ScreenUpdating = True End Sub
[/vba]
вот например [vba]
Код
Sub ListCountries(func As Boolean) Application.ScreenUpdating = False With Range("A13").CurrentRegion .Sort Key1:=.Cells(1, 7), Order1:=IIf(func = True, xlAscending, xlDescending), Header:=xlYes Range("G3:G5").Value = .Columns(1).Offset(1).Resize(3).Value .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes
If func Then Range("G1").Value = "Максимальная оценка " & WorksheetFunction.Max(.Columns(7)) Range("G2").Value = "Ученики с хорошей оценкой:" Else Range("G1").Value = "Минимальная оценка " & WorksheetFunction.Min(.Columns(7)) Range("G2").Value = "Ученики с плохой оценкой:" End If End With Application.ScreenUpdating = True End Sub
nilem, как то не так он выводит результат,мне нужно чтобы не БОЛЬШЕ ТРЕХ человек он выводил и еще он не те фамилии выводит он худших выводит а пишет,что лучшие. Пожалуйста не могли бы объяснить как сделать
nilem, как то не так он выводит результат,мне нужно чтобы не БОЛЬШЕ ТРЕХ человек он выводил и еще он не те фамилии выводит он худших выводит а пишет,что лучшие. Пожалуйста не могли бы объяснить как сделать rubin
Сообщение отредактировал rubin - Суббота, 29.10.2016, 19:45