پرسش درج عبارت داخل تکست باکس برای چند دفعه متوالی

[ali2313]

سلام خدمت همه دوستان
برای درج چند باره ی محتوا دا خل ی تکست باکس و حفظ عبارت قبلی خود تکست باکس از کد زیر استفاده میکنم ولی مشکلی که وجود داره این هستش که اولا عبارات رو پشت سر هم میچسبونه و خط به خط پائین نمیره دوم تعریف شرطهای هست در هر خط تکست باکس بیشتر از 45 کاراکتر نوشته نشود و شرط اخر اینکه بیشتر از 12 خط نشه داخلش عبارت وارد بشه با تشکر از وقتی که میزارید

Private Sub CommandButton1_Click()

TextBox2.Text = ComboBox1.Value & "-" & ComboBox2.Value & "-" & TextBox1.Text & TextBox2.Text


End Sub

[ali2313]

سلام خدمت همه دوستان
برای درج چند باره ی محتوا دا خل ی تکست باکس و حفظ عبارت قبلی خود تکست باکس از کد زیر استفاده میکنم ولی مشکلی که وجود داره این هستش که اولا عبارات رو پشت سر هم میچسبونه و خط به خط پائین نمیره دوم تعریف شرطهای هست در هر خط تکست باکس بیشتر از 45 کاراکتر نوشته نشود و شرط اخر اینکه بیشتر از 12 خط نشه داخلش عبارت وارد بشه با تشکر از وقتی که میزارید

Private Sub CommandButton1_Click()

TextBox2.Text = ComboBox1.Value & "-" & ComboBox2.Value & "-" & TextBox1.Text & TextBox2.Text


End Sub

سلام دوباره این دستور رو نوشتم ولی دو تا ایراد داره اول اینکه نتونستم قید بزارم که بیشتر از خط 12 دیگه کاربر نتونه موردی وارد کنه و دوم اینکه در قسمت دوم دستوز وقتی با زدن باتن 2 میخوام عبارت تکست باکس رو به رنچ انتقال بدم در انتهای خط اول ی alt+enter ناخواسته و خود به خود ثبت میشه اگر از دوستان و اساتید راهنماوی بفرماین ممنون میشم

Private Sub CommandButton1_Click()
If TextBox2.Text <> "" Then
TextBox2.Text = TextBox2.Text & Chr(10) & ComboBox1.Value & "/" & ComboBox2.Value & "/" & TextBox1.Text
Else
TextBox2.Text = ComboBox1.Value & "/" & ComboBox2.Value & "/" & TextBox1.Text
End If
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Text = ""

End Sub

Private Sub CommandButton2_Click()
Range("h42").Value = TextBox2.Text


End Sub