Fråga : Excel VBA: isolattext i parenteser

Som del av en handstil för förmiddag för VBA-makro I i Excel 2007, jag behöver att dela text värderar som innehåller parenteser. Start med texten i cellen, som jag ska appellen CurrentText, jag önskar att frambringa två stränger mer: NoParens och InParens. NoParens bör vara textminuset någon substring som var i parenteser (och justerat för att göra mellanslag); InParens bör vara texten som innehölls i den kan parentheses.
Examples är hjälpsam. Låt oss något att säga CurrentText = ”några att ta prov text (SST)”. I detta fall NoParens bör vara ”någon tar prov text”, och InParens bör vara ”SST”.

Or, om CurrentText = ”mer tar prov text (MST) här”, då NoParens bör vara ”mer tar prov text här”, och InParens bör vara ”STANDARDTIDEN”.

I kan inte ganska figurera detta ut, och skulle var mycket tacksam, om någon kunde låna en räcka. Tack! " klar "

Svar : Excel VBA: isolattext i parenteser

försök detta

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

UndergetSubString () Dunkla InParens som stränger, NoParens som stränger, räknar samman som stränger Dunkla leftParens som heltal, rightParens som heltal slutsumman = ”några tar prov text (SST)”, leftParens = InStr (slutsumma, ”(”) rightParens = InStr (slutsumman, ”)”) skillnad = rightParens - leftParens - 1 InParens = sammanlagd Mid$ (, (leftParens + 1), skillnaden) NoParens = byter ut (slutsumman, ”(” & InParens & ”)”, "") MsgBox (InParens & vbCrLf & vbCrLf & NoParens) Avsluta suben