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

Страницы: 1 2 3 4 5 6 7 8 След.
Макросом закрыть документ без сохранения
 
опечатку исправил вместо SaveChange  - SaveChanges
Код
Sub Close()
Application.DisplayAlerts = False
    If Application.Workbooks.Count = 1 Then
     Application.Quit
    Else
     ThisWorkbook.Close SaveChanges:=False
    End If
End Sub
Построение круговой диаграммы по цвету ячеек столбца., Построение круговой диаграммы по цвету ячеек столбца.
 
Так?
Удалить строки, указав в качестве критерия диапазон значений.
 
Код
Sub Удаляем_множ_вхождения()
    Dim sSubStr As String    'искомое слово или фраза
    Dim lCol As Long    
    Dim lLastRow As Long, li As Long
    Dim avArr, lr As Long
    Dim arr
    lCol = "1" 'номер столбца с просматриваемыми значениями
    If lCol = 0 Then Exit Sub
    Application.ScreenUpdating = 0
    lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    'заносим в массив значения листа, в котором необходимо удалить строки
    arr = Cells(1, lCol).Resize(lLastRow).Value
    'Получаем с Лист1 значения, которые надо удалить в активном листе
    With Sheets("Лист1") 'Имя листа с диапазоном значений на удаление
        avArr = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    'удаляем
    Dim rr As Range
    For lr = 1 To UBound(avArr, 1)
        sSubStr = avArr(lr, 1)
        For li = 1 To lLastRow 'цикл с первой строки до конца
            If CStr(arr(li, 1)) = sSubStr Then
                If rr Is Nothing Then
                    Set rr = Cells(li, 1)
                Else
                    Set rr = Union(rr, Cells(li, 1))
                End If
            End If
            DoEvents
        Next li
        DoEvents
    Next lr
    If Not rr Is Nothing Then rr.EntireRow.Delete
    Application.ScreenUpdating = 1
End Sub

я тоже пользовался данным макросом для удаления лишних строк в таблице (и пользуюсь до сих пор)
но возникла потребность не удалять, а перемещать (не копировать, а именно перемещать желательно не оставляя пустых строк) данные строки на другой лист (лист2 например) как это возможно реализовать? удаление буквально 1 строчкой прописано. Или создавать отдельную тему?
Код
If Not rr Is Nothing Then rr.EntireRow.Delete
Преобразовать формулу в код
 
Код
ActiveCell.FormulaR1C1 = _
        "=COUNTIFS(Лист8!R[1]C2:R[49999]C2,"">=01.01.2020"",Лист8!R[1]C2:R[49999]C2,""<=31.01.2020"",Лист8!R[1]C4:R[49999]C4,""значение1"",Лист8!R[1]C5:R[49999]C5,"">=0"",Лист8!R[1]C5:R[49999]C5,""<=8"")"
Изменено: venom51 - 26.12.2020 11:29:45
Выбор монитора, Выбор монитора, в основном для работы в excel
 
Работаю, да еще и в линзах) глаза к концу рабочего дня высыхают) выход - увлажнающие капли. Не думаю что это из-за монитора. Глаза не устают, а именно влаги мало из-за линз (хотя стоят два монитора разных с разной яркостью, цветопередачей) Как вариант возможно попробуйте очки специальные для ПК, если впринципе зрение плохое и они вам нужны. Сам такие не пробовал. В общем хочу сказать - не только от монитора зависит устанут у вас глаза или нет, но еще и от человека.

P.S. Делаю перерывы раз в час на 5 минут примерно.
Как перестроить списки, чтобы одинаковые значения находились в одной строке?
 
Нп ленте вкладка Данные - Удалить дубликаты. (предварительно сделать один столбец из двух) и получите тот третий столбец что у Вас на скриншоте.  
Подсчёт количества обработанных счетов
 
С помощью ручного ввода и последующией корректировки диапазона ячеек формулы  =СЧЁТ(C11:C48)
А лучше в другом виде таблицу представить и сделать будет проще с промощью формулы =СЧЁТЕСЛИ(;)
Изменено: venom51 - 23.03.2020 17:40:51
Как во все листы вставить в определенную ячейку название каждого соответствующего листа?
 
да, пересчет производится при любом изменении на листе.
И конструкцию &T(NOW() можете не добавлять в формулу так как в ней и так содержатся летучая функция Ячейка().
похожая тема
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=3912
+ из приёмов ваша формула которую изначально используете упоминается
https://www.planetaexcel.ru/techniques/3/60/
Изменено: venom51 - 19.03.2020 15:29:00
Как во все листы вставить в определенную ячейку название каждого соответствующего листа?
 
Arthur26, у меня работает с именованным диапазаном в том файле что вы приложили последнем. Смотрите включен ли у вас автоматический пересчет формул. Если включен щелкайте в пустую ячейку например чтобы пересчитались формулы на листе.
Изменено: venom51 - 19.03.2020 14:30:53
Как во все листы вставить в определенную ячейку название каждого соответствующего листа?
 
формулой на любой лист:
Код
=ПСТР(ЯЧЕЙКА("имяфайла");НАЙТИ("]";ЯЧЕЙКА("имяфайла"))+1;31)
Изменено: venom51 - 19.03.2020 12:13:41
Поиск заданного набора символов в диапазоне
 
вариант формулой, но только для 2020 года
Изменено: venom51 - 17.03.2020 09:29:41
Обойти ошибку при поиске значения в 2-х таблицах на разных листах одного файла
 
вариант уйти от Н/Д - обернуть вашу формулу в =ЕСЛИОШИБКА()
Найти сумму чисел, в которых имеется переменная
 
по поводу вашей сложности, посмотрите как реализовано тут изменение количества месяцев
Как заставить работать функцию ГИПЕРССЫЛКА в Libra или Open или...?
 
Ну явно же вам к разработчикам вашей пародии, вы даже названия ее не знаете или названия той программы куда это пародия встроена?
Копирование формул по столбцам с шагом
 
Протянуть как обычно и потом в нужном столбце (например L) найти и заменить H на D
В столбце M тоже самое впрочем найти и заменить H на D
Автоматическая нумерация строки через строку с надписью
 
Kenn23, растянуть данную формулу вы не сможете из-за объединенных ячеек, можете скопировать несколько ваших больших обьединенных строк и вставить ниже.
Автоматическая нумерация строки через строку с надписью
 
Kenn23, потому что я не заблокировал адрес ячейки в формуле, исправил. Ну и с тем учетом что самую первую "строку" с номером 1 мы не удаляем) единичка вручную прописывается.
Изменено: venom51 - 27.11.2019 15:44:55
Функция для поиска и вывода нескольких значений
 
