如何格式化VBA Excel中文本框中的每一行

Question

我可以为输入的每一行循环浏览文本框并格式化吗？例如，如果用户输入：

Text1
Text2

我想将其输出为一行。

  

＆＃39;文本1＆＃39;＆＃39;文本2＆＃39;

如果你能得到最后一个不显示的逗号，也会很棒。

Answer 1

这是你真正需要的

• 在工作表中添加文本框

• 在TextBox1_Change（）事件

  上添加此代码

  Dim mystr      
  
  mystr = Split(Sheet1.TextBox1.Text, vbCrLf)
  Sheet1.Range("A1") = "'" & Join(mystr, "','") & "'"
  

• 右键单击文本框并启用多行选项

• 按Ctrl + Enter以更改文本框内的行

你得到了你想要的结果：