Навигация по контролам запраш. № семейства не существует.

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

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

Навигация по контролам запраш. № семейства не существует. (Макросы/Sub)

bsi

Дата: Четверг, 28.09.2017, 11:46 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2010

Привет специалисты VBA. Проблема в том, что при навигации по контролам вне таблицы, появляется шибка запрашиваемый № семейства не существует. Посмотрите, что надо исправить в коде, чтобы устранить эту проблему. Код слеплен из разных источников, а я в VBA практически ноль. Всем ответившим спасибо. Файл во вложении.
[moder]Перенес тему в Ворд.
Туть хоть и VBA, но все равно это Ворд[/moder]

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

Сообщение отредактировал _Boroda_ - Четверг, 28.09.2017, 12:13

Ответить

krosav4ig

Дата: Четверг, 28.09.2017, 12:26 | Сообщение № 2

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте. [vba]

Код

Sub Latkir()
    If Not Selection.Information(wdWithInTable) Then Exit Sub
    Select Case Selection.Rows(1).index
        Case 1 To 3, 8 To 11
            ActivateKeyboardLayout kb_lay_ru, 0
        Case 4 To 7
            ActivateKeyboardLayout kb_lay_en, 0
    End Select
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

bsi

Дата: Четверг, 28.09.2017, 12:34 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 29

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

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

Excel 2010

Отлично! Все стало нормально. Огромное Вам спасибо.

Ответить

Навигация по контролам запраш. № семейства не существует. (Макросы/Sub)

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