(آموزشی) افزودن متن، به متن موجود در سلول ها

[ali.b]

سلام
ممکنه گاهی لازم باشه به محتوای سلولی که متن داره باز هم متنی بهش اضافه باشه با کد این این هدف حاصل میشه

 With ActiveCell
        .Value = .Value & Chr(10) & Sheet1.Range("p1").Value
    End With[FONT=tahoma][/FONT]

در اینجا اگه میخواهیم TEXT جدید در پاراگراف بعدی ایجاد بشه WARP TEXT از کد

Chr(10)

استفاده کتید اما اگه میخواهید فاصله باشه از

[FONT=tahoma]"" [/FONT]

اینجا هر تعداد فاصله نیاز داریدبین این کوتیشن ها ایجاد کنید