Excel VBA質問箱 IV

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

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


24419 / 76732 ←次へ | 前へ→

【57661】Re:文字列の切り分け方法
発言  kanabun  - 08/9/7(日) 19:34 -

引用なし
パスワード
   ▼Cbf さん:
>>InStr関数や Mid$関数や Split関数は VBA の関数です。
>VBA の関数って、どんなような関数なのか、まだわかりませんので、
>見本をいただませんか?

Sub Test1()
 Dim ss As String: ss = "SDF「ABC」DFFH"
 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

0 hits

【57636】文字列の切り分け方法 Cbf 08/9/6(土) 12:02 質問
【57637】Re:文字列の切り分け方法 kanabun 08/9/6(土) 12:22 発言
【57657】Re:文字列の切り分け方法 Cbf 08/9/7(日) 19:06 質問
【57658】Re:文字列の切り分け方法 kanabun 08/9/7(日) 19:15 発言
【57659】Re:文字列の切り分け方法 Cbf 08/9/7(日) 19:21 質問
【57660】Re:文字列の切り分け方法 かみちゃん 08/9/7(日) 19:29 発言
【57662】Re:文字列の切り分け方法 Cbf 08/9/7(日) 20:25 お礼
【57661】Re:文字列の切り分け方法 kanabun 08/9/7(日) 19:34 発言
【57663】Re:文字列の切り分け方法 Cbf 08/9/7(日) 20:29 お礼

24419 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free