问一下accessVBA里面，怎么实现换行，比如一个文本框，text1.value=”2015张

Question

问一下accessVBA里面，怎么实现换行，比如一个文本框，text1.value=”2015张小英”但是2015和张小英要分两行显示。

Answer 1

我写了一段代码，把这段代码复制到你要实现功能的表里：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim i As IntegerFor i = 3 To Range("a2").Value If Range("a" & i).Value "" Then Range("A" & i).Insert Shift:=xlToRight End IfNextEnd Sub该代码从第三行开始实现该功能，你可以在A2单元格里面输入你要实现该功能的最后一行行数，如10，参见下图

Answer 2

试试
& Chr(13) & Chr(10) &