EXCEL VBAの構造体検索について

Question

エクセルVBAを友人に頼まれ修正しているのですが、
構造体内検索ができません。

ネットを検索しても解決にはつながらなかったので質問させていただきました。
excelは2010、ＯＳはwindows8です。

よろしくお願いします。

DOUGLAS_ · Accepted Answer

＃既に種々の回答が付いていますが、お示しのコードの「図」を拝見して考えられることを少し。

●１）先ず、「p=array.indexof(str,"い")」のところが赤くなっていますが、これはコンパイルエラーですよね。
　「array」という言葉は予約語（Array 関数）であるため、変数としては使えないはずです。
　試しに、「Dim array as Object」などと書こうとすると、「array」の部分が選択された状態で、「コンパイルエラー: 修正候補: 識別子」と表示されます。
http://officetanaka.net/excel/vba/error/compilation_error/error_3.htm

●２）次に、「indexof」という関数自体についてですが、
Sub Macro1()
　　Dim myAL As Object
　　Set myAL = CreateObject("System.Collections.ArrayList")
　　For i = 1 To 3
　　　　myAL.Add Mid("あいう", i, 1)
　　Next i
　　p = myAL.indexof("い", 0) + 1
　　MsgBox p & "番目"
End Sub
みたいな使い方なら動かすことはできなくはありません。

しかし、pucho3338 さんがお示しのコード
p = indexof(str, "い")
に書かれているような、第１引数が「配列」、第２引数が「配列の要素」となるっているものが、どの言語の [IndexOf メソッド] なのかが判りかねます（言語によって引数の数や種類が異なる）。
http://social.msdn.microsoft.com/Search/ja-JP?query=indexof&ac=4

しかも、次行には、
p = array.indexof(str, "い")
というように、関数の前にオブジェクト（array）が配置されていますが、(１)で書きましたように、この行も動かないはずです。

この２行を拝見しただけでも、まともに動くコードとは思えませんので、これは、「友人に頼まれ修正」する前のコードではなくて、pucho3338 さんご自身が、修正時点でつまづかれたところだけを抜き書きされたコードではないかと存じますが、いかがでしょうか？

●３）この「コンパイルエラー: Sub または Function が定義されていません。」エラーが出ないようにするためには、下記のいずれかの処置がされている必要があるかと存じます。
　　・何かのライブラリに参照設定を施す。
　　・[CreateObject 関数] で ActiveX オブジェクトへの参照を作成する。
　　・別途、下記のようなユーザー定義関数が定義されている。

Function indexof(myArr, element)
　　For i = 0 To UBound(myArr)
　　　　If myArr(i) = element Then Exit For
　　Next
　　indexof = i + 1
End Function

●４）しかし、
p = array.indexof(str, "い")
という書き方から見ると、求める「p」は「2」ではないかと存じますが、その「答え」が欲しいだけでしたら、わざわざ関数を作らなくても、
p = Application.Match("い", str, 0)
でイケルかと存じますが、実は、「IndexOf メソッド」だけではなくて、「Sort メソッド」や「Contains メソッド」などが使いたいというようなことでしたら、
http://social.msdn.microsoft.com/Search/ja-JP?query=arraylist&refinement=108%2C117&ac=4
に検索された「ArrayList クラス」を使うことになろうかと存じます。

Hayashi_Trek · Answer

VBAだから、DOT NET の関数やオブジェクトは使えません。

与えられた文字列配列の中から参照文字列を検索して、要素位置を返す関数を作ってください。
Private Function ArraySearch(arrStr() as string, refStr as String) As integer
Dim posL As Integer
Dim posU As Integer
Dim pos As Integer
posL = LBound(arrStr)
posU = UBound(arrStr)
ArraySearch = -1
For pos = posL To posU
If arrStr(pos) = refStr Then
ArraySearch = pos
End If
Next pos
End Function
※テキストエディタ上で書いたので、ステートメントや関数が間違っているかも知れません。

nicotinism · Answer

Access2010のVBAのヘルプだと
Execute メソッド、Requery メソッド、および Clear メソッドの使用例 (JScript)
が載っていました。
もしかしたら、ツール→参照設定の、Microsoft_JSCriptにチェックを入れれば使えるようになるかも。

少し関係ありそうな？処
http://iphone-dev.doorblog.jp/archives/26337466.html
もし、JSCript を使っているのがここだけなら
参照リンク先にもあるようにFor ～Next でループして探しても・・・と思います。

n-jun · Answer

Ｎｏ１です。

あとの可能性としてはユーザー定義関数を
削除（あるいは未作成・未コピペ）したとか？？？

どっちにしても修正元がどうなっているのか
その友人に詳しく聞いてみないと。。。。

n-jun · Answer

画像が良く見えないけどＶＢＡでは
.NET FrameworkのArray.IndexOf メソッド
http://msdn.microsoft.com/ja-jp/library/system.array.indexof(v=vs.80).aspx

は使えないのでは？

中には使えるものもあるみたいですが。
.NET Frameworkを使う
http://officetanaka.net/excel/vba/tips/tips98.htm
⇒検証していないけどＡｒｒａｙＬｉｓｔだと使えるかな？

EXCEL VBAの構造体検索について

＃既に種々の回答が付いていますが、お示しのコードの「図」を拝見して考えられることを少し。

VBAだから、DOT NET の関数やオブジェクトは使えません。

Access2010のVBAのヘルプだと

Ｎｏ１です。

画像が良く見えないけどＶＢＡでは

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング