|
一応、これで対象基準セルがわかると思います。
後は、列番を+1するなりして、テキストボックスの値を書き換えるなりしてください。
行番もわかりますから、削除も出来ます。
Private Sub CommandButton1_Click()
mmc = Range(ListBox1.RowSource).Column
mmr = Range(ListBox1.RowSource).Row
TextBox1.Value = Cells(ListBox1.ListIndex + 2, mmc)
TextBox2.Value = Cells(ListBox1.ListIndex + 2, mmc + 1)
If ListBox1.ColumnCount > 2 Then
TextBox3.Value = Cells(ListBox1.ListIndex + 2, mms + 2)
End If
Cells(ListBox1.ListIndex + 2, mmc).Select
MsgBox "このデータは、" & vbLf & _
"リストボックス" & ListBox1.ListIndex + 1 & "行目から" & vbLf & _
"対象セル" & Cells(ListBox1.ListIndex + 2, mmc).Address
End Sub
|
|