月: 2023年2月

間に合わせて作ったVBAが２５日の仕事で役に立ちました。いくつか改良点が必要だったので，改良を加えま
した。やはり，複数検索対応が必要で，アクティブセルを目立たせることも使いやすくするためには必要でし
た。どうしようかと思いましたが，リストボックスと組み合わせることで，懸念だった，検索結果の複数項目
を保持することにしました。

上記のようなユーザーフォームで，検索結果をリストボックスに表示するようにしました。結果が単数の場合
はそのまま選択し，複数の場合は，リストボックスで選択するようにしました。
前回・今回のプロシャージャで，使ったのが，Find(keyWord, LookAt:=xlPart)　というものですが，これ
は，最初にでてきたものしかヒットしません。前回のプロシャージャでは，FindNext(myCell)との組み合わせ
で，あらかじめ複数検索の対象を把握しておいて，複数検索の対象の場合は，別な検索キーで検索するとい
う，手間をかけてました。リストボックを使うことで，検索結果を全部リストボックスに表示することで，プ
ログラム的にはすっきりしました。検索結果が単数の場合は，リストボックスに表示する必要なないのです
が，複数か単数かの判別をする必要が面倒なので，一律リストボックスに表示して，

複数→選択（手動），単数→プログラムで選択

のようにしました。便利な命令があるのもので，今回のプロシャージャ作成で初めて使いましたが，

sendkeys

というもので，キーボードを押した状態をプログラムで作ることができるものです。今回初めてわかりました
が，もし，以前から分かっていたら，以前作ったプロシャージャももっと楽に作れたかもしれないと思います。
次のような動作をします。ここで使ってる名前は，データ用の架空の名前です。

名前を入力して，リターンキーを押すと，検索結果がリストボックスに表示されると同時に，選択されたセル
が見えるようになります。名前のとなりの数字は，その名前ある行番号です。

ここで矢印キーで選択する項目を移動すると，それにつれて，選択状態になったセルが見えるようになりま
す。選択してリターンキーを押すと，該当する名前のセルが選ばれ，背景が黄色になります。

単数の場合は，リストボックスに表示するのですが，表示と同時にリターンキーを送るので，リストボックは
見えず選択されたなまえの背景が黄色になります。文字の背景をその都度変えているのは，どの項目がアク
ティブになるかの表示でデバック用も兼ねてます。

合わせて，上記のように，アクティブセルの色を変えて，他のセルと区別できるようにしてます。次回，操作
の様子と全プロシャージャを掲載します。

お手伝いの仕事？を楽にするため，また，簡単なVBAを作りました。簡単にできるかと思ったのですが，意外
に難航。なかなか思った動作をしてくれません。意図した動作とは，

のようなユーザーフォームで，クリックをしなくても，テキストボックスに入力できるようにするというもの
です。入力できるようにするには，TextBox1.SetFocus　という表現をするのですが，どう書き換えても入力
できるようになりませんでした。ネットでくぐってもこの　SetFocus　のトラブルは結構あるみたいで，いく
つも出てきますが，明確な解決法には，あたりませんでした。　

最初　Private Sub TextBox1_Change()　というイベントに関係することを記載していましたが，だめでした。

そこで，

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

のイベント処理のところに書いたら，やっと思った動作ができました。
SetFocus　の命令は，どこに書いても正しい動作をするのではない，ということが，おぼろげながら分かりま
した。

思った動作とは，

　ユーザフォームを自動で表示（クリックしなくても，テキストボックスに入力できる状態に）
　入力後所定の動作が終わったら，また，テキストボックスに入力できる状態に

ということで，次のようなコードで，思った動作ができました。

Dim keyWord As String
Dim myRange As Range
Dim myObj As Range

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　　　 Set myRange = Range("D5:D98")
　　　 keyWord = TextBox1.Text
　　　 If KeyCode = vbKeyReturn Then
　　　 Set myObj = myRange.Find(keyWord, LookAt:=xlPart)
　　　 Label1.Caption = "検索結果＝「" & myObj.Offset(0, 0).Value & "」" & myObj.Row & "行目"
　　　 myObj.Offset(0, -3).Interior.ColorIndex = 6
　　　 UserForm1.TextBox1.Text = ""
　　　 UserForm1.TextBox1.SetFocus
　　　 End If
　　　 If KeyCode = vbKeyF1 Then
　　　 myObj.Offset(0, -3).Interior.ColorIndex = 0
　　　 Set myObj = Nothing
　　　 Label1.Caption = "検索結果＝"
　　　 UserForm1.TextBox1.Text = ""
　　　 UserForm1.TextBox1.SetFocus
　　　 End If
　　　End Sub

Private Sub UserForm_Initialize()
　　　 TextBox1.Text = ""
End Sub

Private Sub UserForm_Activate()
　　　 UserForm1.TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()
　　　 keyWord = TextBox1.Text
End Sub

やっていることは，単に，テキストボックに検索する文字を入力して，検索後，あれば，あった場所の左側の
背景の色を変えるということで，なんのことはありません。エンターキーを押すと，検索して，F1　を押すと
直前に変えた背景をもとに戻すという，単純な動作です。

ただ，今回のものは，検索の対象が，複数ある場合には，対応していません。複数検索に対応させるには，検
索自体はそれほど複雑ではないのですが，背景色を変える対象も複数になるので，それをもとにに戻すとなる
と，背景を変えた場所を何らかの形で記憶していないとだめで，プロシャージャが複雑になりますので，今回
はやめようかと思います。