VBA中设置文本框可直接使用回车键换行

称设置文本框 的属性 Scrollbars为 vertical为垂直。然后允许多行，并设置Enter回车键的行为（Access设置为文本中新行即可）

1，设置文本框Multiline = true

2，设置文本框Wordwarp = true

2，设置文本框Enterkeybehavior= true

读取每行的值

只有在MuiltLine属性为True的前提下TextBox才有多行，由于在这个控件中输入文本时换行是Ctrl+Enter实现的，所以用Split(TestBox.Value,Chr(10))就可以分割文本并保存在数组中：

Private Sub TextBox1_LostFocus()

If Len(TextBox1.Value) > 0 Then

arr = Split(TextBox1.Value, Chr(10))

'激活下面的语句可以在A列显示数组arr

'Range("a1").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)

End If

End Sub