Смещение фокуса на ячейку и взятие ее в переменную

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Смещение фокуса на ячейку и взятие ее в переменную (Макросы/Sub)

Storm114

Дата: Понедельник, 12.12.2016, 11:30 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

Здравствуйте! Помогите пожалуйста нубасу...

Предыстория:
Был ноутбук с 7кой и с 10 офисом - все работало.
Купили ноутбук с 10-кой и установил тот-же 10 офис. Работать перестало.

Суть проблемы:
В упрощенном виде вот такой код:
[vba]

Код

Sub Кнопка1_Щелчок()

shifr = ActiveCell.FormulaR1C1
        SendKeys "{LEFT}", True


nazv = ActiveCell.FormulaR1C1
        SendKeys "{RIGHT}", True

        Debug.Print shifr
        Debug.Print nazv

End Sub

[/vba]

Использовалось так: Ставлю фокус на ячейку с шифром, жму кнопку, получаю 2 переменные с шифром и названием. А теперь по непонятным мне причинам вторая переменная всегда остается такой же как и первая. Я даже визуально вижу как фокус прыгает туда-сюда. Но nazv хоть тресни имеет значение из поля Шифр (shifr)

Пс. По offset срабатывает, но использовать его мешают объединенные ячейки. Не получается. т.к. он берет значение из исходной строки. Или я что-то не так делаю...

К сообщению приложен файл: 8969034.xlsm (18.2 Kb) · 3157829.jpg (21.2 Kb)

Ответить

nilem

Дата: Понедельник, 12.12.2016, 11:54 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Цитата Storm114, 12.12.2016 в 11:30, в сообщении № 1 ()

Купили ноутбук с 10-кой ... Работать перестало.

Продавайте ноут

Или попробуйте так:
[vba]

Код

Sub Кнопка1_Щелчок()
Dim shifr, nazv

shifr = ActiveCell.Value
nazv = ActiveCell(1, 0).MergeArea(1, 1).Value

Debug.Print shifr
Debug.Print nazv
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Storm114

Дата: Понедельник, 12.12.2016, 12:10 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2010

Вот спасибо!!! ОГРОМНОЕ!!! hands

Так действительно работает!

И все же... Просто интересно. В чем же прикол то с фокусом?... Почему работать перестало?...

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Смещение фокуса на ячейку и взятие ее в переменную (Макросы/Sub)

Страница 1 из 1
1