Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Фильтр исходных данных в сводной таблице, Все скрывает
 
Тогда так :)
Фильтр исходных данных в сводной таблице, Все скрывает
 
Так?
Объединение нескольких повторяющихся на одном листе таблиц
 
Можно формулой.
Макрос удаления похожих строк, удаление строк с одинаковым значением поля.
 
to Hugo
Она вышла из зоны см 15 и 24 строки  ;)
Макрос удаления похожих строк, удаление строк с одинаковым значением поля.
 
Так?
Веб-запрос для экспорта нескольких таблиц со страниц, Возможность запроса с веб-страниц, отличающихся URL, данных таблиц с одинаковой шапкой
 
Так должно быть быстрее. На всем списке не проверял, на 25 страниц выгружает меньше чем за секунду.
Фильтр на основе combobox в vba excel
 
Смотрите.
Фильтр на основе combobox в vba excel
 
Примерно так.
Завимость данных в ячейки от значения в другой
 
Можно так.
Что можно применить вместо функции суммпроизв с условиями, но для диапазонов с различным числом строк?
 
Чисто теоретически можно написать формулу через суммпроизв(), но т.к. по вашим словам может быть множество производимых продуктов и сырья, то она работать будет не очень быстро.
Может лучше это делать макросом?
Креативная визуализация в сценарном анализе
 
В 2013 Excel нечто подобно реализовано штатными средствами ссылка см. Анимация диаграмм. А если хочется чего-то более сложного и в более ранних версиях Excel придется использовать макросы.
Добавить товар в карточку клиента
 
Ну правильно, вы же сами закоментировали строку
If sFirm = strFirma Then


Этот кусок кода должен выглядеть так:
Код
 If OtchetPo.Cells(i, 1).Value <= DateFinish Then
If OtchetPo.Cells(i, 6) <> "" Then sFirm = OtchetPo.Cells(i, 6)
If sFirm = strFirma Then
Добавить товар в карточку клиента
 
Когда писал не проверил, там опечатка :) Исправьте
If Othetpo.Cells(i, 6) <> "" Then sFirm = Othetpo.Cells(i, 6)
на
If Otchetpo.Cells(i, 6) <> "" Then sFirm = Otchetpo.Cells(i, 6)
Добавить товар в карточку клиента
 
Добавьте одно условие
Код
If OtchetPo.Cells(i, 1).Value <= DateFinish Then
                    If Othetpo.Cells(i, 6) <> "" Then sFirm = Othetpo.Cells(i, 6)
                    If sFirm = strFirma Then
Разные номенклатурные названия одного товара как их идентифицировать
 
Посмотрите данную тему
Копирование текста из OLE объекта Word
 
так.
Изменение шрифта цвета в зависимости от значения числа.
 
Установите такой формат для нужных ячеек
[Зеленый]# ##0,00;[Красный]-# ##0,00;[Синий]0,00
Удаление точки в конце строки, ... но точки проставлены не во всех строках.
 
Код
=ПСТР(A1;1;ЕСЛИ(ПРАВСИМВ(A1;1)=".";ДЛСТР(A1)-1;ДЛСТР(A1)))
Автозаполнение с изменением числа в тексте
 
Можно использовать формулу
Код
="Клиент " &СТРОКА(1:1)& " новый"

Можно создать список - Параметры Excel - изменить списки и здесь создать нужный список, правда , придется перечислить все возможные номера.
Изменено: sva - 16.07.2013 13:04:58
Формула ЕСЛИ показывает не верно и проверки на нулевую разницу
 
Это особенности округления в Excel. Если прогнать формулу в пошаговом режиме, то вы увидете, что А1-В1=4,656...E-10, а это не равно 0.

Используйте округления в формуле или меняйте формулу на, что-то подобное
Код
=ЕСЛИ(B1=A1;;ЛОЖЬ)
Изменено: sva - 16.07.2013 12:53:27
Подтянуть параметры к кодам.
 
Тогда можно так.
Подтянуть параметры к кодам.
 
А вы попробуйте, неважно сколько строк, важно через какой промежуток они идут.
Формула в примере берет каждое пятое значение. Если параметров будет не 5, а 3, то в формуле меняйте *5 на *3. А вот если у вас в диапазоне могут быть разные промежутки, тогда все усложняется :)
Подтянуть параметры к кодам.
 
Так?
как добавить количество ячеек в формуле макроса на выделение
 
Если правильно понял
Код
Sub IntervalCellSelect()
Dim intFirstRow As Integer ' Первая строка для выделения
Dim intLastRow As Integer ' Последняя строка для выделения
Dim rgCells As Range ' Объединение выделяемых ячеек
Dim intRow As Integer

intFirstRow = 3
intLastRow = 300

' Формирование объединения ячеек в столбце "B" от строки _
intFirstRow до строки intLastRow с шагом 3
For intRow = intFirstRow To intLastRow Step 3
If rgCells Is Nothing Then
' Первая ячейка в объединении
Set rgCells = Range(Cells(intRow, 1), Cells(intRow, 3))
Else
' Добавление очередной ячейки в объединение
Set rgCells = Union(rgCells, Range(Cells(intRow, 1), Cells(intRow, 3)))
End If
Next
' Выделение всех ячеек в объединении
rgCells.Select
End Sub
Проставить дату в ячейках выделенного, отфильтрованного диапазона
 
KukIP, да что-то я усложняю :)
Проставить дату в ячейках выделенного, отфильтрованного диапазона
 
Так?
Код
Sub Дата()
For Each ss In Selection.SpecialCells(xlCellTypeVisible)
ss.Value = Date
Next
End Sub
Изменено: sva - 12.07.2013 20:10:57
Уменьшить размер файла (Индексы много весят)
 
Вот набросал простой пример.
По-поводу чем заменить вашу формулу, без примера ваших файлов точный код вам не напишут, а так
1)цикл по столбца с поиском значения из B41
2)цикл по найденному выше столбцу значения 87887
3)подстановка найденного значения или в массив или сразу на лист
Уменьшить размер файла (Индексы много весят)
 
Я вам даже больше скажу, можно вообще обойтись без формул в коде, а использовать другие методы.
В вашем случае открываете файл исходник, забираете из него данные в массив, и уже в массиве ищите нужные вам данные по условиям.
Гиперссылка - e-mail - outlook.
 
Делайте так
=ГИПЕРССЫЛКА("mailto:"&Петров!C4;Петров!C4)
Работа с уникальными значениями в диапазоне
 
Макрос.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 35 След.
Наверх