Автор Тема: не робит код  (Прочитано 256 раз)

Оффлайн Комиссар

  • Посетитель форума
  • Сообщений: 2
не робит код
« : 12 Ноябрь 2022, 16:32 »
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

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: не робит код
« Ответ #1 : 12 Ноябрь 2022, 17:12 »
Написал вам два письма на почту с заголовком "Письмо с Форума по 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