جیم می خواهد متن موجود در بخش نظرات ویژگی های یک ورک بوک را در یک سلول وارد کند. این یک نظر متصل به یک سلول نیست، بلکه محتویات قسمت نظرات در ویژگی های ورک بوک است.
اگر نیاز دارید که نظرات را تنها یک بار کپی کنید، انجام این کار به صورت دستی ممکن است بهترین گزینه باشد. می توانید فیلد نظرات را نمایش دهید، هر محتوایی را که می خواهید در کاربرگ خود قرار دهید انتخاب کنید و سپس Ctrl+C را فشار دهید . خواص را ببندید، سلول مورد نظر را انتخاب کنید و سپس Ctrl+V را فشار دهید .
اگر بیشتر به پویا بودن درج نیاز دارید، تنها راه برای افزودن آن نظرات به یک سلول استفاده از ماکرو است. اگر می خواهید محتویات در یک سلول خاص (مانند A1) ظاهر شوند، می توانید به سادگی از یک خط کد استفاده کنید:
Range("A1")=ActiveWorkbook.BuiltinDocumentProperties("comments")
خودشه؛ یک خط کد برای قرار دادن نظرات در سلول. در صورت تمایل، می توانید بر اساس آن یک تابع تعریف شده توسط کاربر ایجاد کنید که برای قرار دادن نظرات در هر جایی که می خواهید مفید باشد.
Function putComments() As String
Application.Volatile
putComments=ActiveWorkbook.BuiltinDocumentProperties("comments")
End Function
برای استفاده از این تابع تعریف شده توسط کاربر، به سادگی از موارد زیر در یک سلول استفاده کنید:
=putComments()
