| |
▼しゅん さん：
サンプルです。
元シート、"Sheet1"にしてあります。（★のところ２か所）
違っていれば、ここを変更してください。
元シートのどこに書く行のデータがあるかどうか、わからなかったので、
A列、１行目からということにしてあります。
Private Sub UserForm_Initialize()
Dim w As Variant
Dim i As Long
Dim c As Range
With Sheets("Sheet1") '★
With .Range("A1", .Range("A" & Rows.Count).End(xlUp))
ReDim w(1 To .Rows.Count, 1 To 2)
For Each c In .Cells
i = i + 1
w(i, 1) = c.Value
w(i, 2) = c.Row
Next
End With
End With
With ComboBox1
.RowSource = "" '念のため
.MatchRequired = True
.List = w
End With
End Sub
Private Sub ComboBox1_Change()
With ComboBox1
If .ListIndex < 0 Then Exit Sub
Application.Goto Sheets("Sheet1").Cells(.List(.ListIndex, 1), "A") '★
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
