F015 名前を姓と名に分割する関数

　名前を姓と名に分ける関数です姓と名を指定して取り出しできます。

VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法

登録されたら、シート上からユーザー関数「SName」が使用できます。
使い方は　
ワークシート上で　= SName (文字列)の関数として使用できます。
【例】
SName(“山田　太郎”,0) →　山田
SName(“山田　太郎”,1) →　太郎
SName(“ジョン　F　スミス”,0) →　ジョン　F　スミス

Function SName(S As Variant, Optional T As Long)
’名前を姓と名に分ける関数、引数で姓と名を指定
’ 引数0が姓、1が名
’ SName(“山田　太郎”,0) →　山田
’ SName(“山田　太郎”,1) →　太郎
’ SName(“ジョン　F　スミス”,0) →　ジョン　F　スミス
On Error GoTo EXITFUN
Dim SEI As String
Dim MEI As String
Dim BN As Long
Dim BC As Long
Dim LenS As Long
Dim N As String
S = Replace(S, “　”, ” “)
BN = InStr(S, ” “)
BC = Len(S)- Len(Replace(S, ” “, “”))

If BC = 1 Then
　SEI = Left(S, BN- 1)
　MEI = Mid(S, BN + 1, Len(S))
　SName = SEI
Else

　If T = 0 Then
　　SName = S
　ElseIf T = 1 Then
　　SName = “”
　End If
GoTo EXITFUN
End If

If T = 1 Then
　SName = MEI
Else
　SName = SEI
End If
EXITFUN:
End Function

ここで紹介したコード使用による損害に対しては一切責任は負えません。