Автоматическая смена языка

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

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

A_3485

Дата: Пятница, 31.08.2012, 14:02 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

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

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

2007

Добрый день!
Такой вопрос:
Можно ли макросм прописать при открытии книги.xls автоматическую смену языка в настройках "Язык и региональные стандарты" -
Язык - Подробнее -Английский язык".
А при закрытии книги обтаное действие, менять на русский язык.

Данный вопрос возник из-за необходимости в работе файла "заявлени". При регионе Русский - не корректно печатаются некоторые символы.
Может есть способ более простой!

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

Сообщение отредактировал A_3485 - Пятница, 31.08.2012, 14:03

Ответить

ABC

Дата: Пятница, 31.08.2012, 18:24 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 397

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

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

Excel 2007

ЯЗЫКОВОЙ: по умолчанию поставьте русский

скопируйте в модуль
[vba]

Code

Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Public Const tb_lay_ru As Long = 68748313, tb_lay_en As Long = 67699721, tb_lay_kk As Long = 71238719

[/vba]

в эту книгу
[vba]

Code

Private Sub Workbook_Open()
ActivateKeyboardLayout tb_lay_en, 0
End Sub

[/vba]

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет

Ответить

A_3485

Дата: Суббота, 01.09.2012, 01:07 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

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

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

2007

ABC, Спасибо за идею. У меня на компьютере все работает.
А можно как то упростить макрос в файле?. У некоторых людей идет ошибка, когда происходит переход на соседнюю ячейку через буквы 3 или 4 начинает писать в одну ячейку. У меня не получается отследить работу макроса.

Ответить

Hugo

Дата: Суббота, 01.09.2012, 12:27 | Сообщение № 4

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

Ранг: Участник клуба

Сообщений: 3690

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

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

365

Это разве то. что было нужно?
Я уже тут второпях дал ссылку на
http://excelvba.ru/code/KeyboardLayout
потом подумал и пост удалил...
Мне кажется, что тут хотят поменять регион - а это думаю без перезагрузки работать не будет. Мне так кажется...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Автоматическая смена языка

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