Нужен макрос. Обработка строк
Добавлено: 25 апр 2009, 17:34
Есть такая строчка.
PAR(PNT(Activity box.33!Connections.X5,Activity box.33!Connections.Y5))
мне нужно достучатся до "Х5". Может масивом или еще как???
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Если кому интересно то можно так.
Public Sub Validization()
Dim propConnect As String
Dim N As Integer
Dim C As String
CoordVal = "X"
PropConntect = "PAR(PNT(Activity box!Connections.X5,Activity box!Connections.Y5))"
N = InStr(PropConntect, ",")
C = Left(PropConntect, N - 1)
N1 = InStr(C, "X")
D = Mid(C, N1)
End Sub
PAR(PNT(Activity box.33!Connections.X5,Activity box.33!Connections.Y5))
мне нужно достучатся до "Х5". Может масивом или еще как???
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Если кому интересно то можно так.
Public Sub Validization()
Dim propConnect As String
Dim N As Integer
Dim C As String
CoordVal = "X"
PropConntect = "PAR(PNT(Activity box!Connections.X5,Activity box!Connections.Y5))"
N = InStr(PropConntect, ",")
C = Left(PropConntect, N - 1)
N1 = InStr(C, "X")
D = Mid(C, N1)
End Sub