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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 104 След.
Сохранение нескольких файлов
 
Vitalii Checha, Я не зря изначально спрашивал пример исходника и того что получится, а по итогу, на сколько я знаю, если просто изменить .txt файл на
.xlsm, то получите ошибку, тут нужно считать информацию из файла записать в новую книгу Excel сохранить эту книгу а исходник удалить
"Все гениальное просто, а все простое гениально!!!"
Поиск и копирование столбцов с определенным значением
 
А вдруг, макросы тут как я понял не прокатят.
"Все гениальное просто, а все простое гениально!!!"
Поиск и копирование столбцов с определенным значением
 
Цитата
Лев Анатольевич написал:
в идеале - да
Ну в таком случае пожелаю удачи  ;)
Изменено: Nordheim - 15 апр 2021 17:09:48
"Все гениальное просто, а все простое гениально!!!"
Сохранение нескольких файлов
 
Текстовой файл сохранить как екселевский? а пример можно исходника и то что получится должно?
"Все гениальное просто, а все простое гениально!!!"
Сохранение нескольких файлов
 
Не совсем понятна задача, нужно создать или переименовать?
"Все гениальное просто, а все простое гениально!!!"
Поиск и копирование столбцов с определенным значением
 
Цитата
Лев Анатольевич написал:
где нужно скопировать весь столбец в страницу 2 при условии, что первая ячейка столбца в странице 1 имеет определенное значение.
Цитата
Лев Анатольевич написал:
Можно решить этот вопрос без использования макросов, надстроек и прочего стороннего вмешательства?
Как вы это себе представляете? Само что ли должно выполнится?
"Все гениальное просто, а все простое гениально!!!"
Сравнение по столбцу и копирование данных из двух книг в третью
 
Тут нужно либо на массивах делать с использованием словаря, для проверки вхождения, либо на коллекциях с модулями классов, в любом случае задача не из простых
Если файлы имеют большие таблицы + формулы, то вариант сверки прямо на листах будет просаживаться по скорости выполнения.
"Все гениальное просто, а все простое гениально!!!"
Контроль наличия файлов в папке.
 
Скрытый текст
Изменено: Nordheim - 4 апр 2021 22:26:29
"Все гениальное просто, а все простое гениально!!!"
Можно ли получить результат вычисления формулы в VBA без использования Имен и ячейки листа
 
Цитата
Евгений Смирнов написал:
Почему из ничего в Имя мы записываем формулу и получаем результат.
В какое имя и какую формулу? Формула возвращает имя Книги(листа, ячейки), сама формула расчитывается на листе или в коде?
Может я не совсем понял вопрос темы? Вы хотите не зная листа и ячейки получить значение формулы из этих двух неизвестных объектов так?
Или ......?
Изменено: Nordheim - 2 апр 2021 11:27:24
"Все гениальное просто, а все простое гениально!!!"
Можно ли получить результат вычисления формулы в VBA без использования Имен и ячейки листа
 
Если честно, не совсем понимаю, как это вы себе представляете, взять данные из ничего?
"Все гениальное просто, а все простое гениально!!!"
Можно ли получить результат вычисления формулы в VBA без использования Имен и ячейки листа
 
Что понимается под именем ячейки?
Cells(Rowindex,Columnindex) - не подойдет?
Если же опустить имя листа, то данные будут использованы с того, который сейчас активный
"Все гениальное просто, а все простое гениально!!!"
Из большого количества файлов выбрать суммы уплаченных налогов по критерию - ИНН
 
В итоге нужно все отобразить в файле "Сборка.xlsx"?
"Все гениальное просто, а все простое гениально!!!"
Проблема с запихиванием данных в массив
 
Цитата
nor написал:
послСтрока = Книга.Лист.UsedRange.Rows.Count
А если так
Код
 Книга.Лист.Range("a" & Книга.Лист.Rows.Count).end(xlUp).row
так же не работает?
"Все гениальное просто, а все простое гениально!!!"
Проблема с запихиванием данных в массив
 
По какому столбцу определяете последнюю строку из 40? увидеть бы оригинальный файл, впервые о таком слышу, что бы одни и те же данные на листезабирались в разные по размерам массивы
"Все гениальное просто, а все простое гениально!!!"
Проблема с запихиванием данных в массив
 
Пробовали не через метод GetObject?
"Все гениальное просто, а все простое гениально!!!"
VBA. Добавление (чтение) словарей в коллекцию
 
Цитата
Ігор Гончаренко написал:
и я обычно собираю не коллекцию, а словарь словарей
++++
"Все гениальное просто, а все простое гениально!!!"
Поиск повторяющся значений, Столбец B скопирован из столбца А но Exel не считает их одинаковыми.
 
