教えてください

0   名前： 匿名 ： 2007/05/24（木） 14:43  ID:J/uNOE8Z sub-Ax
ユーザー定義関数でFind関数を作成したいのですが、どうやって作成したらいいのですか？
1   名前： 匿名 ： 2007/05/24（木） 14:43  ID:37Ivm/P6 sub-Ds
何する関数なの？
2   名前： 匿名 ： 2007/05/24（木） 14:43  ID:J/uNOE8Z sub-Ax
function(検索文字列 as string,範囲 as string,開始位置 as integer)as integer
Dim K as string
for K = 1 to len(範囲)のあとにif文を使いたいのですがどうやって作成すればよろしいのですか？
3   名前： NullPo ： 2007/05/24（木） 14:43  ID:05nvWK2y sub-.G
こういうの？
Function Find(ByRef findString, ByRef targetText, ByRef start)

  Dim K
  Dim findLength

  findLength = Len(findString)
  For K = start To Len(targetText) Step 1
   If Mid(targetText, K, findLength) = findString Then
     Find = K
     Exit Function
   End If
  Next

  Find = 0

End Function

でも、InStr関数が用意されているんだけどな。
4   名前： 匿名 ： 2007/05/24（木） 14:43  ID:04cJjuTB sub-Ax
VBでのMid文を作成するにはどのように記述したらいいのですか？
5   名前： NullPo ： 2007/05/24（木） 14:43  ID:Z0FHbpib sub-ii
(　゜д゜)

(つд⊂)ゴシゴシ

(；゜д゜)

(つд⊂)ゴシゴシ
　　_, ._
（；゜ Д゜） …！？
6   名前： 匿名 ： 2007/05/24（木） 14:43  ID:PSeYBuuf sub-gw
ここはHTMLやJavaScriptの掲示板であって、VBの質問掲示板ではないのですが・・・
具体的に何をしたいんですか？
一覧へ戻る