エクセル マクロ 抽出について

質問

先程、下記の質問をさせていただきました。
　　続けて失礼いたします。
　　エクセルのマクロについての質問です。
　　まず、Sheet２に
　　　　　Ａ　　　Ｂ　　　　　　Ｃ　　　　　Ｄ　　　　
　　1　　abe 安部・・　　東京都・・　　03・・
　　2　　asai 浅井・・　　神奈川県・・　04・・
　　3　　asida 芦田・・　　・・　　　　　・・
　　などのリストがあると仮定します。
　　一番はじめにお願いしたいのは、ユーザーフォームのTextbox1に　　　Sheet2のＡ列に相当するアルファベットを入れると、Listbox1にア　　ルファベットに見合った氏名が表示できればと思っております。
　　難しいかもしれませんが、もしできるのでしたら、Textbox1へのア　　ルファベット入力の途中での抽出ができるようになると、とても助　　かります。例えば、『a』を入力すると『安部、浅井、芦田』が表　　示され、つづいて『as』と入力すると『浅井、芦田』が表示できる　　様なシステムです。

以前の質問と答えを参考にして、以下のマクロを書いてみました。しかし、全く反応がありません。どなたか詳しい方がいらっしゃいましたら、どうか教えてください。
Private Sub TextBox1_Change()
v = TextBox1.Text
Userform1.ListBox1.Clear
For i = 1 To 14
c = Worksheets("sheet2").Cells(i, "A")
If v = Left(c, Len(v)) Then
Userform1.ListBox1.AddItem Cells(i, "B")
End If
Next i
End Sub

回答No.2

zap35 · ベストアンサー

＃０１です
＞しかし、全く反応がありません。
もしかしたらマクロを記述するシートを間違えているのかもしれないですね。

今のマクロにブレークポイントを入れて動かしてみたら、処理が一旦停止するはずですが、その状態にならないなら間違えている可能性があります。

VBE画面で「TextBox1を右クリック」→「コードの表示」で表示される画面に記述してありますか？

お礼

とてもとても助かりました。基本的な所がわかっていなかったようです。素晴らしいアドバイスでした。SHEET１のマクロの所に書いて、ずっと悩んでおりました。本当にありがとうございました。
ところで、あつかましいと思いますが、その前の質問の２番目の疑問点のヒントをいただけないでしょうか？もしお暇なときがありましたら、よろしくお願いします。

回答No.1

zap35

少しチェックを加えて見ました。また入力された文字は一旦小文字に変換するようにしました。とりあえず動くことは確認しています。

Private Sub TextBox1_Change()
Dim idxR As Integer, trgText As String
　UserForm1.ListBox1.Clear
　trgText = LCase(UserForm1.TextBox1.Text)
　With Worksheets(2)
　　If Len(trgText) > 0 Then
　　　For idxR = 1 To .Cells(1, 1).End(xlDown).Row
　　　　If Len(.Cells(idxR, 1).Value) >= Len(trgText) _
　　　　　　And Left(.Cells(idxR, 1).Value, Len(trgText)) = trgText Then 　　
　　　　　UserForm1.ListBox1.AddItem .Cells(idxR, 2)
　　　　End If
　　　Next idxR
　　End If
　End With
End Sub