Нужен макрос. Обработка строк

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
ВАН1407
Сообщения: 13
Зарегистрирован: 25 апр 2009, 14:43

Есть такая строчка.
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
Ответить