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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1797 След.
Можно ли прописать процедуры события книги (например, Workbook_SheetSelectionChange) в качестве надстройки?
 
Почитайте здесь.
Приравнивание части массива другому массиву без цикла
 
Цитата
andre_bae написал:
как ПЕРЕКЛАДЫВАТЬ?
Я же не знаю, по какому условию Вам необходимо переложить... Вот такой  вариант переложит во второй массив каждое второе значение из первого.
Код
Sub qqq()
Dim i As Long, x As Long, ArrIn(), ArrOut
    ArrIn = Range("A1:A1000").Value
    ReDim ArrOut(1 To UBound(ArrIn), 1 To 1)
    For i = 1 To UBound(ArrIn) Step 2
        x = x + 1
        ArrOut(x, 1) = ArrIn(i, 1)
    Next
    Range("F1").Resize(x, 1).Value = ArrOut
End Sub
Приравнивание части массива другому массиву без цикла
 
Цитата
andre_bae написал:
так в№2 именно для расчета среднего выборка выбирается в массив. И повторять это действие придется для каждого из значений в столбце.
Вы опять путаете: действие из #2 нужно выполнить 1 (ОДИН!) раз - заберёте в массив весь диапазон. А дальше работайте именно с этим массивом - перекладывайте из получившего массива во второй, который затем одним махом можно будет выгрузить на лист.
Автопечать, Помощь с макросом
 
nor, не нужно торопиться. Ваше сообщение скрыто до устранения замечания.
Приравнивание части массива другому массиву без цикла
 
Цитата
andre_bae написал:
похоже, что придется именно что выбирать с листа выборку а не заносить сразу весь массив в память
А вот это будет как раз медленно. Забирайте в массив всё, а уже из него выбирайте нужное.
Приравнивание части массива другому массиву без цикла
 
Цитата
andre_bae написал:
похоже, этот вариант скорости относительно выборки прямо с листа мне не добавит.
Да кто же Вам предлагает работать с листом? Работайте с массивом, как показано по ссылке.
Приравнивание части массива другому массиву без цикла
 
andre_bae, Вы что-то путаете: вариант, предложенный Sanja в #2 - это самый быстрый способ забрать данные с листа в массив и больше к листу не обращаться, а работать уже с этим массивом.
По основному вопросу: думаю, что придётся циклом перекладывать нужные данные из одного массива в другой. Это быстро.
Приравнивание части массива другому массиву без цикла
 
Цитата
andre_bae написал:
так очень медленно работает
С чего Вы взяли?
Экспогрт csv из выбранных файлов папки на один лист
 
askex,а эта статья из "Приемов" не поможет?
Копирование столбца на другой лист по его заголовку
 
Вован, копировать нужно из одной книги в другую?
Автопечать, Помощь с макросом
 
С названием темы беда. Конкретизируйте: предложите новое название - модераторы поменяют.
Макрос - копирование значения ячеек в буфер обмена
 
Скопируйте в модуль листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C3")) Is Nothing Then Range("C5").Copy
End Sub
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
32-ой далеко крутить )) См. вариант для 10-го столбца. Комментарии в коде помогут понять принцип.
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
Цитата
EvgeniyLFC написал:
как применить это в другому столбцу? Смена номера столбца и ячеек не помогает.
К какому другому?
Замена формул в ячейках на их значения при помощи макроса
 
Да я и не ругался )
Замена формул в ячейках на их значения при помощи макроса
 
AMI83, оформляйте код соответствующим тегом. Посмотрите, как это выглядит у _Igor_61.
Исключить из цикла Листы не соответствующие определенным условиям
 
Виталий Криворучко, ну не цитируйте то, что цитировать не нужно.
Исключить из цикла Листы не соответствующие определенным условиям
 
В общем случае это может выглядеть так:
Код
Sub qqq()
Dim Sht As Worksheet
    For Each Sht In ThisWorkbook.Sheets
        If Sht.Name Like "*-*" Then
            'Здесь действия с листом
        End If
    Next
End Sub
Исключить из цикла Листы не соответствующие определенным условиям
 
Вариант: в цикле перебора листов проверять наличие дефиса в имени листа.
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
Ещё одна идея: целиком удаляем столбец В, затем подставляем str в "новый" столбец и останется вернуть текст в заголовке.
Копирование ячейки много раз
 
Ну хоть что-то стало проясняться ))
Код
Sub макрос2()
Dim LastRow As Long
    With Sheets("лист1")
        LastRow = .Cells(.Rows.Count, 19).End(xlUp).Row + 1
        If LastRow < 18 Then LastRow = 18
    '    Range("A1").Copy .Range(.Cells(18, 19), .Cells(LastRow, 19))
        .Cells(LastRow, 19) = Range("A1").Value
    End With
End Sub
А зачем конструкция With - End With, если работаем на активном листе?
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
Цитата
EvgeniyLFC написал:
Больше других вариантов нет?
Есть: программно снимайте фильтр, затем возвращайте его. Тогда можно будет очистить сразу диапазон.
Копирование ячейки много раз
 
Цитата
CEHATOP написал:
Необходимо начинать вставку с 18 строки 19 столбца и далее вниз на 19, 20, 21 строки
CEHATOP, давайте уточнимся, а то рассказчик из Вас ещё тот ))
Нужно КАЖДЫЙ раз начинать со строки 18? Если так, то при каждом (втором и более) выполнении макроса итоговый диапазон будет увеличиваться только на одну строку.
Копирование ячейки много раз
 
Цитата
CEHATOP написал:
Необходимо при каждом срабатывании макроса добавлять одну запись в столбец.
Могу только повторить: выполняйте макрос, копирующий значение ячейки в первую свободную СТОЛЬКО раз, сколько требуется.
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
Цитата
EvgeniyLFC написал:
почему она действует только до 16 строчки?
Потому что последняя строка у меня определяется по первому столбцу, в нём последнее значение как раз в строке 16.

Цитата
EvgeniyLFC написал:
видно, как макрос нагружает процессор, гоняя по всем миллионам ячеек в столбце.
С чего Вы решили, что МИЛЛИОНЫ? Макрос перебирает ровно 15 ячеек - со второй по шестнадцатую. Можете убедиться в этом сами, прогнав его пошагово.
Копирование ячейки много раз
 
Цитата
CEHATOP написал:
Копирование ячейки много раз
CEHATOP, по такому названию ответ может быть таким: выполняйте макрос столько раз, сколько требуется. Уточните название темы по задаче.
Обработка событий динамически создаваемых элементов управления пользовательских форм
 
Цитата
Amberalex написал:
Обновление должно происходить после выхода из textbox, т.е. события change
Change и Exit - Это разные события.
А зачем создавать себе трудности с программно созданными контролами? Просто нарисуйте их один раз )
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
Вот.
Макрос для того, чтобы в столбце была заполнена только одна ячейка
 
Может тогда циклом очищать ячейки?
Проблема с удалением заголовка не наблюдается.
Вставка из одинарных ячеек в смёрженные
 
Rostov87, чего Вас потянуло в тему, возраст которой пять лет? )
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1797 След.
Наверх