L
lordblack
Доброго время суток!
Помогите пожалуйста прочитать программный код, понять что выполняется в каждой строчке!
Просто сам в VBA не очень а опытному человеку думаю не составит большого труда!
вот этот код
Помогите пожалуйста прочитать программный код, понять что выполняется в каждой строчке!
Просто сам в VBA не очень а опытному человеку думаю не составит большого труда!
вот этот код
Код:
Do While Not RecSet.EOF
Set stnObj = docsObj(Рабочий_каталог.Value) 'подключаем ВСС файл
Set mastObj = stnObj.Masters(Название_шейпа.Value)
Y = Me!Y.Value * 200 / 25.4
For i = 1 To Me.Количество.Value
z = z + 1
m(z) = Me!Длина.Value / 25.4
If z = 1 Then X = Me!X.Value * 200 / 25.4 + m(z) / 2
If i = 1 Then X = m(z) / 2 + X + Me!Разрыв.Value * 200 / 25.4
If z > 1 And Me!Смещение < 0 Then X = m(z) / 2 + X + Me!Разрыв.Value * 200 / 25.4
If i > 1 And Me!Смещение = 0 Then Y = Y + Me!Разрыв.Value * 200 / 25.4
Set aShape = pagObj.Drop(mastObj, X, Y)
If i = Me!Количество.Value Then X = m(z) / 2 + X
aShape.Text = Me.Обозначение.Value
Next i
RecSet.MoveNext
Loop
End Sub