|
ありがとうございます!!
教えていただいたやり方で、ユーザフォームに反映させることができました。
しかし、ユーザフォームからまたもとのセルに変更後のデータを反映させる所でまた
躓いてしまいました。
単純に、以下のように教えていただいたコードを=で挟んで逆にすればできるのかなと思ったのですが、これではまずいのでしょうか。
Private Sub 変更登録_Click()
Dim f As Long
Dim myNAME As String
Dim myLID As Long
myNAME = ListBox1.Column(0)
myLID = ListBox1.ListIndex + 4
For f = 1 To 4
Cells(myLID, f + 1).Value = Controls("text" & f).Value
Next
Cells(myLID, 6).Value =combo1.Value
For f = 5 To 7
Cells(myLID, f + 2).Value = Controls("text" & f).Value
Next
すみませんがよろしくお願いします。
|
|