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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 22 След.
Копирование отфильтрованного диапазона из одной в таблицы в конец другой этого же листа
 
Цитата
CRAFT написал:
проблема определения последней строки
Код
Option Explicit

Public Sub test()
    
    Debug.Print Столбец_Строка_Последняя(ActiveSheet, 7)

End Sub

Public Function Столбец_Строка_Последняя(ByVal ws As Worksheet, _
        ByVal iCol As Long) _
        As Long

    Столбец_Строка_Последняя = ws.Cells(ws.Rows.Count, iCol).End(xlUp).Row

End Function
Изменено: Inexsu - 17 Май 2019 21:29:47
Копирование отфильтрованного диапазона из одной в таблицы в конец другой этого же листа
 
Привет!
Как вариант: добавьте таблицу целиком, а потом удалите пустые строки.
Сбор данных из word, excel и pdf (форматы отличны) в одну форму., автоматизация функций сбора данных из редактируемых и не редактируемых форматов в одну форму.
 
Привет!
Пишу в личку.
Поиск в книге ексель по заданому списку значений
 
Привет!
Прототип во вложении.
Поместите туда свои листы, заполните первый столбец листа "Поиск Таблицей", нажмите кнопку.
Значение ячейки исходя из её цвета
 
Привет!
Цитата
lopukhin написал:
результат выведен в отдельный столбик
Покажите.
Макрос объединения столбцов умной таблицы
 
Привет!
Цитата
dobrov написал:
макросом реализовать?
Создать столбец со сцепкой и ...
Код
Private Sub CommandButton1_Click()
' Объединить Макрос
    
    Columns("C:G").EntireColumn.Hidden = False
    
    Columns("C:E").EntireColumn.Hidden = True

End Sub

Private Sub CommandButton2_Click()
' Разъединить Макрос
    
    Columns("C:G").EntireColumn.Hidden = False
    
    Columns("F:F").EntireColumn.Hidden = True

End Sub
Удаление данных из ячейки при редактировании, отсутствует отображение данных в строке редактирования
 
Привет!
Чтобы не "пропадали" данные
На незащищённом листе, на нужных ячейках - Формат ячеек, Защита  - снимите галочку со "Скрыть формулы"
Удаление данных из ячейки при редактировании, отсутствует отображение данных в строке редактирования
 
Привет!
Файл будет?
Использование циклов в массивах. Не копируются, не вставляются данные из массива.
 
Привет!
Цитата
Джек Восмеркин написал:
Про UsedRange.Value был наслышан, понял что его задача - отрисовать границы диапазона заполненных ячеекЕсли оператор некорректный - гле взять нормальный?
Тут функция UsedRange_Без_Пустых
Скорректировать макрос или создать новый (под 32-разрядный Эксель)
 
Привет!
Пишу в личку.

Файлы посмотрел, пообщался с Ольгой.
Не могу уделить время, необходимое для решения этой задачи.

Заказ свободен.
Изменено: Inexsu - 11 Апр 2019 14:03:25
Макрос для сравнения столбцов с одинаковыми заголовками, находящимися в разных документах
 
Цитата
criss написал:
ещё какие-нибудь действенные варианты?
Да. Уже придумано много хитростей для ускорения.
Макрос для сравнения столбцов с одинаковыми заголовками, находящимися в разных документах
 
Ещё раз обновил файл в сообщении 2
Макрос для сравнения столбцов с одинаковыми заголовками, находящимися в разных документах
 
Обновил файл в сообщении 2
Макрос для сравнения столбцов с одинаковыми заголовками, находящимися в разных документах
 
Привет!
Цитата
criss написал:
почему мы ищем звёздочку и при поиске крайнего столбца, и при поиске крайней строки? Она же по идее требуется только для нахождения номера строки?
Это прекрасное совпадение.
Коды поиска последней нижней строки и крайнего правого столбца придумали до Вашей задачи.
Да, эти коды нам, пока, не пригодились. :-)
Цитата
criss написал:
что нужно ещё приложить?
Вы приложили исходные данные, свои рассуждения .. а как должен выглядеть результат для "Подзадача №1! ? Очень помогает найти решение.
Макрос для сравнения столбцов с одинаковыми заголовками, находящимися в разных документах
 
Привет!
Желательно приложить ещё и то, что нужно..
Во вложении прототип решения "Подзадача №1".
Изменено: Inexsu - 8 Апр 2019 23:59:42
Перенос данных из общей таблицы по условию первого столбца на вновь создаваемые листы.
 
