FC2ブログ

括弧内・括弧前・括弧後を取得

2017–10–09 (Mon) 14:23
()内・前外・後外の文字列を抽出します。

無題


Function kakkonai(文字列 As Variant)
Dim mojiretsu As String
If VarType(文字列) = vbString Then
mojiretsu = 文字列
Else
mojiretsu = 文字列.Value
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, "(") + 1)
End If
If InStr(mojiretsu, ")") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, ")") - 1)
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, "(") + 1)
End If
If InStr(mojiretsu, ")") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, ")") - 1)
End If
kakkonai = mojiretsu
End Function
Function kakkosoto(文字列 As Variant)
Dim mojiretsu As String
If VarType(文字列) = vbString Then
mojiretsu = 文字列
Else
mojiretsu = 文字列.Value
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, "(") - 1)
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Left(mojiretsu, InStr(mojiretsu, "(") - 1)
End If

kakkosoto = mojiretsu
End Function

Function kakkoato(文字列 As Variant)
Dim mojiretsu As String
If VarType(文字列) = vbString Then
mojiretsu = 文字列
Else
mojiretsu = 文字列.Value
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, ")") + 1)
End If
If InStr(mojiretsu, "(") <> 0 Then
mojiretsu = Mid(mojiretsu, InStr(mojiretsu, ")") + 1)
End If

kakkoato = mojiretsu
End Function
スポンサーサイト



« VlookupN 解説付き | HOME |  カタカナ⇔ひらがな相互変換 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク