Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Ренат
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Написать макрос для записи данных в таблицу Excel из XML файлов
 
#
17.09.2018 20:42:01
Я, конечно, извиняюсь - не сталкивался с подобным... Но, E1zbth, разве файл "Макрос_итог.xlsm" не работает? Пробовали? :)
Изменено: Ренат - 17.09.2018 20:42:39 (правописание...)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Автозаполнение ячеек с шагом
 
#
17.09.2018 20:15:28
1. Вставляете формулу в первую ячейку (А2);
2. Выделяете диапазон, после которого формула должна повториться (А2-А9);
3. Протягиваете диапазон вниз (как обычно - "плюсиком" из правого нижнего угла).
Надеюсь, что я правильно понял задачу... :)
Изменено: Ренат - 17.09.2018 20:51:47 (изображение не вставилось первый раз...?)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Статус "Выполнение" при превышении 10%
 
#
20.07.2016 20:38:13
Цитата
Светлана Агибаева написал: Сначало осуществляется проверка на положительную величину из строки 22
Недопонял... Если там не 22, а 21, то можно так (опять-таки для ячейки B24):
Код
=ЕСЛИ(B21>=0;"выполнение";ЕСЛИ(И(B23>=10%;B23<>" ");"выполнение";"нарушение"))
:)
Изменено: Ренат - 20.07.2016 20:39:37 (снова уточнил "адрес" для формулы)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Статус "Выполнение" при превышении 10%
 
#
20.07.2016 20:16:41
Попробуйте так (для ячейки B24):
Код
=ВЫБОР(ЕСЛИ(B21>=0;1;0)+ЕСЛИ(И(B23>=10%;B23<>" ");1;0)+1;"нарушение";"выполнение";"выполнение")
:)
Изменено: Ренат - 20.07.2016 20:18:04 (уточнил "адрес" для формулы)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
VBA скрытие нескольких строк в диапазоне
 
#
07.07.2016 07:00:48
Цитата
Ренат написал: в цикле с шагом 3
*с шагом 4...  :oops:
Исправил(ся).
Успехов. И мне того же. Благодарю. :)
 
Перейти    
VBA скрытие нескольких строк в диапазоне
 
#
06.07.2016 19:20:33
Тема: "... скрытие ..." ;)
типа оффтоп
Можно в цикле с шагом 4 проверять строку на видимость и, если она скрыта, то отображать её + 3 последующие строки и останавливать выполнение макроса. Такой макрос будет продолжать начатое даже после перезапуска эксель при отображённых первых 8и строках (например). После цикла можно добавить скрытие всех строк 7-22 (которое выполнится только, когда макросу нечего будет отображать). Т.е. есть возможность "без лишних телодвижений" сделать бесконечное последовательное выполнение:
Код
Отображение строк 7-10;
Отображение строк 11-14;
Отображение строк 15-18;
Отображение строк 19-22;
Скрытие строк 7-22;
...
Которое будет продолжаться с любого этапа (если при закрытии документа сохранить начатое) ;)
Тут, правда, ещё возникает вопрос "необходимо ли это заказчику?"... :)
Изменено: Ренат - 07.07.2016 06:59:36 (добавил вопрос о необходимости... поправил шаг цикла)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Копирование\перемещение файлов по списку
 
#
06.07.2016 07:26:56
Если я правильно понял код, то, возможно, "собака зарыта" тут:
Код
i1_n = Cells(Rows.Count, 3).End(xlUp).Row
т.е. данные по именам файлов берутся из 3го столбца... Исправить это можно так:
Код
i1_n = Cells(Rows.Count, Stolbec).End(xlUp).Row
и переместрить эту строку после строки, где происходит ввод значения Stolbec:
Код
Stolbec = Application.InputBox("Укажите номер столбца, в котором находятся наименования файлов", "Номер столбца", _
"8")
StrokaOtsch = Application.InputBox("Укажите номер строки, в которой находится шапка таблицы", _
"Номер строки", "1")
i1_n = Cells(Rows.Count, Stolbec).End(xlUp).Row
А, возможно, что я что-то недопонял... и не хватает файлов примеров: "исполнителя" с кодом и списком файлов и архива с двумя папками (типа "Отсюда" и "Сюда") и файлами в папке-источнике...
Изменено: Ренат - 06.07.2016 07:27:40 (поправка оЧеПятки :))
Успехов. И мне того же. Благодарю. :)
 
Перейти    
как убрать ошибку появления лишнего символа
 
#
05.07.2016 07:26:15
Попробуйте так:
Код
=ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ЛЕВСИМВ(СЖПРОБЕЛЫ(D1);1)));"≥";"")&ПОДСТАВИТЬ(D1;"-";" ≤")
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Удаление пустых строк в выпадающем списке
 
