Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 131 След.
автоматическая Группировка и суммирование необходимых ячеек
 
Добрый день. Покажите пример конечного результата (как вы его видите). В представленном примере ни упомянутой формулы, ни группировки нет. И вообще, может быть имеет смысл решить задачу проще? Например, создать таблицу, в которой будет отражено: дата, поставщик, № соглашения, вид документа (контракт, платеж), счет, сумма.
Заполнили для контракта 1 поля, для контракта 2 поля, потом заполняете по платежам и опять же - повторяете в каждой строке № контракта. А потом через сортировку по полю контракт и итоговой сумме в таблице получаете контракт и платежи.
Кому решение нужно - тот пример и рисует.
Автоматическое создание листов по примеру
 
Листов не видно, поэтому для начала можно почитать тут.
Кому решение нужно - тот пример и рисует.
Фильтр по строкам и столбцам одновременно, Скрыты все столбцы и строки, где не фигурирует введенное значение
 
Здравствуйте. Почему в "идеале" не скрыты столбцы 16.08.2019 и далее? Там нет 101. Почему не скрыты столбцы с значением "администр"? Почему не скрыта строка №8 - там значение 100(173,6) но не 101?
Кому решение нужно - тот пример и рисует.
Макрос ошибается при записи сокращенной даты, вместо августа 2019 выводит сентябрь 2019
 
Добрый день.
Строку макроса:
Код
j = DateAdd("m", 1, j)
'заменить на:
j = DateAdd("m", 1, DateSerial(Year(j), Month(j), 1))

При проходе цикла, поскольку шаг цикла не указан явно, по умолчанию он =1. В теле цикла изменяется переменная j, ей присваивается значение даты, отстоящей на месяц от первоначальной, а потом, инструкция NEXT j добавляет еще единицу к значению j, т.е. если в переменной было 1 января 2017 то на следующем шаге будет 02 февраля 2017 и так далее. И таким образом набегает месяц (в этот раз не повезло августу 2019) :)
Для исключения этого, чтобы сильно макрос не курочить, предлагается на каждом шаге цикла устанавливать в j значение первого числа обрабатываемого месяца и года через функцию DataSerial. Таким образом хотя сдвиг за счет инструкции NEXT все равно будет, но каждый раз в цикле он будет отменен и максимальная дата месяца, которая будет попадать в переменную j - второе число месяца (а не пятое и не тридцать первое).
Кому решение нужно - тот пример и рисует.
Макрос ошибается при записи сокращенной даты, вместо августа 2019 выводит сентябрь 2019
 
Без файла с образцом обрабатываемых данных трудно сказать. Сразу видно только, что при объявлении переменных тип Date будет иметь только переменная sd.
Чтобы все задуманные переменные имели тип Date, надо так:
Код
Dim StartDate As Date, j As Date, sd As Date

Ну и по остальным объявлениям переменных тоже самое.
Кому решение нужно - тот пример и рисует.
Добавление строк ниже, если выбрано определенное значение в выпадающем списке
 
Orrange, я с удовольствием поверю, когда увижу как формулами добавляются строки в таблицу. Ну, или столбцы. :)
Кому решение нужно - тот пример и рисует.
Добавление строк ниже, если выбрано определенное значение в выпадающем списке
 
Я так думаю, что через формулы (с учетом ВСЕХ хотелок к файлу) не выйдет. Думаю, надо будет макрос стряпать, учитывающий все пожелания к итоговой таблице расчета.
Кому решение нужно - тот пример и рисует.
Формат даты в выделенном диапазоне VBA
 
Мне кажется, там надо вот так:
(выделить диапазон, запустить макрос)
Код
Sub T()
Dim objR As Range
For Each objR In Selection
    objR.Value = DateSerial(CInt(Left(objR, 4)), CInt(Mid(objR, 6, 2)), CInt(Mid(objR, 9, 2)))
    objR.NumberFormat = "dd.mm.yyyy"
Next
End Sub
Кому решение нужно - тот пример и рисует.
Замена макросом значений в ячейках при открытии книги
 
У вас в ячейках "Нет" в макросе ищете "НЕТ". Либо прежде чем сравнивать, приводить к единому виду (например, через функцию VBA UCase(String)), либо корректно указывать значения для сравнения.
Кому решение нужно - тот пример и рисует.
Замена макросом значений в ячейках при открытии книги
 
Код
For Each cell In Range("L10:L30").Cells
For Each cell In Range("M10:M30").Cells