Сводная таблица для данной задачи хорошо подходит
Изменено: venom51 - 27.11.2019 15:29:17
Автоматическая нумерация строки через строку с надписью
 
ручками, и да поздравляем) у вас будет ужастная таблица с обьединенными ячейками)  
Макрос, суммирующий в одинаковых накладных вес и количество упаковок
 
я сделал без макросов!
Скрытый текст
Изменено: venom51 - 21.11.2019 17:44:12
Сравнение двух таблиц, результат сравнения при совпадении заполняется отдельно, Сравнить две таблицы, при совпадении в одной из таблиц заполнить столбец словом программа
 
макрос для сравнения? Формула =СЧЁТЕСЛИ() вам в помощь
поставить пробел между текстом и цифрой с определённой буквой, в конце теста иногда встречаются прикреплённые цифры, их нужно отделить
 
PooHkrd, от Х все равно сложно оттолкнуться, а вдруг до него будет еще несколько иксов....
например
TwinX FX10036X LonX.Skyl.Tin3x ПО 100 ГР.
Думал через регулярки попробовать...не сооброжу никак. Регулярные выражения
Но в них я так понимаю пробел не вставить.... если только через доп столбец

Надо от "ПО 100 ГР" начинать)))
Изменено: venom51 - 14.11.2019 18:12:12
Ранжирование по двум и более условием от максимума к минимуму, определяем максимальное значение в группе и присваиваем порядковый номер
 
условия нормально не описали, почему питер отделение 1с продажами 541 115 054 имеет 2 ранг у вас?
вариант в ячейку Е4  и растянуть
=ЕСЛИ(C4>400000000;1;ЕСЛИ(400000000>C4>300000000;2;ЕСЛИ(200000000>C4>0;3;"")))

P/S Совсем не попал в тему я со своими условиями) сорян не понял автора)
Изменено: venom51 - 14.11.2019 13:42:27
Как разорвать связи из командной строки?
 
Еще гугл иногда помогает попробуйте
не знаю можно ли на другие ресурсы ссылаться, но думаю копировать сюда чужой код и выдавать за свой вообще не камельфо) так что лучше пусть меня забанят за ссылки на другие ресурсы)
Как разорвать связи из командной строки?
 
Я на панель быстрого доступа вывел кнопку "Вставить значения" очень часто ей пользуюсь, + когда надо вставть без сохранения форматирования она тож помогает)
Или вот макрос из макрорекордера.
Код
Sub copy_values()
    Range("A1:A10").Select ' указать диапазон копируемых данных
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Изменено: venom51 - 13.11.2019 17:49:45
Как выбрать принтер при печати
 
Может поможет эта тема
Фишка вроде в том что Excel печатает только на принер по умолчанию, т.е. надо сначала поставить принер в коде по умолчанию, потом печатать, потом вернуть другое по умолчанию если требуется. Ну да Hugo так и пишет)
Изменено: venom51 - 13.11.2019 10:02:30
Как сделать массовую замену части формулы в google таблице
 
suwong,  без всяких найти-заменить вписать нужную формулу в первую строку и протянуть ее вниз не работает? Через найти заменить вам придется прописывать все "найти" от D162 до D??? сколько там у вас их есть. Пользуйтесь растягиванием формулы и фиксированными сылками если потребутеся (F4 в Excel)
Выделение пустых ячеек по условию, Выделение первых 11 пустых ячеек цветом
 
а если пустых ячеек больше 11 все равно выделять только 11???? пока не понял как это сделать) + убрал вашу пустую строку между годами, можно просто жирной чертой их разделить....

да...а еще я сделал все криво, даже если 1 ячейка не пустая она будет выделена цветом....
Изменено: venom51 - 08.11.2019 10:20:00
Как сделать множественный фильтр, чтобы задавать значения вручную
 
поискал за автора) https://www.planetaexcel.ru/techniques/2/197/
Несколько фильтров на 1 листе
 
это обязательно умные таблицы, а то что вы хотите невозможно) разместите таблицы друг под другом)
хотя можно отсортировать по алфавиту сначала в 2ух таблицах и отфильтровать в одной из таблиц)
Но это не отдельные фильтры) это только по вашему вопросу "как выбрать в обоих таблица например только ремонт."
Изменено: venom51 - 24.10.2019 10:30:49
Страницы: 1 2 3 4 5 6 7 8 След.
Наверх