リストボックスあ行氏名より選択しテキストボックス１～６の値を実行２クリックでsheet1"E1"から順番に入力されるがか行選択のテキストボックス値１～４を順番に"E7"から入力させたいができるでしょうか。ちなみに下記の方法しかわかりません。また、実行２を押すと同時にテキストボックスを空白にしたいのですが。どなたかコードが解る方よろしくお願いします。 Private Sub 実行2_Click() With Worksheets("入力") .Range("E1") = TextBox1.Value .Range("E2") = TextBox2.Value .Range("E3") = TextBox3.Value .Range("E4") = TextBox4.Value .Range("E5") = TextBox5.Value .Range("E6") = TextBox6.Value .Range("E7") = TextBox7.Value .Range("E8") = TextBox8.Value .Range("E9") = TextBox9.Value .Range("E10") = TextBox10.Value End With End Sub
↧