VBA ユーザーフォーム

質問

VBA初心者です。以下の様なソースを見つけました。この場合は、文字を検索するとD1
にその該当番号が表示されます。
※A列には番号、B列には文字列
そうではなく、そのクリックした行のA列にセルが移動し、ユーザーフォームが閉じられる様にできますでしょうか？

よろしくお願い致します。

Private Sub ListBox1_Click()
Sheets("Sheet1").Range("D1").Value = ListBox1.Value
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim v() As Variant
Dim c As Range
Dim k As Long
ListBox1.Clear
With Sheets("Sheet1")
With .Range("A1", .Range("A" & .Rows.Count).End(xlUp))
ReDim v(1 To 2, 1 To .Rows.Count)
For Each c In .Cells
If c.Offset(, 1).Value Like TextBox1.Value & "*" Then
k = k + 1
v(1, k) = c.Value
v(2, k) = c.Offset(, 1).Value
End If
Next
If k = 0 Then
MsgBox "指定の値は存在しません"
Else
ReDim Preserve v(1 To 2, 1 To k)
ListBox1.List = WorksheetFunction.Transpose(v)
End If
End With
End With
End Sub

回答No.2

hallo-2007 · ベストアンサー

Range("listの名前").Offset(ComboBox1.ListIndex).Activate
この部分について、具体的に教えていただけないでしょうか？

失礼しました。ＬｉｓｔＢｏｘでの話ですね。

お役立てるかどうかですが、もし
セルに名前をつけて、
Rowsourceにて名前定義したセルを指定しているとしての話です。

Private Sub ListBox1_Click()
Range("ＲｏｗＳｏｒｃｅで指定した名前定義").Select
MsgBox ListBox1.ListIndex
ActiveCell.Offset(ListBox1.ListIndex).Activate
End Sub

でその動きを観察してみてください。

お礼

何度もありがとうございました！

回答No.1

hallo-2007

Private Sub ListBox1_Click()
Range("listの名前").Offset(ComboBox1.ListIndex).Activate
Unload Me
End Sub

とかいったことでしょうか。

お礼

ご回答ありがとうございます。

Range("listの名前").Offset(ComboBox1.ListIndex).Activate

この部分について、具体的に教えていただけないでしょうか？

申し訳ありません。