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

Страницы: 1
Подсчет количества повторов значения в видимом диапазоне
 
#
12.11.2014 13:02:06
GeorgeDark,спасибо! То что нужно, буду разбираться в формуле!
 
Перейти    
Подсчет количества повторов значения в видимом диапазоне
 
#
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:50:19
Все получилось вот так:
Код
 Dim iCol As Integer, lastRow As Long
 
 For iCol = 9 To 700
 lastRow = Cells(Rows.Count, iCol).End(xlUp).Row
 Set ra0 = Range(Cells(22, iCol), Cells(lastRow, iCol))
 For Each cell In ra0.Cells
 If cell = "" Then Cells(1, iCol) = ""
 If cell <> "" Then Cells(1, iCol) = "p"
 Next cell
 Next

Всем спасибо за помощь!
 
Перейти    
Оптимизация кода макроса для проверки наличия значения в столбце
 
#
25.09.2013 12:37:16
Проблема в том, что в обоих предложенных решениях, буква "р" в первой ячейке столбца проставляется даже  тогда когда в диапазоне (с 22 строки по последнюю заполненную) ничего нету... Поэтому вариант с Else не подойдет. Спасибо!
 
Перейти    
Оптимизация кода макроса для проверки наличия значения в столбце
 
#
25.09.2013 12:25:11
Попробовал оба варианта, букву "р" проставляют оба. Но все равно работает чуть-чуть не так. Нужно чтобы, если в диапазоне (с 22 по последнюю заполненную) значений нету, буква "p" не проставлялась или удалялась если она есть. В этом и есть суть проверки всех столбцов.
 
Перейти    
Оптимизация кода макроса для проверки наличия значения в столбце
 
#
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 11:39:43
Спасибо!
 
Перейти    
Проверка всех ячеек столбца и запись слова в ячейку другого столбца, макрос
 
#
22.08.2013 10:38:54
Макрос нужен на кнопку.

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

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

Спасибо заранее!
 
Перейти    
Фильтр на основе combobox в vba excel
 
#
24.07.2013 11:17:41
С предыдущими примерами разобрался! Спасибо за помощь!
Если не сложно, прошу также помощи в таком примере. Из таблицы удален столбец "Город". Теперь в первой форме вводиться только адрес и количество этажей. Необходимо реализовать (но не знаю как), чтобы во второй форме в combobox'е "адрес" появлялись значения адресов, при выборе одного из них, заполнялось соответствующее ему значения "количества этаже", при нажатии на кнопку сохранить введенные в форму значения "количество квартир" и "количество жильцов" переносились в таблицу. Еще интересно, возможно ли сделать такой код, чтобы в  combobox'е "адрес" появлялись только значения адресов для которых "количество квартир" и "количество жильцов" не заполнены.
Файл во вложении. Если есть время и возможность прошу помочь.
Спасибо заранее!
 
Перейти    
Фильтр на основе combobox в vba excel
 
#
23.07.2013 14:55:11
Роман, огромное спасибо! Особенно за комментарии!
 
Перейти    
Фильтр на основе combobox в vba excel
 
#
23.07.2013 11:04:52
Роман, спасибо за ответ! Пытаюсь разобраться с принципом действия...
А если усложнить задачу (файл во вложении), в первой форме будут вводиться не только город и адрес, а плюс к этому количество этажей. А на второй форме, при выборе города и адреса из combobox'ов должно подставляться значения "Количество этажей", которое им соответствует. Количество квартир и жильцов заполняються в таблицу при нажатии кнопки сохранить. При таком варианте сильно усложниться код?
Заранее спасибо за помощь!!!
 
Перейти    
Фильтр на основе combobox в vba excel
 
#
22.07.2013 16:09:21
Добрый день! Просьба помочь с написание кода для решения такой задачи: есть книга excel с двумя листами (файл во вложении), на первом листе расположена таблица с 6 столбцами, под ней две кнопки, которые запускают формы через которые выполняется наполнение таблицы, на втором листе расположен справочник городов. Наполнение таблицы реализовано через две формы, т.к. работать с каждой из них должны разные люди, к примеру один человек заполняет перечень город и адресов с помощью первой формы (код для нее удалось написать самостоятельно), потом человек из города Винница, с помощью второй формы, а именно Combobox'а Город, выбирает Винница и получает в Combobox'е Адрес только те адреса, которые соответствуют этому городу и заполняет дополнительную информацию через textbox'ы, тем самым наполняя таблицу. Вопрос, как заставить вторую форму работать? Надеюсь на помощь, подсказку или готовое решение!
 
Перейти    
Страницы: 1
Наверх