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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 83 След.
Создание макроса для защиты внесённых данных от изменения, Защита строки от изменения данных
 
Если файл закрыть без сохранения, то данные не сохранятся, и их можно будет вносить заново.
Если внести данные, а потом нажать на кнопку "Отменить ввод", то данные можно снова будет вносить.
Как быть с этим?

PS
Не претендую...
Изменено: Михаил Лебедев - 8 Июл 2020 12:49:50
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
убрать пробелы
 
=СЖПРОБЕЛЫ()
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Подставление предыдущего значения согласно критерия, Подставление предыдущего значения согласно критерия
 
Формула массива: =МАКС((облік[@АВТО]=облік[АВТО])*(облік[ДАТА]<облік[@ДАТА])*(облік[Спидометр при возврате])) (Shift+Ctrl+Enter). И поставьте галочку в настройках екселя на вкладке Формулы итеративные вычисления. У Вас получаются циклические вычисления. Формула в I берет значение из J, а формула в J  = I + Пробег
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Макрос копирования строки в лист, макрос копирования
 
Включите макрорекордер и запишите вставку строки, предварительно выделив оба листа (клик по ярлыку листов при нажатой Shift). Отключите макрорекордер, посмотрите и разберитесь с тем, что он записал. Удачи.

PS
Если Вам нужен готовый макрос, то Вам в ветку "Работа".
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Быстрое выделение колонок с одинаковым названием
 
Цитата
Юрий М написал:
с позволения медведя добавлю код
... или просто остановиться на замене .Delete на .Select.
А дальше ТС уже сам решит, дЕлить (эээ... не путать с делИть), кОпить (эээ... не путать с копИть) или клеарконтентсить.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Быстрое выделение колонок с одинаковым названием
 
Цитата
Юрий М написал:
Дальше выполнить макросю
... по удалению колумнов :) (новояз - ага!)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Подсчет промежутка времени ввода данных в ячейку
 
М.б. проще будет поставить защиту на лист, а сканирование и копирование/вставку делать через макрос? Тогда отпадет надобность в данном подходе.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поячеечное сравнение двух таблиц
 
Крысы так не считают. А мамонты - ... мы уже не узнаем :)

PS
Пора тему из "Работы" переносить в "Курилку" ☺
Изменено: Михаил Лебедев - 3 Июл 2020 10:06:26
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Power Query. Фильтрация столбца по текущему году.
 
Oops... А я уже подумал, что 2020 объявили "Годом Power Query"...

PS
Гговорят, что правильно поставленный вопрос уже содержит правильный ответ. Ваш вопрос - тому подтверждение.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поячеечное сравнение двух таблиц
 
Ну, крысы - они оч. умные твари, всегда найдут (или прогрызут) лазейку, если есть такая возможность. Очевидно, что функционал форума такую возможность дает. Обидно, но что поделаешь. Выживание, выживание... :( Мамонты - вымерли, крысы - нет.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поячеечное сравнение двух таблиц
 
99?!?!?! Как такое возможно?! ☺
Это отмазка, да? Просто не знаешь, как сделать?
(Мишки шутят)
Кстати, у меня - как раз 100 (24+76=100)

PS
Я больше поверю в 14'643, чем в 99 ☺

PPS
ТС всё равно что-то молчит, видать - не судьба...
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поячеечное сравнение двух таблиц
 
В принципе, алгоритм понятен. Если БМВ не возьмется, я бы попробовал. Только 2 вопроса. Бюджет и сроки.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поячеечное сравнение двух таблиц
 
Цитата
БМВ написал:
1. строка из таб1 сразу переносится в Таб3
нет, наверно, можно понять по-другому, т.к. ▼
Цитата
Андрей Ка написал:
если 2 ячейки совпали, то  строки с этими ячейками объединить в одну строку и положить в 3 таблицу,
или то же самое, но другими словами ▼ (добавляем в таб.3 только после добавления новых уникальных)
Цитата
Андрей Ка написал:
из второй таблицы добавляем все уникальные значения к первой, кладем в третью новой строкой.
Цитата

БМВ написал:
2. первое значение строки сравнивается ищется в первом столбце таб2

тоже можно понять по-другому, ведь ▼
Цитата
Андрей Ка написал:
в ней первую ячейку Acetaminophen ищем совпадения в Таблице 2, находим ячейку. берем всю строку
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
MSPQ PowerPivot Excel - создание интерактивной таблицы
 
Цитата
bobyjoy написал:
Потом в главном файле обновили таблицу...
... сказали: "Ой, мы ошиблись", - и удалили ошибочно внесенную запись. Или исправили А на В или BMW на Niva. Такое может случиться? Может. ("Даже то, чего не может быть вообще, где-нибудь, да есть"). Что тогда делать?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Проставление отметки об оплате
 
файл-пример, как можно ...
Изменено: Михаил Лебедев - 1 Июл 2020 10:17:40
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Дублирование на другой лист каждой третьей строки
 
М.б. всё гораздо проще?  
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Проставление отметки об оплате
 
Цитата
Mershik написал:
а я еще чет не могу найти ни одного совпадения...
Аналогично. Ищем черную кошку в темной комнате. Спасибо ТС, позаботился о нормальном примере, не пожалел своего времени :)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
попадание времени в интервал, необходимо понять попадает ли время в график
 
Цитата
АlехМ написал:
Не понял причину
м.б. "ник" ТСа?
Изменено: Михаил Лебедев - 26 Июн 2020 09:45:09
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сортировать данные геологического разреза: список интервалов, отсортированных по глубине
 
