ALT+Enter
می توان از
Char(10)
نیز استفاده کرد.
مثال:
="Ali" & Char(10) & "Abbasi"
ALT+Enter
می توان از
Char(10)
نیز استفاده کرد.
مثال:
="Ali" & Char(10) & "Abbasi"
Dim str1 As String
str1 = ""
str1 = TextBox.Text
str1 = Replace(str1, vbCr, "")
str1 = Replace(str1, vbCrLf, Chr(10))
Sheet1.Cells(2, 8).Value = str1
بدین طریق توانستم مشکل ایجاد خط اضافه در سلول اکسل بهمراه مشکل رفتن کلمه آخر خط (قبل از اینتر) را حل نمایم
بهتر است به vbLf کاری نداشته باشیم.
نکته: بهتر است قبل از هر کاری مقدار آبجکت را که در اینجا TextBox است در یک متغیر قرار دهیم. چون آبجکت ها اعمالی را انجام می دهند که ناخواسته و بدون اطلاع ماست.
نتیجه: کنترل مقدارها در متغیرها بسیار بهتر و ساده تر صورت می گیرد و از خطاهای ناخواسته پرهیز می شود. آبجکت ها محلی برای رویدادهای ناخواسته هستند.
تصویر 1: قبل از تصحیح خطا
تصویر 2: بعد از تصحیح خطا
نتیجه:
Chr(13) = Chr$(13) = vbCr
Chr(10) = Chr$(10) = vbLf