Цитата
Nordheim написал:
Так же не видны макросы, которые  имеют в скобках параметры
а так:
Код
Public Sub REName_(Optional ByVal msg As Variant)

End Sub
?
Макрос для копирования выбранных столбцов из нескольких файлов в новую книгу
 
Привет!

Как вариант:
Переписать Вашу sub, чтобы она принимала на вход полное имя файла.
Взять sub, который я отрефакторил у Дмитрий(The_Prist) Щербаков и после строки
Код
For Each sFile In coll
вставить вызов своей процедуры с параметром sFile
Скрытый текст
[CODE][/CODE]
Перенос данных из общей таблицы по условию первого столбца на вновь создаваемые листы.
 
Привет!
Цитата
artyrH написал:
как скрыть макросы
Из 3 макросов, через  Alt+F8 будет виден 1:
Код
Public Sub Sub_Public()
  
End Sub

Private Sub Sub_Private()

End Sub

Public Function Function_()

End Function
Расчет скидок в массиве данных с ценами
 
Цитата
БМВ написал:
оба раза  Inexsu
Благодаря Вам, БМВ,спасибо.
В работе.
Сделано. Спасибо inna1365,! До новых встреч!
Изменено: Inexsu - 14 Мар 2019 20:36:26
Расчет скидок в массиве данных с ценами
 
Привет!
Пишу в личку.
Поиск последней заполненной ячейки VBA
 
Цитата
БМВ написал:
какой адрес последней заполненной ячейки
$C$4
Цитата
БМВ написал:
как определить её
смотрите код сообщения 9. Пояснения в сообщении 17.
Поиск последней заполненной ячейки VBA
 
Цитата
Ігор Гончаренко написал:
код стал немного сложнее
Спасибо. Но я не оценил. For each в массиве ходит своей дорогой. Положите Вы диапазон в массив, затем массив положите в диапазон ... и что изменилось для нахождения "последней заполненной ячейки"?
Поиск последней заполненной ячейки VBA
 
Цитата
Ігор Гончаренко написал:
Dim c
Код не оформлен, файла нет. Вы ли это Ігор Гончаренко?
Поиск последней заполненной ячейки VBA
 
Цитата
Ігор Гончаренко написал:
пока не определено понятие "последняя заполненная ячейка"
подсказка была в
Цитата
lex_dj написал:
упираюсь в последний столбец.
Я как, просматривающий таблицы сверху-слева-направо-влево-вниз-слева-направо ... легко определяю и первую и последнюю ячейку в своей языковой традиции.
И индекс ячеек тоже так делает. И For each.
Так что Вас двое (с логикой), а нас четверо :-).
Поиск последней заполненной ячейки VBA
 
Цитата
Ігор Гончаренко написал:
на роль последней заполненой в данном листе есть 3 претендента
одна: J38. Мой код её и находит- сначала ищет строку, затем столбец.
Поиск последней заполненной ячейки VBA
 
Привет!
Сермяжная практика
Скрытый текст
Изменено: Inexsu - 7 Мар 2019 18:26:33
Заменить макросом формулы на значения
 
Во вложении ...
Заменить макросом формулы на значения
 
Привет!
Делал замену формул на значения и подстановка макросом формул обратно. Скорость на тысячах строк возрастала наглядно.
Но кодирование было основано на "своеобразных" данных пользователя.
Да, раньше я писал "спагетти" код :-)
Скрытый текст
При нажатии ctrl+end происходит выделение последней ячейки листа
 
Привет!
Встать в ячейку А1, сохранить файл. Насладиться ctrl+end
WinHttpRequest получает страницу, отличную от той, что получает браузер
 
Привет!
Может подойдёт ...
Код
Function WebPageText(ByVal sURL As String) As String
    On Error Resume Next
    Set ie = CreateObject("InternetExplorer.Application"):    ' загружаем браузер Internet Explorer
    Таймер = Timer
    ie.Navigate sURL    ' загружаем сайт
    'ie.Visible = 1
    While ie.busy Or (ie.readyState <> 4)
        Application.StatusBar = "Открываю страницу для ячейки: " _
                                & i & ", " & j & ". Осталось сек: " _
                                & 12 - Int(Timer - Таймер)
        DoEvents
        If Timer - Таймер > Abs(12) Then Exit Function
    Wend    ' ждем, пока загрузится страница
    WebPageText = ie.Document.body.innerText    ' считываем текст веб-страницы
    ie.Quit: Set ie = Nothing     ' закрываем браузер
End Function
Изменено: Inexsu - 4 Мар 2019 00:39:23
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 22 След.
Наверх