| |
▼Cbf さん：
>>InStr関数や Mid$関数や Split関数は VBA の関数です。
>VBA の関数って、どんなような関数なのか、まだわかりませんので、
>見本をいただませんか？
Sub Test1()
Dim ss As String: ss = "ＳＤＦ「ＡＢＣ」ＤＦＦＨ"
Dim n As String, m As String
n = InStr(ss, "「")
m = InStr(n + 1, ss, "」")
If m Then
MsgBox Mid$(ss, n + 1, m - n - 1)
Else
MsgBox "文字列が見つかりません"
End If
End Sub
というようなことです。
以下のようなユーザー定義関数を作っておいて、
[B1] =Between(A1, "（", "）")
と数式をセットしておいてもいいですけど。
'z1とz2にはさまれた文字を取得
Function Between(ss$, z1$, z2$) As String
Dim n&, m&
n = InStr(ss, z1)
m = InStr(n + 1, ss, z2)
If m Then
Between = Mid$(ss, n + 1, m - n - 1)
Else
Between = ""
End If
End Function
|
|
kanabun
- 08/9/7(日) 19:34 -
