Excel vba textbox 怎么根据每一行分割

发布网友发布时间：2022-04-21 20:48

共4个回答

热心网友时间：2023-06-23 11:32

只有在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

安排代码在控件失去焦点时才运行以保证输入完整

热心网友时间：2023-06-23 11:32

可以用：Split函数，split（字符串,"分隔符"）拆分字符串转为一维数组。
如果不理解，请自行百度：VBA split

热心网友时间：2023-06-23 11:33

split吗？

热心网友时间：2023-06-23 11:33

你想实现什么吧我帮你实现就是了