Как форматировать каждую строку в текстовом поле в VBA Excel

Question

Могу ли я прокручивать текстовое поле для каждой введенной строки и отформатировать ее? Например, если пользователь вводит:

Text1 
Text2 

Я хотел бы выводить его как в одной строке.

«Текст1», «Text2»

Также было бы удивительным, если вы можете получить последнюю запятую не показывать.

Answer 1

Это то, что вам действительно нужно

• Добавить текстовое поле в листе

• Добавьте этот код на TextBox1_Change() событие

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

• правой кнопкой мыши на текстовом поле и включить многострочный вариант

• Control + Enter, чтобы изменить строку в текстовом поле

И у вас есть результат, который вы хотите: