ユーザーフォームに教えてください！

質問

病院に勤めている者ですが、今エクセルで患者さまデータを作成しており、ユーザーフォームを使って患者さま情報を一目みてわかるようにしています。オートフィルターとスクロールバーを同期させてテキストバックスに反映させるようにしているのですが、ユーザーフォームに入力すれば直接セルに入力できるようにするにはどうしたら良いでしょうか。記述は下記のとおりです。

Private Sub ScrollBar1_Change()
SelectRow

For i = 1 To 65
Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
Next
End Sub

Private Sub UserForm_Initialize()
ScrollBar1.Min = 1
ScrollBar1.Max = CountRows()
ScrollBar1.LargeChange = ScrollBar1.Max \ 10 + 1
ScrollBar1.Value = 1

SelectRow

For i = 1 To 65

Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
Next
End Sub

Sub SelectRow()
Dim iRows As Long

iRows = 0
For i = 5 To ActiveSheet.UsedRange.Rows.Count
If Not Rows(i).Hidden Then
iRows = iRows + 1
If iRows = ScrollBar1.Value Then
ActiveSheet.Rows(i).Select

Exit For
End If
End If
Next i

End Sub

Function CountRows() As Long
Dim iRows As Long
iRows = 0
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Not Rows(i).Hidden Then
iRows = iRows + 1
End If
Next i
CountRows = iRows
End Function
具体的な記述があればありがたいです！

回答No.1

red0176

フォームに入力した物をシートに入力するって事ですよね？
単純に

Private Sub CommandButton1_Click()

Sheets("Sheet1").Cells(1, 1).Value = Me.TextBox1.Text

End Sub

ではだめなのですか？