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

可参照下列方法，如果是手动 *** 作，可以先复制，然后同时乘以100，设置格式为文本，录制一遍稍微修改后得到代码如下：

Option Explicit

Sub test()

Dim rng As Range, srng As Range, n, i

Set rng = Range("A1:A1700")

Set srng = Range("B1:B1700")

n = 100

'先将A列数据复制到B列

rng.Copy

srng.Select

ActiveSheet.Paste

Application.CutCopyMode = False

'同时乘以n倍，n=100

Range("D1").Value = n

Range("D1").Select

Selection.Copy

srng.Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _

SkipBlanks:=False, Transpose:=False '选择性粘贴“乘”

Selection.NumberFormatLocal = "@" '设置文本格式

Application.CutCopyMode = False

'为新的值增加百分号

For Each i In srng

i.Value = "'" &i.Value &"%"

Next

Range("D1").Value = ""

End Sub

设定A1单元格格式为文本格式如下：

Sub 宏1()

    Range("A1").Select

    Selection.NumberFormatLocal = "@"

End Sub

---