В этих строках кода идет обращение к диапазонам какого листа? Я думаю, было бы неплохо явно указать, например:
Код
For Each cell In Worksheets("First").Range("L10:L30").Cells
Изменено: Пытливый - 26 Июл 2019 14:29:50
Кому решение нужно - тот пример и рисует.
Извлечение номеров телефонов из xls файла
 
Вам только номера телефонов нужны? Без персоналий?
Кому решение нужно - тот пример и рисует.
Сравнение дат связанных с одним ID и выбор самой актуальной даты, ID упоминается несколько раз, необходимо обозначить только самый актуальный
 
Здравствуйте.
Можно в G2 такую формулу массива
Код
=ЕСЛИ(МИН(СЕГОДНЯ()-(Таблица1[дата])*(Таблица1[ID]=Таблица1[@ID]))=(СЕГОДНЯ()-Таблица1[@дата]);1;0)


И растянуть вниз
Кому решение нужно - тот пример и рисует.
Power Query Выбрать из строк последнее непустое значение, Выгрузка из 1С с иерархией.
 
Добрый день. Овощи/фрукты можно тащить такой формулой массива:
Код
=ИНДЕКС(табУрожай[#Все];СТРОКА(табУрожай[@Уровень1]);МАКС((табУрожай[@]<>"")*СТОЛБЕЦ(табУрожай[#Заголовки])))

Вставить ее, например, в G2 из примера, и тащить вниз. И включить автоматический пересчет в файле.
Кому решение нужно - тот пример и рисует.
Сравнить и выровнять две таблицы
 
Добрый день. Можно еще так:
Код
Sub IDsAlignment()
    Dim lngI As Long, objC As Range
    Application.ScreenUpdating = False
    lngI = Cells(Rows.Count, 3).End(xlUp).Row
    On Error Resume Next
    For Each objC In Range("C2:C" & lngI)
        objC.Resize(1, 3).Cut Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Find(objC).Offset(0, 1)
    Next objC
    Application.ScreenUpdating = True
End Sub

в файле - побуждающая кнопка
Кому решение нужно - тот пример и рисует.
автоматическое добавление строк с суммированием определенных строк выше с критерием
 
я делал это СТАНДАРТНЫМ ВСТРОЕННЫМ ИНСТРУМЕНТОМ Excel, который называется "Промежуточный итог" и расположен на закладке "Данные".
И написал об этом.
Дважды. :)
Кому решение нужно - тот пример и рисует.
автоматическое добавление строк с суммированием определенных строк выше с критерием
 
См.лист "как есть" - добавлен признак для группировки (Имя&Фамилия), и применен Данные - промежуточный итог, а также фильтр по столбцу "операция"
Кому решение нужно - тот пример и рисует.
автоматическое добавление строк с суммированием определенных строк выше с критерием
 
Добрый день. Использование стандартного инструмента "Промежуточный итог" (Данные - промежуточный итог) не решит задачу?
1. поставить в исходных данных выделение на ячейку 1 строки
2. Данные - промежуточный итог - задать "при каждом изменении в "город" + добавить итоги по "количество"
3. Включить фильтр, по столбцу "Операция" отжать галку для "Документированные остатки"
Кому решение нужно - тот пример и рисует.
Подсчет количества у одинаковых артикулов
 
Ну, может, через инструмент "сводная таблица"...
Кому решение нужно - тот пример и рисует.
Изменение заливки фигуры по условию
 
Код
If Intersect(Target, Range("B4, B6")) Is Nothing Then Exit Sub
Кому решение нужно - тот пример и рисует.
Нужно найти название столбца, в котором находится минимальное значение при выполнении ряда условий в других столбцах
 
Можно так:
Код
=ИНДЕКС(Признаки!$D$1:$L$1;1;ПОИСКПОЗ(МИН(ИНДЕКС(Признаки!$D$2:$L$28;ПОИСКПОЗ(A2&B2&C2;Признаки!$A$2:$A$28&Признаки!$B$2:$B$28&Признаки!$C$2:$C$28;0);));ИНДЕКС(Признаки!$D$2:$L$28;ПОИСКПОЗ(A2&B2&C2;Признаки!$A$2:$A$28&Признаки!$B$2:$B$28&Признаки!$C$2:$C$28;0););0))

Формула массива. Вставить в D2 и тянуть вниз.
Кому решение нужно - тот пример и рисует.
Поиск и отбор значений всех строк на другой лист по 2 критериям (дата, текст)
 
В сообщении #12 в таблице файла примера - где это написано? Там написано, что в эти ячейки должны попадать из "Адреса и проекты" а в этот столбец - данные с листа "РВР".
Если вам нужно решение - потрудитесь нормально поставить задачу.
Кому решение нужно - тот пример и рисует.
Цикл вычислений по не смежному диапазону ячеек
 
Добрый день. Покажите в файле примере - что вам нужно - какие ячейки каких столбцов каких строк нужно проходить и что при прохождении с ними делать?
А то в текстовом режиме очень неудобно помогать.
Кому решение нужно - тот пример и рисует.
Поиск и отбор значений всех строк на другой лист по 2 критериям (дата, текст)
 
Я не понимаю, в чем проблема. В вашем примере вы расписали в какую ячейку что должно попадать. Что не так делает процедура в моем последнем файле?
Кому решение нужно - тот пример и рисует.
Найти и выделить минимальное значение условным форматированием, Найти и выделить минимальное значение условным форматированием сравнивая определенные столбцы,а не все значения в строке
 
Можете руками показать в примере что конкретно должно быть выделено, если изделие = карандаш?
Кому решение нужно - тот пример и рисует.
Поиск предыдущего месяца
 
Добрый день. Можно в N3 вставить такое (формула массива):
Код
=НАИБОЛЬШИЙ(СТОЛБЕЦ(A1:L1)*(B3:M3<>"")*($B$2:$M$2<МЕСЯЦ(СЕГОДНЯ()));1)

и растянуть вниз.
Кому решение нужно - тот пример и рисует.
Макрос для одновременного удаления фильтра на листе,отображения скрытых строк и/или столбцов
 
А, ну тогда, конечно, не нужна она, инструкция эта.
А чего руками, можно же машину заставить? :)
Кому решение нужно - тот пример и рисует.
Макрос для одновременного удаления фильтра на листе,отображения скрытых строк и/или столбцов
 
