не робит код

[Комиссар]

Option Base 1
Sub Obmen()
Dim i, j, k, rab, max As Integer
Dim A(10) As Integer
For i = 1 To 10
A (i)= Cells(i, 1)
Next
max = A(1)
For i = 2 To 10
If A(i) > max Then max = A(i)
Next
For i = 1 To 10
If A(i) > 0 Then
k = i Exit
For End
If Next
For i = 1 To 10
If A(i) < 0 Then
j = i Exit
For End
If Next
rab = A(k): A(k) = A(j): A(j) = rab
Cells(1, 2) = "max = " & max
For i = 1 To 10
Cells(i, 3) = A(i)
Next
End Sub

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Макрос

Option Base 1

Sub Obmen()
Dim i, j, k, rab, max As Integer
Dim A(10) As Integer
For i = 1 To 10
A(i) = Cells(i, 1)
Next
max = A(1)
For i = 2 To 10
If A(i) > max Then max = A(i)
Next
For i = 1 To 10
If A(i) > 0 Then
k = i
Exit For
End If
Next
For i = 1 To 10
If A(i) < 0 Then
j = i
Exit For
End If
Next
rab = A(k): A(k) = A(j): A(j) = rab
Cells(1, 2) = "max = " & max
For i = 1 To 10
Cells(i, 3) = A(i)
Next
End Sub

[свернуть]