Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40451 / 76732

←次へ　｜　前へ→


	【41379】Re:（）の判別

Blue - 06/8/8(火) 9:23 -


	引用なし

	パスワード

文字列の後ろから、InstrRev関数で"）" の位置を探して、その位置から直前の "（" の位置を探して、Mid関数切り出す。
※ただし、「（株）ABCD（XYZ（有）様向）」のように括弧が入れ子になっている場合工夫が必要。

Dim s　　　　As String
Dim startPos As Long
Dim endPos　 As Long

s = "（株）ABCD（XYZ有限会社様向）"

endPos = InStrRev(s, "）")
If endPos <> 0 Then
　　startPos = InStrRev(s, "（", endPos)
　　If startPos <> 0 Then
　　　　MsgBox Mid$(s, startPos + 1, endPos - startPos - 1)
　　End If
End If

0 hits

▼

【41378】（）の判別 ℃素人 06/8/8(火) 9:02