|
|
|
Возраст: 40  
C нами с 01.10.2006
Репутация: 275  
|
|
|
Мне необходимо отследить, какая клавиша была нажата на активном рабочем листе в Excel'е, чтобы передать это значение в другую процедуру. Помогите, пожалуйста, это сделать средствами VBA. Заранее благодарна!
|
_____________________________
Написать неработающую программу легче, чем разобраться в работающей
|
|
|
|
|
 |
|
|
|
Возраст: 39 
C нами с 20.05.2005
Репутация: 174.4
|
|
|
Это не возможно. Для листа отсутствует событие KeyPress/KeyDown/KeyUp. Это сделано специально.
|
_____________________________
Тупые корейские девелоперы.
|
|
|
|
|
|
|
|
|
Возраст: 40
C нами с 01.10.2006
Репутация: 275
|
|
Сделала вот так:
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_Q = vbKeyQ
Public Const VK_W = vbKeyW
Public Const VK_E = vbKeyE
...
.OnKey <...>, "FixGlobals"
Public Sub FixGlobals()
If GetKeyState(vbKeyControl) < 0 And GetKeyState(vbKeyShift) < 0 And GetKeyState(VK_Q) < 0 Then...
Все работает.
|
_____________________________
Написать неработающую программу легче, чем разобраться в работающей
|
|
|
|
|
|
|
|
|
Возраст: 38 
C нами с 25.01.2005
Репутация: 133
|
|
|
Вопросы по программированию на языке Visual Basic, который идеально подходит для написания приложений, работающих c Microsoft Office.
|
vba_lg.gif - Просмотров: 96
|
|
|
|
|
|
|
|
|
Возраст: 39
C нами с 20.05.2005
Репутация: 174.4
|
|
Win32API - это чит 
Но способ отличный.
|
_____________________________
Тупые корейские девелоперы.
|
|
|
|
|
|
|
|
|
Возраст: 36
C нами с 29.10.2005
Репутация: 23.2
|
|
|
не подскажете где можно скачать Visual Basic ?
|
|
|
|
|
|
|
|
|
|
|
Возраст: 40
C нами с 01.10.2006
Репутация: 275
|
|
|
ShNuR, у меня есть (Visual Basic 6), правда, на диске. Напиши, куда залить, я залью тебе.
|
_____________________________
Написать неработающую программу легче, чем разобраться в работающей
|
|
|
|
|
|
|
|
|
Возраст: 36
C нами с 22.01.2006
Репутация: 256.8
|
|
|
|
|
|
|
|
|
|
Возраст: 36
C нами с 29.10.2005
Репутация: 23.2
|
|
splav, там я ключ не нашел
Добавлено спустя 2 минуты 35 секунд:
туплю, там любой подходит
|
|
|
|
|
|
|
|
|
|
|
Возраст: 35 
C нами с 02.10.2005
Репутация: 105
|
|
люди, кто, ну очень хорошо, дружит с VB,помогите сделать задание:
Составить функцию для вычисления:
Y = 1/2 - 1/x + 1/(3*x^3) - 1/(5*x^5) + 1/(7*x^7) - ...
принимая, что модуль “x” больше 1. Вычисления продолжать, пока модуль разности между текущим и предыдущим значением слагаемого остается больше малой заданной величины (точности вычислений). Вывести на экран в таблицу MSFlexGrid значения функции “Y” для всех значений аргумента “х” от заданного начального до заданного конечного с заданным шагом изменения.
заранее благодарен
|
|
|
|
|
|
|
|
|
|
|
Возраст: 35
C нами с 21.11.2005
Репутация: 95.3
|
|
ребята! товарищи! пропадаю! оч нужно сделать несколько заданий в VB!!! пожалуйста кто может помочь пишите! заранее спс 
|
_____________________________
Пусть будет Так!
|
|
|
|
|
|
|
|
|
Возраст: 58
C нами с 19.06.2007
Репутация: 90.5
|
|
Подскажите пожалуйста, с чего начать изучение VISUAL BASIC'а?   саму прогу я скачал...
|
|
|
|
|
|
|
|
|
|
|
Возраст: 30
C нами с 15.02.2008
Репутация: 133.2
|
|
| ShNuR писал(а): |
|
туплю, там любой подходит
|
Какой например ? Напиши
|
_____________________________
Люди, называющие эпизод сериала серией - не правы.0_0
Автор этого сообщения благодарит алфавит за любезно предоставленные буквы
Те, кто готовы пожертвовать насущной свободой ради малой толики временной безопасности, не достойны ни свободы, ни безопасности. (c)Бенджамин Франклин
|
|
|
|
|
|
|
|
|
Возраст: 42
C нами с 18.09.2005
Репутация: 110.8
|
|
|
Подскажите, как в Excel'е сделать цикл, который обрабатывал выделенные строки, копировал данные из каждой отдельной строки в новый файл. Основная проблема как организовать цикл именно по выделенным строкам, выделение не всегда подряд.
|
|
|
|
|
|
|
|
|
|
|
Возраст: 54
C нами с 26.01.2005
Репутация: 213.2
|
|
Из хелпу:
This example displays the number of rows in the selection on Sheet1. If more than one area is selected, the example loops through each area.
Visual Basic for Applications
Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Rows.Count & " rows."
Else
i = 1
For Each a In Selection.Areas
MsgBox "Area " & i & " of the selection contains " & _
a.Rows.Count & " rows."
i = i + 1
Next a
End If
|
|
_____________________________
ftp://10.100.22.3/
|
|
|
|
|
|
| |
|
|
