powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
8 сообщений из 8, страница 1 из 1
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37817520
Krol0071
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
И еще один, чтобы искал в строке "плюс" (сгруппированные ячейки).

Пример:

Есть таблица А1:Р5 (допустим)
В ячейке "А1" стоит дата( Начало квартала) - "+" ------- при открытии "+" открывается "А2"
В ячейке "А2" стоит дата(Начала периода) - "+" ------- при открытии "+" открывается "А3"
В ячейке "А3" стоит дата(Начала недели) - "+" ------- при открытии "+" открывается дни недели до следующей недели, далее периода, далее квартала. При появлении нового периода (автоматически появляется "+"), нужно сделать так чтобы при обнаружении в строке "+" он автоматически открывал его (раскрывал).

Заранее спасибо!

Пример наглядного вида прикреплю файлом.
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37817604
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Krol0071, вы издеваетесь?
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37817679
Krol0071
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
PlanBKrol0071, вы издеваетесь?
Данная кнопка раскрывает все плюсы в определенном диапазоне! А мне этого не надо!
Данный файл просто берет данные с другого файла, и при обновлении листа добовляется автоматически новый столбик с данными!
Так в новом столбце (в ячейке появляется автоматически плюс). Вот мне и надо чтобы этот плюс в последней ячейке и открывался АВТОМАТИЧЕСКИ!
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37817693
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Krol0071в последней ячейке и открывался АВТОМАТИЧЕСКИ!пустая трата времени - такой макрос бесполезен.

и вообще, организуйте данные по-другому. их невозможно читать
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37817944
Krol0071
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
PlanBKrol0071в последней ячейке и открывался АВТОМАТИЧЕСКИ!пустая трата времени - такой макрос бесполезен.

и вообще, организуйте данные по-другому. их невозможно читать

А есть возможность предоставить такой макрос? Если да, то можно хоть на него посмотреть? А там дальше я уж сам что нибудь похимичу над ним?

Мне хотя бы макрос который находит последнюю заполненную ячейку в строке.

Спасибо!
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37817965
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Krol0071Мне хотя бы макрос который находит последнюю заполненную ячейку в строке.

Krol0071, см. здесь
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37818103
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Krol0071Мне хотя бы макрос который находит последнюю заполненную ячейку в строке.

Спасибо!
1. Открыть Эксель
2. Выделить ячейку в нужной строке
3. Начать запись макроса
3. Нажать ctrl+[стрелка вправо]
4. остановить запись
5. нажать alt+f11 и "дальше самому как-нибудь химичить над ним"
...
Рейтинг: 0 / 0
Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
    #37818582
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
'Количество листов в книге
    ЧислоЛистов = Worksheets.Count

    'Цикл перебора листов
    For i = 1 To ЧислоЛистов
        Set sh = Worksheets(i)
        'выясняем последнюю строку заполненную данными
        ЧислоСтрок = sh.Cells.SpecialCells(xlCellTypeLastCell).Row
        'выясняем последний столбец заполненный данными
        ЧислоСтолбцов = sh.Cells.SpecialCells(xlCellTypeLastCell).Column
        'очистить диапазон ... Cells(1, 2)- сначала строка, затем столбец
        Range(sh.Cells(1, 2), _
              sh.Cells(ЧислоСтрок, ЧислоСтолбцов)).Clear
    Next
'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set sh = Nothing
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нужна помощь! Нужен макрос чтобы искал в строке последнюю заполненную ячейку.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]