#
03.07.2016 07:27:57
У меня Excel 2016 пишет, что файл повреждён и спрашивает доверяю ли я источнику...
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Вопрос про преобразование Гильберта
 
#
20.06.2016 18:05:38
Алишер Шакиров, возможно, формулы можно найти по ссылке Андрей VG из сообщения №2... ;) Я пас. :)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Объединение одинаковых ячеек в одну, с доп. условием
 
#
20.06.2016 17:44:06
Jack Famous, согласен, есть такое. Но я, возможно, видел файл ksu-ksu и в нём большое кол-во строк, что, для некоторых пользователей может вызвать затруднения для выделения (не все знают про кучу возможностей выделения с Ctrl и Shift, а некоторые "знают", но не умеют пользоваться)... Правда, не знаю принадлежит ли ksu-ksu к этой категории, но могут принадлежать "предки", которые найдут эту тему по своей нужде... А "моим" макросом выделяется нужный диапазон во всех строках листа и форматирование применяется ко всем строкам практически нажатием одной кнопки.
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Объединение одинаковых ячеек в одну, с доп. условием
 
#
19.06.2016 13:43:21
ksu-ksu, вот вариант "Формат по образцу" макросом:
Код
Sub Перенос_объединения()
    Dim LastRow As Long
    LastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row ' последняя строка
    Application.ScreenUpdating = False
    Range(Cells(1, столбец_шаблона), Cells(LastRow, столбец_шаблона)).Copy ' копируем столбец с "шаблоном" объединений
    Range(Cells(1, столбец_применения_шаблона), Cells(LastRow, столбец_применения_шаблона)).PasteSpecial xlPasteFormats ' "применяем "шаблон" (форматы)
    Application.ScreenUpdating = True
End Sub
вместо "столбец_шаблона" и "столбец_применения_шаблона" нужно поставить номера нужных столбцов (по файлу-примеру "столбец_шаблона" меняем на 1, а "столбец_применения_шаблона" меняем на 2)...
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Таблица расчёта электроэнергии, Создание формулы
 
#
19.06.2016 12:30:30
Код
...если(и(В7<=0);0)...
"Прикольно"... И() с одним условием, оба результата если() равны нулю... )))
Можно попробовать так:
Код
=B7-ИНДЕКС($B$1:B6;СЧЁТЕСЛИ($B$1:B6;">0"))
Правда, без примера трудновато решать...
Изменено: Ренат - 19.06.2016 12:43:36 (добавил вариант решения)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Запись с разными разделителями разделить по столбцам, признак разделителя - "тире" или "точка"
 
#
19.06.2016 12:19:12
Николаевич, возможно всё... Только Вы уже сами дали ответ в своей картинке (какой вопрос, такой и ответ). )))
Если Вам нужен ответ не картинкой, то, желательно, и пример приложить не картинкой... ;)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Случайное расположение символов в таблице
 
#
17.06.2016 12:18:34
Вариант без макросов... Две формулы: в первой ячейке - одна, в оставшихся - другая. Обновление возможно по "волшебной" F9. ;)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
#
17.06.2016 12:04:10
Выполнял "работу" для ksu-ksu. Общением доволен, оплату получил и тоже доволен. Рекомендую.
Изменено: Ренат - 17.06.2016 13:02:23
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Перенос ячеек из одного эксель файла в другой с такой же высотой строки, и картинками)
 
#
17.06.2016 11:51:55
Недавно благодаря ksu-ksu, наткнулся на лёгкое решение... Не могу не поделиться (совесть и воспитание не позволяют):
Копирование с листа на лист с сохранением размера ячеек
В первых двух ответах простое решение: сперва копируете лист в файл, куда нужно перенести, а затем (в пределах одного файла) копируете нужные данные строками. У меня есть файл, который "выполняет рутину": задаёте ему файлы (не нашёл информации об ограничении на кол-во в используемом мной методе GetOpenFilename... разве что в процессе импортирования макросом можно "упереться" в предел строк в файле эксель, в "моём" файле этот предел учитывается), он поочерёдности открывает файлы и переносит данные. Плюс "контрольно" восстанавливает размеры изображений (на случай, если при копировании они всё же изменятся. В принципе, подобное, может написать практически любой "макросописатель"... Но если кому-нибудь понадобится готовое решение и "не к кому обратиться" - обращайтесь в личку... :) ;)
На сообщение в этой теме, наверно, ответит любой желающий, который сможет сделать аналог...
Изменено: Ренат - 19.12.2016 16:10:47 ("Преобразовал" текст ссылки (во второй строке) в ссылку)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Перенос строк на другой лист в определнном порядке
 
#
09.06.2016 19:21:23
jordan57, ПМСМ не о чём картинка... Попробуйте так найти причину. ;)
Изменено: Ренат - 09.06.2016 19:23:09
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Заполнение таблицы данными из связанных книг без открытия этих книг
 
