Pergunta : Excel VBA: texto do isolado entre parênteses

Como parte de um macro de VBA eu estou escrevendo em Excel 2007, mim preciso de rachar os valores do texto que contêm parênteses. Começando com o texto na pilha, que eu chamarei CurrentText, eu quero gerar duas mais cordas: NoParens e InParens. NoParens deve ser o texto menos todo o substring que esteja entre parênteses (e ajustado para o afastamento); InParens deve ser o texto que foi contido no parentheses.

Examples pôde ser útil. Deixar-nos dizer CurrentText = “algum texto da amostra (SST)”. Neste caso, NoParens deve ser “algum texto da amostra”, e InParens deve ser “SST”. o

Or, se CurrentText = “mais texto da amostra (MST) aqui”, então NoParens for “mais texto da amostra aqui”, e InParens devem ser “MST”. o

I não pode completamente figurar este para fora, e seria muito grato se qualquer um poderia emprestar uma mão. Obrigado! class= do

Resposta : Excel VBA: texto do isolado entre parênteses

tentar isto

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

Sub getSubString () Escurecer InParens como a corda, NoParens como a corda, total como a corda Escurecer os leftParens como o inteiro, rightParens como o inteiro total = “algum texto da amostra (SST)” leftParens = InStr (total, “(") rightParens = InStr (total, ")”) diferença = rightParens - leftParens - 1 InParens = Mid$ (total, (leftParens + 1), diferença) NoParens = substitui (total, “(” & InParens & ")”, o "") MsgBox (InParens & vbCrLf & vbCrLf & NoParens) Submarino da extremidade