Доделанный вариант с PQ без замены переноса на ";" и со впихиванием результата в одну ячейку.
Изменено: Михаил Лебедев - 26 Июн 2020 07:09:17
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сортировать данные геологического разреза: список интервалов, отсортированных по глубине
 
Вот вариант, далеко не самый...

Power Query я только пробую, поэтому последний шаг, как всё впихнуть в одну ячейку, оставил пользовательской функции.
Также не получилось разобрать на строки исходную ячейку, пока не поменял перенос на след. строку на ";"
Вообще, впихивать все данные в одну ячейку - это далеко не лучшее решение.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сохранение печатающихся листов в папку при помощи макроса, Как добавить еще строчки кода для того что бы макрос не только выполнянл печать паспортом поочередную, но и еще сохранял в отдельную папку в pdf
 
Без файла трудно разобраться. Но всё же. Вот фрагмент Вашего кода:
Код
For k = 1 To Qty3:
    Serial = InputBox("Введите серийный номер", "Введение серийного номера, осталось паспортов: " & Qty - c)
    If Left(Serial, 3) = "12P" Or Left(Serial, 3) = "002" Or Left(Serial, 3) = "13p" Then
    MsgBox "Неправильно введен серийный номер", vbOKOnly, "Ошибка при вводе серийного номера"
Я так понимаю, что Serial - это как раз и есть та переменная, которой Вы присваиваете серийный номер.
тогда так, наверно?
Код
Sub Макрос2(Serial)        
    Dim MyPath as string
    MyPath = "C:\Work\Автоматизация паспортов\Паспорта готовые\"

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        MyPath & Serial & ".pdf", _ 'Вот тут имяфайла, если все так и оставить в макросе, то это имя и будет всезгда сохраняться, сюда бы условие какое воткнуть        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    ChangeFileOpenDirectory _
        MyPath 
End Sub
А в Вашем коде из сообщения #3 вместо пустой строки 162 напишите
Код
Макрос2 Serial ' Сохранение паспорта
Изменено: Михаил Лебедев - 25 Июн 2020 09:40:21
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сортировать данные геологического разреза: список интервалов, отсортированных по глубине
 
А почему 0-1183 Sandstone, а не Limestone: ?  :cry:  Да и вообще, откуда интервал 0-1183 взялся?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Наименования оборудования, где коэффициент износа >0, перенести в другую таблицу
 
Поменяйте концепцию, если это возможно.. Сделайте заполнение Исходной таблицы на основании таблицы Результат. А если есть необходимость использовать новое наименование - сначала добавьте его в таблицу Результат. А в таблицу Исходная таблица добавляйте наименования, используя выпадающий список. И только те, которые имеют Значение. А в таблице Результат у Вас будет столбец Значение, где с помощью =ВПР() или =СУММЕСЛИ() будет вестись подсчет Значения. И фильтром скроете всё, что меньше критического значения.
Изменено: Михаил Лебедев - 25 Июн 2020 07:10:08
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Выполнить код после обновления запросов PQ
 
Добрый день. М.б. вот это поможет?
https://docs.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/doevents-function
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Добавить новый модуль в книгу горячими клавишами.
 
Мишки шутят...
Изменено: Михаил Лебедев - 23 Июн 2020 13:13:45
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сохранение печатающихся листов в папку при помощи макроса, Как добавить еще строчки кода для того что бы макрос не только выполнянл печать паспортом поочередную, но и еще сохранял в отдельную папку в pdf
 
Цитата
Anri_amar написал:
внедрить что бы он еще и сохранял это файл в пдф,
Включите макрорекордер, сохраните лист в формате pdf, посмотрите, что макрорек. записал. Добавьте после того, что у Вас в сообщ. #1.
Только надо придумать, как задавать название файла.
Изменено: Михаил Лебедев - 23 Июн 2020 13:05:35
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
excel убрать перенос строки в ячейке, excel убрать перенос строки в ячейке
 
Цитата
Strek написал:
те придется в случае макроса переписывать макрос или копировать текст в файл с макросом.
можно записать макрос в книгу макросов, тогда он будет работать в любой открытой книге, если в ексель подгружать книгу макросов.
https://www.planetaexcel.ru/techniques/3/6154/ - "Как создать свою надстройку для Microsoft Excel"
Изменено: Михаил Лебедев - 23 Июн 2020 07:09:48
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
excel убрать перенос строки в ячейке, excel убрать перенос строки в ячейке
 
Цитата
Strek написал:
расширить столбец не помогло+
И не должно было помочь, просто было бы тогда точно видно, помогло или не помогло ☺
Ну, у Вас не заменяет, а у меня - заменяет. Выходит, что дело не в файле, а в ексель.
Попробуйте запустить макрос в книге.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
excel убрать перенос строки в ячейке, excel убрать перенос строки в ячейке
 
Попробовал Ваш файл.
Цитата
Strek написал:
после ctrl+J   спец символ появляется, но замена не происходит,
У меня всё наоборот. Спец. символ не появляется, но замена - происходит.
Как Вы определяете, что замена произошла? М.б. надо раздвинуть столбец J пошире?
(ну, всякое бывает)  
Изменено: Михаил Лебедев - 23 Июн 2020 06:11:51
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
поискпоз_ поиск в массиве с длинным значением, при большом количестве символов в ячейке, поискпоз не работает
 
Формула массива: =ПОИСКПОЗ(1;--(ЕСЛИОШИБКА(НАЙТИ(B2;$D$2:$D$3);0)>0);0)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 83 След.
Наверх