Vraag : Excel VBA: isoleer tussen haakjes tekst

Als deel van een macro VBA schrijf ik in Excel 2007, moet ik tekstwaarden verdelen die haakjes bevatten. Beginnend met de tekst in de cel, die ik CurrentText zal roepen, wil ik twee meer koorden produceren: NoParens en InParens. NoParens zou de tekst moeten zijn minus om het even welke het substring die tussen haakjes was (en aangepast het uit elkaar plaatsen); InParens zou de tekst moeten zijn die in parentheses.

Examples nuttig zou kunnen zijn bevat was. Zeg CurrentText = „Één of andere Tekst van de Steekproef (SST)“. In dit geval, zou NoParens „Één of andere Tekst van de Steekproef moeten zijn“, en InParens zou moeten zijn „EERSTE“.

Or, als CurrentText = „Meer Tekst van de Steekproef (MST) hier“, dan NoParens „Meer Tekst van de Steekproef zou moeten zijn hier“, zouden en InParens „MST“ moeten zijn.

I kan niet dit één helemaal voorstellen uit, en zou zeer dankbaar zijn als iedereen een hand kon lenen. Dank!

Antwoord : Excel VBA: isoleer tussen haakjes tekst

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

Het sub getSubString ()

Schemerige InParens als Koord, NoParens als Koord, totaal als Koord
Schemerige leftParens als Geheel, rightParens als Geheel

totaal = „Één of andere Tekst van de Steekproef (SST)“

leftParens = InStr (totaal, „(“)
rightParens = InStr (totaal, „)“)
verschil = rightParens - leftParens - 1

InParens = Mid$ (totaal, (leftParens + 1), verschil)
NoParens = vervangt (totaal, „(“ & InParens & „)“, "")

MsgBox (InParens & vbCrLf & vbCrLf & NoParens)

Sub van het eind
Andere oplossingen  
 
programming4us programming4us