[Решено] При активации ячейки в столбце меняем раскладку клавиатуры.

Автор bsi, 15 февраля 2017, 10:46

0 Пользователи и 1 гость просматривают эту тему.

bsi

Привет форумчане. Помогите простому пользователю закончить реализацию макроса.
При открытии файла раскладка клавиатуры кириллица. Надо чтобы при активации ячеек в столбце «В» переключится на латиницу, а при активации ячеек в столбце «С» - переключится на кириллицу. С кириллицей в макросе вроде все решил (не уверен, что правильно), а вот с латиницей тормоз. У кого есть свободное время подскажите как это сделать. Файл во вложении.

mikekaganski

Вам же нужно менять раскладку не по факту изменения содержимого, а по факту выделения ячейки. В предыдущей Вашей теме я Вам подправил Ваш макрос (правда, Вы почему-то это не восприняли, а потом фактически продублировали). Так и сделайте вызов функции установки раскладки по событию листа "выделенная область изменена".
С уважением,
Михаил Каганский

bsi

Уважаемый mikekaganski, приношу свои извинения, что не внимательно отнёсся к вашему посту http://forumooo.ru/index.php/topic,6162.0.html. Да, всё работает. Огромное спасибо. Удачного Вам дня.

bsi

Уважаемый mikekaganski, если выделить какой-либо столбец, выскакивает ошибка (во вложении). Как это возможно устранить?

mikekaganski

Private Sub Worksheet_SelectionChange(Target)
    If (Target.supportsService("com.sun.star.sheet.SheetCell")) Then
        Select Case Target.CellAddress.Column    ' в зависимости от номера столбца активной ячеки
            Case 0, 2 To 9   
                ActivateRussianLayout
            Case 1   
                ActivateEnglishLayout
            Case Else:    ' ничего не делаем (оставляем текущую раскладку)
        End Select
    End If
End Sub
С уважением,
Михаил Каганский

bsi

Теперь кажется всё работает нормально. Ещё раз огромное спасибо.