Перемещение столбца влево

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перемещение столбца влево (Формулы/Formulas)

astashov_michail@tutby

Дата: Вторник, 23.08.2022, 14:53 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 0 ±

Замечаний: 100% ±

2016

Всем доброго дня.
в ячейку ввожу цифры (например: 2 или 42 или 4,3), которые хочу найти из строки «2», и первое попавшееся совпадение столбца (вести отсчёт слева на право)должен переместится в левое положение (т.е. отображаться справа от закреплённой области)

К сообщению приложен файл: __..xlsx (458.6 Kb)

astashovM..

Ответить

Nic70y

Дата: Вторник, 23.08.2022, 15:01 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

так

Код

=ИНДЕКС(2:2;ПОИСКПОЗ($A5&"*";2:2;)+СТОЛБЕЦ(A1)-1)

надо?

К сообщению приложен файл: 92.xlsx (458.4 Kb)

ЮMoney 41001841029809

Ответить

astashov_michail@tutby

Дата: Вторник, 23.08.2022, 15:06 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 0 ±

Замечаний: 100% ±

2016

Nic70y, возможно не хватает знаний, чтоб более правильнее описать затруднения мои, но предложенный вами вариант не подходит, т.к. в каждом столбце содержится своя информация и необходимо именно смещение столбцов, а так получается столбцы остаются на месте

astashovM..

Ответить

Nic70y

Дата: Вторник, 23.08.2022, 15:14 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

что значит смещение столбцов?
куда девать "левые" столбцы?
скрыть или что?

апдейт
или просто протянуть прокрутку?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a5")) Is Nothing Then
        u = Application.Match(Target.Value & "*", Range("2:2"), 0)
        v = IsNumeric(u)
        If v Then
            ActiveWindow.ScrollColumn = u
        Else
            MsgBox "Введена фигня!"
        End If
    End If
End Sub

[/vba]