マクロの解説

ずいぶん忘れてしまって、簡単にしか御説明できないのをご勘弁ください。

最初の1行目にございます「Public Sub 検索(ByVal Namae As String, ByRef MeNamae As Object)」

は設定を引き継ぐためにございます。

何を引き継いでいるのか、どこから引き継いでいるのでしょうか？

• Public Sub 検索(ByVal Namae As String, ByRef MeNamae As Object）

まず　Namae　は検索する際に入力したキーワードを引き継ぎます。検索窓から引きついております。

さて次の、MeNamae　には何が引き継がれるかといいますと、検索を行ったユーザーフォームの名前が引き継がれます。

上の検索窓の画像では、検索窓の名前は「KensakuForm」ですからこの名前を引き継いでおります。

なぜこのようなことをしたかといいますと、いろんな検索窓から使い回しができる用にです。実際に透析データーベースではありとあらゆる変更フォームにこの検索窓が付いており、どこの検索窓から検索してきたのかを知り、結果をその検索窓にのみ送ってやる必要がありました。

しかし、1個だけしか検索窓がない場合はこの引継ぎは必要ないと思います。削除なさっても差し支えありませんが削除しなくとも何の影響もありませんのでこのままお使いになられることをお勧めいたします。

もし削除される場合は、下のマクロの赤い字のところを検索窓の名前に書き換えてくだされば結構です。（上の検索窓の例ですと KensakuForm と書き換えます。）

            If KensakuChar = ListChar Then

                If Nagasa = KBanme Then

                    With MeNamae

                        .ListBox1.AddItem (ListNamae)

                    End With

                End If

            Else

                Exit Do

            End If

最初の1行目は、

Public Sub 検索(ByVal Namae As String)

このような感じになるかと思います。