Добрый день. На мой взгляд, это происходит потому, что при первом запуске у вас Selection (выделение) размером в лучшем случае в 1 ячейку. Внутри этого Selection - нет скрытых столбцов и скрытых строк, поэтому инструкции по их отображению
Код
Selection.EntireColumn.Hidden = False
    Selection.EntireRow.Hidden = False
не справляются.
Предлагаю вместо Selection указывать используемый диапазон листа, уж скрытые строки столбцы в него явно попадают:
Код
    ActiveSheet.UsedRange.EntireColumn.Hidden = False
    ActiveSheet.UsedRange.EntireRow.Hidden = False

А также предлагаю в конец кода вставить инструкцию, убирающую маркировку выделения (бегущих муравьев)
Код
Application.CutCopyMode=False
'а потом включить обновление экрана
Кому решение нужно - тот пример и рисует.
Поиск и отбор значений всех строк на другой лист по 2 критериям (дата, текст)
 
Попробуйте.
Кому решение нужно - тот пример и рисует.
Заполнить пустой столбец таблицы с переменным количеством строк VBA
 
Добрый день. Можно в А2 на каждом листе вставить такую формулу:
Код
=ИНДЕКС(Sheet1!$A$2:$B$6;ПОИСКПОЗ(ЗНАЧЕН(ПСТР(ЯЧЕЙКА("имяфайла";A1);ПОИСК("]";ЯЧЕЙКА("имяфайла";A1))+1;3));Sheet1!$A$2:$A$6;0);2)

И растянуть вниз.

P.S. Или (если уж совсем-совсем без VBA тоскуете:
Код
Sub SySNameIns()
    Dim arrOut, lngI As Long, whC As Worksheet
    For Each whC In ActiveWorkbook.Worksheets
        If Not whC.Name = "Sheet1" Then
            arrOut = whC.Range("A1").CurrentRegion.Value
            For lngI = 2 To UBound(arrOut, 1)
                arrOut(lngI, 1) = Worksheets("Sheet1").UsedRange.Columns(1).Find(whC.Name).Offset(0, 1)
            Next lngI
            whC.Range("A1").Resize(UBound(arrOut, 1), 4) = arrOut
            Erase arrOut
        End If
    Next whC
End Sub

:)
Изменено: Пытливый - 18 Июн 2019 17:50:56
Кому решение нужно - тот пример и рисует.
Процентное отношение отгрузок во время
 
Я не смогу посмотреть правильно, или не правильно сделано, пока вы не покажете, как (где, в какой ячейке/ячейках) должен содержаться и как должен выглядеть правильный ответ. :) Как я (мы, он, она) решим задачу, которая не поставлена? :)
З.Ы. моей формулы нет в приложенных вами файлах, почему она не работает (и не работает ли) - сказать не могу. Когда рисовал под исходный файл пример - все работало. :)
Кому решение нужно - тот пример и рисует.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 131 След.
Наверх