Вопрос : Эксел VBA: текст изолята в скобках

Как часть макроса VBA мне пишу в Эксел 2007, я нужно разделить значения текста которые содержат скобки. Начинающ с текстом в клетке, которую я вызову CurrentText, я хочу произвести 2 больше шнура: NoParens и InParens. NoParens должно быть текстом минус любая подстрока находилась в скобках (и отрегулировано для дистанционирования); InParens должно быть текстом содержался в parentheses.

Examples мог быть полезн. Препятствуйте нам сказать CurrentText = «некоторый текст образца (SST)». В этот случай, NoParens должно быть «некоторым текстом образца», и InParens должно быть «SST».

Or, если CurrentText = «больше текста образца (MST) здесь», после этого NoParens должно будет «больше текста образца здесь», и InParens должны быть «MST».

I не может довольно вычислять это одно вне, и было бы очень признательно если любое smogло одолжить руку. Спасибо! class=

Ответ : Эксел VBA: текст изолята в скобках

попытайтесь это

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

Sub getSubString () Затемните InParens как шнур, NoParens как шнур, итог как шнур Затемните leftParens как интежер, rightParens как интежер итог = «некоторый текст образца (SST)» leftParens = InStr (итог, «(") rightParens = InStr (итог, ")») разница = rightParens - leftParens - 1 InParens = Mid$ (полное, (leftParens + 1), разница) NoParens = заменяет ть (итог, «(" & InParens & ")», "") MsgBox (InParens & vbCrLf & vbCrLf & NoParens) Подводная лодка конца