エクセルＶＢＡ初心者です。
ユーザーフォームを使ったセルの上書きについて質問があります。（以下は自分が作成済みの内容）
Ａ Ｂ
りんご １
みかん ２
これらがセルにあります。この中から上書きしたいものを取得します。
ユーザーフォーム１にリストボックスとコマンドボタンを１つずつ設置し、そのリストボックスにＡ列の文字を入れました。リストボックスの中から上書きしたい文字を選択し、コマンドボタンを押すと、ユーザーフォーム２が表れ、そこには２つのテキストボックスと１つのコマンドボタンがあります。
ここからが分からないのですが、例えば上書きしたい文字に「みかん」を選び、ユーザーフォーム２のテキストボックス１に「バナナ」、テキストボックス２に「３」といれると
Ａ Ｂ
りんご １
バナナ ３
このようにしたいのです。
実際はもっと複雑な内容のものを作成しております。しかし上記の疑問が解決すれば、今自分が抱えている問題も解決すると思います。
以下はユーザーフォーム１のコードです。これを提示することにより回答される方が楽になるかどうかは分かりませんが、一応提示しておきます。(lstRowを使っている理由はＡ列とＢ列の文字・値が増加していく可能性があるため)
Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
Dim lstRow As Long
Dim i As Long
Dim q As Long
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "200 pt"
lstRow = Cells(Rows.Count, 1).End(xlUp).Row
q = 0
For i = 2 To lstRow
With ListBox1
.AddItem
.List(q, 0) = Cells(i, "C").Value
End With
q = q + 1
Next
End Sub
============================================================================
Private Sub CommandButton1_Click()
UserForm2.TextBox1.Value = Me.ListBox1.Value
Unload UserForm1
UserForm2.Show
End Sub
お礼
問題は解決しました。説明等、つたない点があったのにも関わらず、丁寧なご説明、ありがとうございましたm(__)m