ОСТАНОВКА ЦЫКЛА ПРИ НАЖАТИИ КЛАВИШИ Ctrl

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » ОСТАНОВКА ЦЫКЛА ПРИ НАЖАТИИ КЛАВИШИ Ctrl (Макросы/Sub)

a5l3e5x

Дата: Воскресенье, 11.01.2015, 14:55 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2007

ЗДРАСТВУЙТЕ. НИГДЕ НЕ МОГУ НАЙТИ ПРАВИЛЬНО ЗАПИСАНОЕ УСЛОВИЕ ОСТАНОВКИ ЦЫКЛА ПРИ НАЖАТИИ ЛЮБОЙ
КНОПКИ. СПАСИБО ЗА ОТВЕТ
[moder]У Вас опять CapsLock заклинило? Читайте Правила форума п.5g[/moder]

Ответить

Gustav

Дата: Воскресенье, 11.01.2015, 17:47 | Сообщение № 2

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

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

Сообщений: 2748

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

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

начинал с Excel 4.0, видел 2.1

Declare Function GetAsyncKeyState Lib "user32.dll"

И с этой строкой - в Google.

МОИ: Ник, Tip box: 41001663842605

Ответить

WeRiX

Дата: Воскресенье, 11.01.2015, 20:40 | Сообщение № 3

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

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

Сообщений: 44

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

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

Excel 2013

Дабы все было на одном форуме -->

[vba]

Код

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_CONTROL = &H11
Sub Z()
Do While x = False
If GetAsyncKeyState(VK_CONTROL) Then MsgBox "Усё!!!": x = True
DoEvents
Loop
End Sub

[/vba]