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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 131 След.
Добавить список классификаторов в макрос, есть макрос, удалящий строки по условию
 
А, понятно. Я только увидел ваш файл-пример в первом сообщении. Боюсь, что тогда надо макрос переделывать при добавлении кодов. Либо через вложенные циклы, либо через цикл по списку кодов и метод Find - FindNext.
Изменено: Пытливый - 18 Сен 2019 17:42:43
Кому решение нужно - тот пример и рисует.
Добавить список классификаторов в макрос, есть макрос, удалящий строки по условию
 
Добрый день.
Можно как-то так:
Код
Sub тест()
 Dim классиф
 Dim i As Long
    классиф = "09999/0, 03022/0" 'добавляем самым простым образом
 
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        'меняем местами в InSTR что с чем сравнивать, т.к. в ячейке будет значение меньшее, чем в переменной.
       If InStr(1, классиф, Cells(i, 1), vbTextCompare) > 0 Then
      Rows(i).Delete
       End If
    Next ' Application.ScreenUpdating = True
End Sub
Кому решение нужно - тот пример и рисует.
Поиск минимального значения в зависимости от соседнего столбца
 
Добрый день. Покажите в файле-примере исходные данные, не надо в тексте сообщения, там формулы не работают. :)
Кому решение нужно - тот пример и рисует.
Разбиение числа на кратные слаагемые
 
Добрый день.
Можно попробовать решить задачу при помощи инструмента "Поиск решения". Как конкретно - можно показать в файле-примере.
Кому решение нужно - тот пример и рисует.
автоматическая Группировка и суммирование необходимых ячеек
 
Добрый день. Покажите пример конечного результата (как вы его видите). В представленном примере ни упомянутой формулы, ни группировки нет. И вообще, может быть имеет смысл решить задачу проще? Например, создать таблицу, в которой будет отражено: дата, поставщик, № соглашения, вид документа (контракт, платеж), счет, сумма.
Заполнили для контракта 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)

и растянуть вниз.
Кому решение нужно - тот пример и рисует.
Макрос для одновременного удаления фильтра на листе,отображения скрытых строк и/или столбцов
 
А, ну тогда, конечно, не нужна она, инструкция эта.
А чего руками, можно же машину заставить? :)
Кому решение нужно - тот пример и рисует.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 131 След.
Наверх