Текст двумя строками в TextBox
Доброго времени суток!
Проблема эсттическава характера. Есть UserForm1, TextBox1 и CommandButton1. Как в TextBox1 разместить надпись "Сладкая Булочка" в две строки, и эту же надпись передать в активную ячейку без отображения нечитаемых знаков. Спасибо!
Код, размещенный в теле формы:
Private Sub CommandButton1_Click()
ActiveCell = TextBox1
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "Сладкая " & Chr(10) & "Булочка"
End Sub
Проблема эсттическава характера. Есть UserForm1, TextBox1 и CommandButton1. Как в TextBox1 разместить надпись "Сладкая Булочка" в две строки, и эту же надпись передать в активную ячейку без отображения нечитаемых знаков. Спасибо!
Код, размещенный в теле формы:
Private Sub CommandButton1_Click()
ActiveCell = TextBox1
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "Сладкая " & Chr(10) & "Булочка"
End Sub
VBA,как я понял…В принципе,у них вроде очень похожая система,так что:
• перенос строки делается с помощью vbCRLF
• дабы корректно отображался перенос,TextBox1.Multiline=True
• можно поступить ещё проще–не vbCRLF,а просто пробел,но при этом изменить размер текстового поля так,чтобы по ширине оно примерно равнялось ширине 1го слова(в идеале–самого широкого),тогда 2е слово само перенесётся на 2ю строку.Это даже лучше для вашего случая,ИМХО,ибо тогда не возникает проблемы с нечитаемыми символами
Можно ещё из текстовой строки удалить символ переноса и вставить туда пробел
Итак,я дал несколько вариантов.Выбирайте любой:)
• перенос строки делается с помощью vbCRLF
• дабы корректно отображался перенос,TextBox1.Multiline=True
• можно поступить ещё проще–не vbCRLF,а просто пробел,но при этом изменить размер текстового поля так,чтобы по ширине оно примерно равнялось ширине 1го слова(в идеале–самого широкого),тогда 2е слово само перенесётся на 2ю строку.Это даже лучше для вашего случая,ИМХО,ибо тогда не возникает проблемы с нечитаемыми символами
Можно ещё из текстовой строки удалить символ переноса и вставить туда пробел
Итак,я дал несколько вариантов.Выбирайте любой:)