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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 26 След.
Как скопировать таблицу с формулами из надстройки в открытую книгу
 
Привет!
Если руками то, Alt+F11, найдите нужную надстройку, измените в ЭтаКнига IsAddin на True. Увидите листы надстройки. Копируйте.
VBA - код выполняется, игнорируя ошибки
 
Привет!
Цитата
Равик написал:
начались чудеса

Именуете Вы хорошо.

Вам поможет структурирование кода:
Разбейте код на процедуры, используя принцип единственной ответственности: - процедура должна делать что-то одно или чуть добавлять к входным параметрам = повысите понятность кода (хотя его может стать больше)
Вы получите возможность их тестировать по отдельности = уменьшите количество ошибок.

Пусть Ваша основная процедура состоит из вызовов процедур.

Вам поможет упрощение (отупливание) кода.
Код вида:
Код
Set Specs = Application.Workbooks(UZ).Sheets("Listing").Range(Cells(LastUsedCell.Row + 1, 1), Cells(LastUsedCell.Row + MassivDim + 1, 5))

сложный для анализа код.

Желательно его упонятить.
А хотя бы и так:
Код
Dim wsh As Worksheet
Dim cellLeft_ As Range
Dim cellRight As Range

Set wsh = Application.Workbooks(UZ).Sheets("Listing")
Set cellLeft_ = Cells(LastUsedCell.row + 1, 1)
Set cellRight = Cells(LastUsedCell.row + MassivDim + 1, 5)

Set Specs = wsh.Range(cellLeft_, cellRight)
План фактный анализ с помошью дашбордов, План фактный анализ с помошью дашбордов
 
Привет!

Цитата
Vladimir Chebykin написал:
сюда  
Спасибо!
Корректировка макроса, сборщика информации., Необходимо разобраться и найти решение возникающей проблемы.
 
Привет!

Написал в личку
Анекдот дня, Постим сюда понравившиеся:)
 
БМВ, Реально когнити́вный диссона́нс :-)
Полином третей степени, Необходимо найти коэффициенты полинома третей степени, а так же R квадрат не экселевскими функциями.
 
Привет!

Пишу в личку.

Сотрудничаем ...

Заказ свободен - я не уложился в обещанный срок.
Изменено: Inexsu - 24 Июл 2020 16:59:02
как сделать чтобы из ячеек excel не копировался символ ¶ в конце (при вставке в 1с)?
 
Привет!
Цитата
Leming написал:
обрабатывал все выделенные ячейки
Скрытый текст
таблица для начинающего бизнеса, ищу специалиста
 
Привет!
Пишу в личку.
Заполнение значений ячеек в зависимости от заданной суммы
 
Привет!
Цитата
Андрей VG написал:
меня сомнения терзают
не возьмут Вас продавцом в хозмаг :-)
Заполнение значений ячеек в зависимости от заданной суммы
 
Цитата
Darya Hom написал:
не по убыванию, а в случайном порядке?
Да, нужна функция перемешивания массива
Заполнение значений ячеек в зависимости от заданной суммы
 
Привет!
Прототип во вложении.
Без буфера обмена
 
Привет!
Пишу в личку.
Обменялись. Спасибо!
Изменено: Inexsu - 2 Июл 2020 23:36:45
Макросс VBA, для генерации инструций, Мне нужно написать макрос VBA, который позволит упростить написание инструкций для программистов.
 
Привет!

Kanitele, не Вы первый, не Вы последний.
"Перевести «программы», написанные в Excel на какой-либо язык программирования — практически нереально. Это займет уйму времени, а проблема постоянного обновления и проверки корректности делает такую задачу и вовсе нерешаемой."
Отображение картинки по ссылке из ячейки (макрос)
 
Привет!

Задача ещё актуальна?
Генератор случайных чисел в заданном диапазоне
 
Цитата
Фарит написал:
не понятно как это использовать.
"Прежде чем вызывать функцию Rnd, воспользуйтесь оператором Randomize без аргумента, чтобы инициализировать генератор случайных чисел с начальным значением на основе системного таймера."
Rnd
Имя "cbr" уже существует, Сообщение при копировании листа
 
Привет!
Может поможет
Макрос Автовысота
 
Привет!
Пишу в личку ...
Обменялись. Спасибо aset224!
Изменено: Inexsu - 23 Июн 2020 13:47:45
Работа с таблицей, формирование документов.
 
Привет!
Цитата
Poul White witsker написал:
Исполнитель найден
Для статистики: не я.
Работа с таблицей, формирование документов.
 
Привет!
Написал в личку ...
Нумерология, квадрат имени, души, требуется внести данные после расчета.
 
Цитата
БМВ написал:
я принесу
принёс?
Перенос строки с активной ячейкой на другой лист, ошибка "run-time error '1004'"
 
Привет!
Цитата
vikttur написал:
x1Up - не могла такая константа работать раньше
vokushna, В коде первого сообщения замените x1Up на xLUp
Перенос с одного листа на другой, формулы не работают.
 
Привет!
Лист "Лист 1", в ячейку B3
Код
=СУММ(--ПСТР(B2;СТРОКА(Sheet1!A1:A8);1))
Вставка строк в зависимости от выпадающего списка
 
Цитата
Юрий М написал:
1. Как макрос должен понять, что при выборе "Разработка грунта" нужно вставить 2 строки, а не 1 или 4?2
По цвету ячеек.
Цитата
Юрий М написал:
3. Если вставить хоть одну строку в верхнюю таблицу, то "поедет" таблица в столбцах A:G. Как быть с этим?
Вставлять не строки, а ячейки со сдвигом.
Нумерология, квадрат имени, души, требуется внести данные после расчета.
 
Привет!
на всякий случай подписался ...
Вставка строк в зависимости от выпадающего списка
 
Привет!
Ставим событие на изменение нужных ячеек
При изменении смотрим значение в ячейке, находим это значение в столбце Состав, определяем диапазон копирования, копируем, вставляем.
Создание макроса на проверку исходных данных от заказчика (ver.2)
 
День добрый!
Пишу в личку.
Анекдот дня, Постим сюда понравившиеся:)
 
Цитата
Alemox написал:
пользователи
Три одинаковых чашки, с какой начинать? Непонятно ...
VBA. Форматирование ячейки сводной таблицы, VBA. Извлечение адреса ячейки сводной таблицы по ее содержимому
 
Цитата
Bizo написал:
вернет мне адрес ячейки
Вернёт объект со всеми методами range
Если изменить одно свойство ячейки то примерно так:
Код
  Cell_by_Value( _
    Worksheets("ВРС по конструкциям").UsedRange, _
    "Наплавленный металл 1 %"). _
    Interior.Color = vbGreen
Передача аргументов пользовательской форме.
 
Привет!
Код
Function User_Form( _
  argument1 As String) _
  As String
  UserForm2.TextBox1.Text = argument1
  UserForm2.Show
  User_Form = UserForm2.TextBox1.Text
End Function
VBA. Форматирование ячейки сводной таблицы, VBA. Извлечение адреса ячейки сводной таблицы по ее содержимому
 
Привет!
А хотя бы и в сводной:
Код
Function Cell_by_Value( _
  rnge As Range, _
  sVal As String) _
  As Range

  Set Cell_by_Value = rnge.Find(sVal)

End Function
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 26 След.
Наверх