макрос прогоняется, нам лок горит.. но на правые цифры нажать не получается...
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
Sub Test2()
Dim introw As Integer
Dim ifind As Range
1 : a = InputBox("Введите Клиентский номер")
'--------------------------------банки-------------
w = Sheet1.Cells( 2 , 5 )
Set z = Sheet2.Columns("A:A").Find(What:=a)
v = z.Offset( 0 , 1 )
x = z.Offset( 0 , 2 )
y = z.Offset( 0 , 3 )
t = z.Offset( 0 , 4 )
s = z.Offset( 0 , 5 )
s = s * w
t = t * w
If y = "USD" Then
x = x * w
End If
x = Application.WorksheetFunction.Round(x, 2 )
s = Application.WorksheetFunction.Round(s, 0 )
t = Application.WorksheetFunction.Round(t, 0 )
MsgBox x
'---------------------------------банки---------------
b = InputBox("Введите TRN")
c = 1
If c = 3 Then
d = InputBox("введите TRN запроса")
End If
AppActivate ("Midas1")
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "{TAB}{TAB}"
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "yFee{TAB}1{TAB}1"
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys "0" & v & " {TAB} "
SendKeys x & "{TAB}DVO99020 TRN " & b
Application.Wait (Now + TimeValue("0:00:1"))
SendKeys "{TAB}70122{DOWN}{DOWN}{TAB}{TAB}{TAB}702202{TAB}" & x & "{TAB}cVO99020 TRN " & b & "{DOWN}{TAB}{TAB}{TAB}" & z & "{TAB}tr"
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("0:00:3"))
AppActivate ("Microsoft Excel - Book1")
f = InputBox("1 -Закончить?, 2-Уточнение(R),3-Запрос(A)")
If f = 1 Then
AppActivate ("Midas1")
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys "{F3}"
Application.Wait (Now + TimeValue("0:00:2"))
End If
If f = 3 Then GoTo 10 :
If f = 2 Then
AppActivate ("Midas1")
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys "0" & v & " {TAB} "
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys t & "{TAB}DVO99020 R TRN " & b
SendKeys "{TAB}70135{DOWN}{DOWN}{TAB}{TAB}{TAB}702202{TAB}" & t & "{TAB}cVO99020 TRN " & b & "{DOWN}{TAB}{TAB}{TAB}" & z & "{TAB}tr"
Application.Wait (Now + TimeValue("0:00:4"))
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("0:00:2"))
AppActivate ("Microsoft Excel - Book1")
h = InputBox("1 -Закончить?, 2-Запрос(A)")
If h = 1 Then
AppActivate ("Midas1")
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys "{F3}"
End If
End If
If h = 2 Then
10 : i = InputBox("Введите TRN Амендмента")
AppActivate ("Midas1")
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys "0" & v & " {TAB} "
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys s & "{TAB}DVO99020 A TRN " & i
SendKeys "{TAB}70123{DOWN}{DOWN}{TAB}{TAB}{TAB}702602{TAB}" & s & "{TAB}cVO99020 A TRN " & i & "{DOWN}{TAB}{TAB}{TAB}" & z & "{TAB}tr"
Application.Wait (Now + TimeValue("0:00:4"))
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("0:00:2"))
SendKeys "{F3}"
Application.Wait (Now + TimeValue("0:00:1"))
End If
End Sub
вот оно проганяется... цифры включаются только еще раз при нажатии на стоп. хелп плз..оч над.
