Ставите бегунку такие настройки (ПКМ\Формат объекта): [vba]
Код
Минимальное значение: 14 (это номер колонки N - определено с помощью функции СТОЛБЕЦ) Максимальное значение: 178 (это номер колонки FV) Связь с ячейкой: $N$3
[/vba]и оформляете такой макрос (на бегунке ПКМ\Назначить макрос): [vba]
Код
Sub Полосапрокр4_Изменение() Cells(11, Range("N3").Value).Resize(10, 1).Activate End Sub
[/vba]
Ставите бегунку такие настройки (ПКМ\Формат объекта): [vba]
Код
Минимальное значение: 14 (это номер колонки N - определено с помощью функции СТОЛБЕЦ) Максимальное значение: 178 (это номер колонки FV) Связь с ячейкой: $N$3
[/vba]и оформляете такой макрос (на бегунке ПКМ\Назначить макрос): [vba]
Код
Sub Полосапрокр4_Изменение() Cells(11, Range("N3").Value).Resize(10, 1).Activate End Sub
Ставите бегунку такие настройки (ПКМ\Формат объекта): Минимальное значение: 14 (это номер колонки N - определено с помощью функции СТОЛБЕЦ) Максимальное значение: 178 (это номер колонки FV) Связь с ячейкой: $N$3
и оформляете такой макрос (на бегунке ПКМ\Назначить макрос): Sub Полосапрокр4_Изменение() Cells(11, Range("N3").Value).Resize(10, 1).Activate End Sub
Большое спасибо! А можно немного доработать? Чтобы при прокручивании вправо даты (начиная со столбца N) динамически таблица со шкалой времени уходила (влево - невидимая область) на заднюю область (за столбец M) и весь календарь двигался соответственно. Был бы очень удобный инструмент.
Ставите бегунку такие настройки (ПКМ\Формат объекта): Минимальное значение: 14 (это номер колонки N - определено с помощью функции СТОЛБЕЦ) Максимальное значение: 178 (это номер колонки FV) Связь с ячейкой: $N$3
и оформляете такой макрос (на бегунке ПКМ\Назначить макрос): Sub Полосапрокр4_Изменение() Cells(11, Range("N3").Value).Resize(10, 1).Activate End Sub
Большое спасибо! А можно немного доработать? Чтобы при прокручивании вправо даты (начиная со столбца N) динамически таблица со шкалой времени уходила (влево - невидимая область) на заднюю область (за столбец M) и весь календарь двигался соответственно. Был бы очень удобный инструмент.bsb_
Шкала времени очень большая. Нужна видимая область от столбца F до столбца M (то есть начало, конец, срок и исполнитель и само движение работы) при этом прокрутка календаря должна работать для видимости шкалы мероприятий.
Шкала времени очень большая. Нужна видимая область от столбца F до столбца M (то есть начало, конец, срок и исполнитель и само движение работы) при этом прокрутка календаря должна работать для видимости шкалы мероприятий.bsb_
Сообщение отредактировал bsb_ - Четверг, 21.07.2022, 16:33
[/vba] Получилось довольно прикольно. Хотя у меня была мысль сделать по-другому: зафиксировать несколько первых столбцов таблицы, чтобы остальные справа прокручивались, а сам бегунок перенести в область зафиксированных столбцов. Если понравится эта мысль, то так и сделайте, оставив первоначальный макрос.
[/vba] Получилось довольно прикольно. Хотя у меня была мысль сделать по-другому: зафиксировать несколько первых столбцов таблицы, чтобы остальные справа прокручивались, а сам бегунок перенести в область зафиксированных столбцов. Если понравится эта мысль, то так и сделайте, оставив первоначальный макрос.Gustav
Не очень понял про движущийся календарь, зато сделал движущимся сам бегунок (замените первоначальный макрос на следующий): Sub Полосапрокр4_Изменение() Dim shp As Shape, rng As Range
Set shp = ActiveSheet.Shapes("Scroll Bar 4") Set rng = Cells(11, Range("N3").Value)
Получилось довольно прикольно. Хотя у меня была мысль сделать по-другому: зафиксировать несколько первых столбцов таблицы, чтобы остальные справа прокручивались, а сам бегунок перенести в область зафиксированных столбцов. Если понравится эта мысль, то так и сделайте, оставив первоначальный макрос.
Перемещающийся бегунок усложняет процесс:)) Но спасибо!)
Посмотрите, пжл, ролик, размещенный по адресу https://www.youtube.com/watch?v=2o-VOxm4HbI На 45 минуте он наглядно показывает этот инструмент (бегунок). У меня самостоятельно не получается это сделать:( Макросы для меня как для историка сопромат:)
Не очень понял про движущийся календарь, зато сделал движущимся сам бегунок (замените первоначальный макрос на следующий): Sub Полосапрокр4_Изменение() Dim shp As Shape, rng As Range
Set shp = ActiveSheet.Shapes("Scroll Bar 4") Set rng = Cells(11, Range("N3").Value)
Получилось довольно прикольно. Хотя у меня была мысль сделать по-другому: зафиксировать несколько первых столбцов таблицы, чтобы остальные справа прокручивались, а сам бегунок перенести в область зафиксированных столбцов. Если понравится эта мысль, то так и сделайте, оставив первоначальный макрос.
Перемещающийся бегунок усложняет процесс:)) Но спасибо!)
Посмотрите, пжл, ролик, размещенный по адресу https://www.youtube.com/watch?v=2o-VOxm4HbI На 45 минуте он наглядно показывает этот инструмент (бегунок). У меня самостоятельно не получается это сделать:( Макросы для меня как для историка сопромат:)bsb_
недели у вас разбиты УФ, им же можно раскрасить кварталы, по дате возвращаемой бегунком. Т.к. названия кварталов по Вашим хотелкам все равно не будет видно постоянно. Вариант макросом от Gustav, с фиксированными столбцами как он описал в #6.
недели у вас разбиты УФ, им же можно раскрасить кварталы, по дате возвращаемой бегунком. Т.к. названия кварталов по Вашим хотелкам все равно не будет видно постоянно. Вариант макросом от Gustav, с фиксированными столбцами как он описал в #6.bigor
разбивка по периодам.. недели у вас разбиты УФ, им же можно раскрасить кварталы, по дате возвращаемой бегунком. Т.к. названия кварталов по Вашим хотелкам все равно не будет видно постоянно. Вариант макросом от Gustav, с фиксированными столбцами как он описал в #6.
разбивка по периодам.. недели у вас разбиты УФ, им же можно раскрасить кварталы, по дате возвращаемой бегунком. Т.к. названия кварталов по Вашим хотелкам все равно не будет видно постоянно. Вариант макросом от Gustav, с фиксированными столбцами как он описал в #6.
разбивка по периодам.. недели у вас разбиты УФ, им же можно раскрасить кварталы, по дате возвращаемой бегунком. Т.к. названия кварталов по Вашим хотелкам все равно не будет видно постоянно. Вариант макросом от Gustav, с фиксированными столбцами как он описал в #6.
При прокрутке после 60 порядкового номера пропадает столбец исполнитель (а он нужен) подскажите, пжл, где это поправить?
разбивка по периодам.. недели у вас разбиты УФ, им же можно раскрасить кварталы, по дате возвращаемой бегунком. Т.к. названия кварталов по Вашим хотелкам все равно не будет видно постоянно. Вариант макросом от Gustav, с фиксированными столбцами как он описал в #6.
При прокрутке после 60 порядкового номера пропадает столбец исполнитель (а он нужен) подскажите, пжл, где это поправить?bsb_
Сообщение отредактировал bsb_ - Пятница, 22.07.2022, 09:51
Закладка вид, Закрепить области > Снять закрепление. Затем выделить столбцы с А по N и закрепить. Непонятно почему если выделяем с А по М, то М не закрепляется, приходится выделять на один больше.
Закладка вид, Закрепить области > Снять закрепление. Затем выделить столбцы с А по N и закрепить. Непонятно почему если выделяем с А по М, то М не закрепляется, приходится выделять на один больше.bigor
Закладка вид, Закрепить области > Снять закрепление. Затем выделить столбцы с А по N и закрепить. Непонятно почему если выделяем с А по М, то М не закрепляется, приходится выделять на один больше.
Исполнитель все равно уезжает, я не понимаю( Он кстати закрепляет максимум по столбец L (черта дальше не фиксирует область, может это ограничение в программе), дальше не закрепляет.
Закладка вид, Закрепить области > Снять закрепление. Затем выделить столбцы с А по N и закрепить. Непонятно почему если выделяем с А по М, то М не закрепляется, приходится выделять на один больше.
Исполнитель все равно уезжает, я не понимаю( Он кстати закрепляет максимум по столбец L (черта дальше не фиксирует область, может это ограничение в программе), дальше не закрепляет.bsb_
Сообщение отредактировал bsb_ - Пятница, 22.07.2022, 10:18
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