#
09.06.2016 19:12:23
alex_j, может быть наработки из этой темы Вам помогут...
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Копирование строк с правилами и сбой в диапазонах правил (применить к)., условное форматирование
 
#
09.06.2016 19:04:54
summery, вариант Z тут пробовали? Если я правильно понял, то это реализовано через умные таблицы и неразрывно связано с этим советом (тоже недавно столкнулся с такой проблемой... пока не добрался до решения - занят другим...).
Изменено: Ренат - 09.06.2016 19:07:08
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Создание дополнительной строчки в выбранном месте и точной копии
 
#
08.06.2016 20:16:54
Ещё у Вас есть вариант обратиться сюда. Там за определённую плату (и часто в довольно быстрые сроки) Вам сделают то, что хотите. ;)
Изменено: Ренат - 08.06.2016 20:17:14
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Поиск дублей в таблице
 
#
08.06.2016 19:38:38
Поиск дублей пробовали?
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Выделение ячеек
 
#
08.06.2016 19:05:36
super_damage_fast_2016, Вас тут просили имя поменять в соответствии с правилами. Будьте так, добры... :) ;)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Создание дополнительной строчки в выбранном месте и точной копии
 
#
08.06.2016 17:44:10
1. Не понятно почему Вы разместили код в "Worksheet_Change" - это должно происходить по изменению листа? Зачем? Может лучше вывести в модуль и "повесить на кнопку"? В таком случае нужно будет в коде определить:
Код
    Dim Target As Range
    Set Target = Selection ' выделенная ячейка
2. То, что записалось макрорекордером можно легко поправить: читаете справку (например) по команде (например, Range), подключаете мозг... Вот пример:
Код
     Rows(cell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' вставка строки со сдвигом вниз и копированием формата сверху
    cell.Offset(???, ???).Merge ' объединение ячеек, с оффсетами тут сами разберётесь, надеюсь... можете ещё подключить Resize - изменение размера диапазона так:
'    cell.Offset(???, ???).Resize(???, ???).Merge ' объединение ячеек, с оффсетами и ресайзами тут сами разберётесь, надеюсь...
'    ???.ClearContents ' - очистка содержимого ячейки/ячеек (можете справку почитать), не понял для чего очищать вставленную строку (она ведь пустая??)...
3. Не понял для чего Вы дважды проходите ячейки циклом, когда это всё можно объединить в один проход:
Код
    For Each cell In Target   'проходим по всем измененным ячейкам
        If Not Intersect(cell, Range("C2:C1000")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
                .Value = Time
            End With
            With cell.Offset(0, -1)         'вводим в соседнюю СЛЕВА ячейку дату
                .Value = Time
            End With
        End If
    Next cell
4. Почитайте про Offset... особенно обратите внимание на отрицательные значения сдвигов (выделил прописными буквами исправленную ошибку в комментарии к коду).
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Задача на сортировку массивов в Excel в VBA., Нужно написать программу.
 
#
08.06.2016 16:49:01
офф. - предположение источника задачи :)
Alex3423, ПМСМ, Вы не по адресу... Помоему Вам сюда. Если я прав, то напишите здесь просьбу, чтобы модераторы перенесли тему. ))) ;)
По крайней мере с такой постановкой задачи:
Цитата
Alex3423 написал:
Напечатать в порядке возрастания
Изменено: Ренат - 08.06.2016 17:12:25
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Макрос, позволяющий сохранять значения за последние 30 дней как значения
 
#
07.06.2016 23:46:22
Тут не смотрели?
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Как в excel сделать текст подсказку в ячейке
 
#
07.06.2016 19:27:41
Алексей Евстратенко, раз "текст не появляется", то тогда, наверно, не всё... Но здесь нет экстрасенсов, вроде... ))) ;)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Автоматическое изменение\заполнение критериев в формуле
 
#
07.06.2016 19:23:08
vikttur, благодарю за информацию.
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Создание дополнительной строчки в выбранном месте и точной копии
 
#
07.06.2016 19:12:24
Макрорекордером не пробовали...? :) Раз-два действие(я) выполняете, смотрите что получилось, переписываете... ;)
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Автоматическое изменение\заполнение критериев в формуле
 
#
07.06.2016 18:57:14
Так (для столбца B ):
Код
=СУММЕСЛИ(A:A;ДВССЫЛ(АДРЕС(СТРОКА();СТОЛБЕЦ()-1));D:D)
? :)
Если нет, то приведите пример со сдвинутой ячейкой: что получается и что должно быть...
Изменено: Ренат - 07.06.2016 18:59:19
Успехов. И мне того же. Благодарю. :)
 
Перейти    
Страницы: 1 2 3 4 5 След.
Наверх