Всем привет. Есть такое задание:
Вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго).
Понятия не имею как это делать 
подскажите кто может советом, и в какую сторону мне двигаться.
ЗЫ: нужно создать макрос в икселе.
1 апреля 2010 в 10:00
Option Base 1
Sub findIndex()
Dim a(10) As Long
Dim i As Integer
For i = 1 To 10
Dim j As Integer
Worksheets("3").Select
Cells.Clear
a(i) = Application.InputBox("введите значение для " & i & "-элемента массива, Type:=1)
Next i
For i = 2 To 10
If a(i) > a(i – 1) Then
'MsgBox a(i)
Cells(1, i + 1) = a(i)
End If
Next i
End Sub
Спасибо если что обращусь
____________________________
Добавь в други и прочитай примечание плиз:)
1 апреля 2010 в 9:05
Спасибо, рабочий код:
Option Base 1
Sub findIndex()
Dim a(10) As Long
Dim i As Integer
For i = 1 To 10
a(i) = Application.InputBox("введите значение для " & i & "-элемента массива, Type:=1)
Next i
For i = 2 To 10
If a(i) > a(i – 1) Then
MsgBox a(i)
End If
Next i
End Sub
______
Щас немного переделаю чтобы выводил данные на рабочий лист в иксель
1 апреля 2010 в 1:04
хотя можно сделать немного иначе.Однако для єтого мне нужно полное условие вашей задачи,Валера.
ЗЫ:в моей теме по ричтекстбоксу кто нибудь ответит???
1 апреля 2010 в 1:03
Option Base 1
'ну допустим элeменты-числа
Sub findIndex()
Dim a( 10) as long
Dim i as integer
For i=1 to 10
a(i)=Application.InputBox("введите значение для " & i & "-го єлемента массива",type:=1)
Next i
For i=2 to 10
If a(i)>a(i-1) then
MsgBox i
Else
MsgBox(a(1))
End If
Next i
End sub.
Специально для Екселя.Разобрать что и как??
Єто если использовать For
Код обязательно проверь, могут быть ошибки.Я ведь давно на VBA не программирую