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

[ali.b]

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

 With ActiveCell
        .Value = .Value & Chr(10) & Sheet1.Range("p1").Value
    End With

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

Chr(10)

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

"" 

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.