Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » msugak
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Подсчет количества повторов значения в видимом диапазоне
 
#
12.11.2014 10:03:23
Добрый день!
Уважаемые знатоки, прошу помощи, ломаю голову над формулой для подсчета количества повторов значения в видимом диапазоне.
Пример таблицы во вложении. Нужно в ячейке E2 подсчитать количество повторов значения D2 в диапазоне D2:25 ( [Сцепка] ;)  в видимом диапазоне. Такую же формулу в каждую ячейку диапазона E2:E25.
К примеру, если выбрать фильтром две даты 25.09.2014, 29.10.2014 то в ячейках E2 и Е3 должно быть значения 2, в остальных 1.
Считать количество уникальных по столбцу D (ячейка D26) получается, но как сделать из вертикальной, горизонтальную формулу в голову не приходит...
 
Перейти    
Оптимизация кода макроса для проверки наличия значения в столбце
 
#
25.09.2013 12:04:56
Есть задача - имеется таблица на ~ 700 столбцов, необходимо выполнять проверку каждой ячейки в диапазоне начиная с 22 строки до последней заполненной в каждом столбце (начиная с I), если хоть одна из ячеек этого диапазона непустая, то в первую строку столбца вноситься значение, к примеру буква "р".
Пока приходит в голову только такой код:
Код
 Set ra0 = Range([I22], Range("I" & Rows.Count).End(xlUp))
 For Each cell In ra0.Cells
 If cell = "" Then Range("Лист1!I1" ;) .Value = ""
 If cell <> "" Then Range("Лист1!I1" ;) .Value = "p"
 Next cell
 
 Set ra1 = Range([J22], Range("J" & Rows.Count).End(xlUp))
 For Each cell In ra1.Cells
 If cell = "" Then Range("Лист1!J1" ;) .Value = ""
 If cell <> "" Then Range("Лист1!J1" ;) .Value = "p"
 Next cell
 
 Set ra2 = Range([K22], Range("K" & Rows.Count).End(xlUp))
 For Each cell In ra2.Cells
 If cell = "" Then Range("Лист1!K1" ;) .Value = ""
 If cell <> "" Then Range("Лист1!K1" ;) .Value = "p"
 Next cell

Очень прошу знатоков помочь с оптимизацией, т.к. дублирование такого кода для 700 столбцов это капец...
Спасибо заранее!
 
Перейти    
Проверка всех ячеек столбца и запись слова в ячейку другого столбца, макрос
 
#
22.08.2013 10:03:18
Добрый день!

Прошу от знатоков помощи в написании макроса. Задача такая, есть таблица, в столбец F вноситься номер договора, необходим макрос, который проверит все ячейки столбца F (строк в таблице может быть до 500):
- в случае если ячейка не пустая, добавит "да" в соответствующую ячейку столбца В
- а если ячейка пустая, добавит в столбце С перед названием города *.
Таблица с примером, а также с ожидаемым результатом (второй лист) во вложении.

Спасибо заранее!
 
Перейти    
Фильтр на основе combobox в vba excel
 
#
22.07.2013 16:09:21
Добрый день! Просьба помочь с написание кода для решения такой задачи: есть книга excel с двумя листами (файл во вложении), на первом листе расположена таблица с 6 столбцами, под ней две кнопки, которые запускают формы через которые выполняется наполнение таблицы, на втором листе расположен справочник городов. Наполнение таблицы реализовано через две формы, т.к. работать с каждой из них должны разные люди, к примеру один человек заполняет перечень город и адресов с помощью первой формы (код для нее удалось написать самостоятельно), потом человек из города Винница, с помощью второй формы, а именно Combobox'а Город, выбирает Винница и получает в Combobox'е Адрес только те адреса, которые соответствуют этому городу и заполняет дополнительную информацию через textbox'ы, тем самым наполняя таблицу. Вопрос, как заставить вторую форму работать? Надеюсь на помощь, подсказку или готовое решение!
 
Перейти    
Страницы: 1
Наверх