Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание макроса, для выделение ячеек по критерию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание макроса, для выделение ячеек по критерию. (Формулы/Formulas)
Создание макроса, для выделение ячеек по критерию.
Pyryaev_Igor Дата: Пятница, 18.12.2015, 23:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Требуется написать макрос, который выделит в указанном списке фамилии тех, кто получил по указанной дисциплине балл выше среднего. Название дисциплины вводится. Список прикреплен.
К сообщению приложен файл: 4754066.xls (78.5 Kb)
 
Ответить
СообщениеТребуется написать макрос, который выделит в указанном списке фамилии тех, кто получил по указанной дисциплине балл выше среднего. Название дисциплины вводится. Список прикреплен.
Автор - Pyryaev_Igor
Дата добавления - 18.12.2015 в 23:28
Nic70y Дата: Суббота, 19.12.2015, 10:43 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9141
Репутация: 2416 ±
Замечаний: 0% ±

Excel 2010
Цитата Pyryaev_Igor, 18.12.2015 в 23:28, в сообщении № 1
по указанной дисциплине
по какой это? или я чего-то не понимаю :(

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Pyryaev_Igor, 18.12.2015 в 23:28, в сообщении № 1
по указанной дисциплине
по какой это? или я чего-то не понимаю :(
Автор - Nic70y
Дата добавления - 19.12.2015 в 10:43
SLAVICK Дата: Суббота, 19.12.2015, 12:33 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Так?
Дисциплину выбрать из списка в зеленой ячейке.

Только не понял выше среднего. Среднее по всем балам за дисциплину или среднее по дисциплинам в фамилии?
Не увидел про макрос - сделал с УФ.

Перевложил файл с УФ и макросом
К сообщению приложен файл: 0656649.rar (23.7 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Суббота, 19.12.2015, 12:57
 
Ответить
СообщениеТак?
Дисциплину выбрать из списка в зеленой ячейке.

Только не понял выше среднего. Среднее по всем балам за дисциплину или среднее по дисциплинам в фамилии?
Не увидел про макрос - сделал с УФ.

Перевложил файл с УФ и макросом
Автор - SLAVICK
Дата добавления - 19.12.2015 в 12:33
Pyryaev_Igor Дата: Суббота, 19.12.2015, 12:39 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Цитата SLAVICK, 19.12.2015 в 12:33, в сообщении № 3
Только не понял выше среднего. Среднее по всем балам за дисциплину или среднее по дисциплинам в фамилии?
К сообщению приложен файл: 0656649.xls(82Kb)


Выше среднего по баллам за дисциплину
 
Ответить
Сообщение
Цитата SLAVICK, 19.12.2015 в 12:33, в сообщении № 3
Только не понял выше среднего. Среднее по всем балам за дисциплину или среднее по дисциплинам в фамилии?
К сообщению приложен файл: 0656649.xls(82Kb)


Выше среднего по баллам за дисциплину
Автор - Pyryaev_Igor
Дата добавления - 19.12.2015 в 12:39
Pyryaev_Igor Дата: Суббота, 19.12.2015, 12:42 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Цитата SLAVICK, 19.12.2015 в 12:33, в сообщении № 3
Не увидел про макрос - сделал с УФ.


Вот как раз с УФ я понимаю как сделать. А как макрос - нет.
 
Ответить
Сообщение
Цитата SLAVICK, 19.12.2015 в 12:33, в сообщении № 3
Не увидел про макрос - сделал с УФ.


Вот как раз с УФ я понимаю как сделать. А как макрос - нет.
Автор - Pyryaev_Igor
Дата добавления - 19.12.2015 в 12:42
SLAVICK Дата: Суббота, 19.12.2015, 12:55 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Макросом:
[vba]
Код
Sub Макрос1()
Dim sr#, disc$, i%, ii&
Range("a10:a100").Interior.Pattern = xlNone
disc$ = [c2]
sr# = [d2]
For i = 3 To 7
    If Cells(9, i) = disc Then Exit For
Next
i = i - 1
For Each c In Range("a10:a100")
    If c.Offset(0, i) > sr Then c.Interior.Color = 5296274
Next
End Sub
[/vba]
К сообщению приложен файл: 0656649-1-.rar (25.2 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеМакросом:
[vba]
Код
Sub Макрос1()
Dim sr#, disc$, i%, ii&
Range("a10:a100").Interior.Pattern = xlNone
disc$ = [c2]
sr# = [d2]
For i = 3 To 7
    If Cells(9, i) = disc Then Exit For
Next
i = i - 1
For Each c In Range("a10:a100")
    If c.Offset(0, i) > sr Then c.Interior.Color = 5296274
Next
End Sub
[/vba]
Автор - SLAVICK
Дата добавления - 19.12.2015 в 12:55
ShAM Дата: Суббота, 19.12.2015, 13:28 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
[offtop]
Цитата Nic70y, 19.12.2015 в 10:43, в сообщении № 2
по какой это? или я чего-то не понимаю
Коля, ты не одинок. Лучше иди к гостям ;)
Пусть Слава разбирается. :D
[/offtop]
 
Ответить
Сообщение[offtop]
Цитата Nic70y, 19.12.2015 в 10:43, в сообщении № 2
по какой это? или я чего-то не понимаю
Коля, ты не одинок. Лучше иди к гостям ;)
Пусть Слава разбирается. :D
[/offtop]
Автор - ShAM
Дата добавления - 19.12.2015 в 13:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Создание макроса, для выделение ячеек по критерию. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!