Cuestión : Excel VBA: texto del aislante entre paréntesis

Como parte de una macro de VBA estoy escribiendo en Excel 2007, yo necesito partir los valores del texto que contienen paréntesis. Comenzando con el texto en la célula, que llamaré CurrentText, quiero generar dos más secuencias: NoParens e InParens. NoParens debe ser el texto menos cualquier subsecuencia que estuviera entre paréntesis (y ajustado según el espaciamiento); InParens debe ser el texto que fue contenido en el parentheses.

Examples pudo ser provechoso. Digamos CurrentText = “un poco de texto de la muestra (SST)”. En este caso, NoParens debe ser “un poco de texto de la muestra”, e InParens debe ser “SST”. el

Or, si CurrentText = “más texto de la muestra (MST) aquí”, entonces NoParens es “más texto de la muestra aquí”, e InParens deben ser “MST”. el

I no puede imaginar absolutamente éste, y sería muy agradecido si cualquier persona podría prestar una mano. ¡Gracias! class= del

Respuesta : Excel VBA: texto del aislante entre paréntesis

intentar esto

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

Sub getSubString () Amortiguar InParens como secuencia, NoParens como secuencia, total como secuencia Amortiguar los leftParens como número entero, rightParens como número entero total = “un poco de texto de la muestra (SST)” leftParens = InStr (total, “(") rightParens = InStr (total, ")”) diferencia = rightParens - leftParens - 1 InParens = Mid$ (total, (leftParens + 1), diferencia) NoParens = substituye (total, “(” y InParens y ")”, el "") MsgBox (InParens y vbCrLf y vbCrLf y NoParens) Submarino del extremo