Question : Excel VBA : texte d'isolat entre parenthèses

En tant qu'élément d'un macro de VBA j'écris dans Excel 2007, je dois dédoubler les valeurs des textes qui contiennent des parenthèses. Commençant par le texte dans la cellule, que j'appellerai CurrentText, je veux produire de deux cordes supplémentaires : NoParens et InParens. NoParens devrait être le texte sans n'importe quelle sous-chaîne qui était entre parenthèses (et ajusté à l'espacement) ; InParens devrait être le texte qui a été contenu dans le parentheses.

Examples pourrait être utile. Disons CurrentText = un « certain texte témoin (SST) ». Dans ce cas-ci, NoParens devrait être un « certain texte témoin », et InParens devrait être « SST ». le

Or, si CurrentText = « plus de texte témoin (MST) ici », alors NoParens est « plus de texte témoin ici », et l'InParens devraient être « MST ». le

I ne peut pas tout à fait figurer celui-ci dehors, et serait très reconnaissant si n'importe qui pourrait prêter une main. Merci ! class= de

Réponse : Excel VBA : texte d'isolat entre parenthèses

essayer ceci

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

Substrater getSubString () Obscurcir InParens comme corde, NoParens comme corde, total comme corde Obscurcir les leftParens comme nombre entier, rightParens comme nombre entier total = un « certain texte témoin (SST) » leftParens = InStr (total, « (") rightParens = InStr (total, ") ») différence = rightParens - leftParens - 1 InParens = Mid$ (total, (leftParens + 1), différence) NoParens = remplacent (total, « (" et InParens et ") », "") MsgBox (InParens et vbCrLf et vbCrLf et NoParens) Sous-marin d'extrémité