Вы про это?
Изменено: Nordheim - 10 мар 2021 13:55:19
"Все гениальное просто, а все простое гениально!!!"
Списки с поиском по более, чем одному параметру (множественный ПОИСКПОЗ)
 
как вариант
"Все гениальное просто, а все простое гениально!!!"
Проверка TextBox по нажатию CommandButton
 
Код
Private Sub TextBox2_AfterUpdate()
    If Me.TextBox2.Value Mod Me.TextBox1.Value <> 0 Then MsgBox "Введено неверное кол-во.", vbInformation   
End Sub
Изменено: Nordheim - 9 мар 2021 12:23:40
"Все гениальное просто, а все простое гениально!!!"
Разнести данные по разным листам (по подразделениям)
 
Еще вариант.
"Все гениальное просто, а все простое гениально!!!"
Удаление выделенной позиции в ListBox с другого листа
 
Ничего не понял, что именно не работает, но возможно этот вариант подойдет.
Еще вариант, немного упрощенный, но с тем же функционалом
Изменено: Nordheim - 9 мар 2021 09:21:45
"Все гениальное просто, а все простое гениально!!!"
Удаление выделенной позиции в ListBox с другого листа
 
Вместо этого
Код
Sheets("Лист2").Activate
ActiveSheet.Rows(ListBox1.ListIndex + 2).Delete
Sheets("Лист1").Select

просто это
Код
Sheets("Лист2").Rows(ListBox1.ListIndex + 2).Delete

И никаких .Activate и .Select
"Все гениальное просто, а все простое гениально!!!"
Агрегация данных через Scripting.Dictionary, агрегация данных данных
 
Цитата
Mershik написал:
зачем они Вам
Да так, просто посмотреть на уровень знаний, может там и переделывать то ничего не нужно было
Изменено: Nordheim - 6 мар 2021 08:44:41
"Все гениальное просто, а все простое гениально!!!"
Агрегация данных через Scripting.Dictionary, агрегация данных данных
 
А зачем в файле удалили все свои макросы?
"Все гениальное просто, а все простое гениально!!!"
что делать если файл excel долго обрабатывает данные ????
 
Цитата
Avetis написал:
У меня есть файл
У меня его нет.
Цитата
Avetis написал:
Возможно ли как ни будь ускорить работу данного файла. ???
Но предположу, что возможно!!!
"Все гениальное просто, а все простое гениально!!!"
Выпадающий список с возможностью поиска внутри списка
 
А что за ошибка, у меня все работает без ошибок. Офис 2016. Может быть все таки дело в этом:
Цитата
Наталия Соловьева написал:
Офис стоит у него 2007, у меня 2016
"Все гениальное просто, а все простое гениально!!!"
Как макросом в модулях вызвать макрос из листов?
 
Цитата
_Igor_61 написал:
А насчет обращения к модулю листа из стандартного модуля - очень полезная штука, многим может пригодиться.
За 10 лет ни разу не пригодилось, а вот наоборот постоянно
"Все гениальное просто, а все простое гениально!!!"
Сортировка по числам, которые в конце строки после текста, Возможна ли сортировка по числам, которые идут в конце строки после текста?
 
Конкретно под ваш пример только выгрузку сделал во второй столбец, цифры вытаскивал с помощью функции от Kuzmich,
Скрытый текст
Изменено: Nordheim - 2 мар 2021 14:37:50
"Все гениальное просто, а все простое гениально!!!"
В каждой книге из папки, в зависимости от названия листа, запустить определенный макрос, vba
 
New, в этой части
Код
                If InStr(1, Sht.Name, "яблоки", vbTextCompare) > 0 Then Call Макрос_A
                If InStr(1, Sht.Name, "Слива", vbTextCompare) > 0 Then Call Макрос_B
                If InStr(1, Sht.Name, "Вишня", vbTextCompare) > 0 Then Call Макрос_C

я бы передавал сам лист в запускаемый макрос иначе все будет происходить на активном листе.
как то так
Код
                If InStr(1, Sht.Name, "яблоки", vbTextCompare) > 0 Then Call Макрос_A (Sht)
                If InStr(1, Sht.Name, "Слива", vbTextCompare) > 0 Then Call Макрос_B (Sht)
                If InStr(1, Sht.Name, "Вишня", vbTextCompare) > 0 Then Call Макрос_C (Sht)

В макросах же Макрос_A,Макрос_B,Макрос_C, так же нужно прописать получение параметром листа, и работать с полученным листом,
а не с активным.
Примерно так:
Код
Sub Макрос_A(sht as WorkSheet)
   With sht
      .....код макроса (не забываем перед написанием диапазонов ставить ".", что бы работа производилась на переданном листе)
   End With
End Sub
"Все гениальное просто, а все простое гениально!!!"
Найти в массиве значение и вывести заголовок
 
Пример пользовательской функции
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 104 След.
Наверх