Самоучитель VBA


         

в случае их возникновения On



Exit Sub

End If

'

'

' Переход на отладчик ошибок в случае их возникновения On Error GoTo Сообщение

' Замена в введенной формуле аргумента х на ссылку $А2,

' а аргумента у на ссылку В$1

'

i=1

Do

'

' Замена в введенной формуле аргумента х на ссылку $А2

'

If Mid(УрПоверхности, i, 1) = "х" Or Mid(УрПоверхности, i, 1) = "X" Then

n = Len(УрПоверхности)

If (1 < i) And (i < n) Then

УрПоверхности = Left(УрПоверхности, i - 1) & "$A2" & Right(УрПоверхности, n - i)

End If

If i = 1 Then УрПоверхности = "$A2" & Right(УрПоверхности, n - 1)

If i = n Then УрПоверхности = Left(УрПоверхности, n - 1) & "$A2"

End If

' Замена в введенной формуле аргумента у на ссылку В$1

If Mid(УрПоверхности, i, 1) = "y" Or Mid(УрПоверхности, i, 1) = "Y" Then n = Len(УрПоверхности)

If (1 < i) And (i < n) Then

УрПоверхности = Left(УрПоверхности, i - 1) & "B$l" & Right(УрПоверхности, n - i)

End If

If i = 1 Then УрПоверхности = "B$l" & Right(УрПоверхности, n - 1)

If i = n Then УрПоверхности = Left(УрПоверхности, n - 1) & "B$l"

End If

i = i + 1

Loop While i <= Len(УрПоверхности)

'

' Очистка на активном листе ранее введенных данных

'

ActiveSheet.Cells.Select Selection.Clear

' Заполнение диапазонов значениями аргументов

'

With ActiveSheet

'

' Ввод в ячейку А2 начального значения

'

.Range("A2").Value = х_нз

'

' Создание арифметической прогрессии по столбцу

' с указанными шагом и начальным значением

'

.Range("A2").DataSeries Rowcol:=xlColuims,

Type:=xlLinear, Step:=x__iuar, Stop:=x_ns, Trend:=False

'

' Ввод в ячейку В1 начального значения

'

.Range("Bl").Value = у_нз

'

' Создание арифметической прогрессии вдоль строки

' с указанными шагом и начальным значением

'

.Range("Bl").DataSeries Rowcol:=xlRows,

Type:=xlLinear, Step:=y_iuar, Stop:=y_ns, Trend:=Faise


Содержание  Назад  Вперед