کیت خاطرنشان می کند که افزودن نظر به یک سلول آسان است. او فکر می کند که آیا راهی برای درج یک نظر در چندین سلول به طور همزمان وجود دارد؟
پاسخ کوتاه این است که هیچ راهی برای درج چندین نظر به طور همزمان وجود ندارد. با این حال، می توانید یک نظر را در چندین سلول کپی کنید. این مراحل را دنبال کنید:
شکل 1. کادر محاوره ای Paste Special.
- نظر خود را همانطور که معمولاً انجام می دهید در سلول اول وارد کنید.
- سلول نظر داده شده را انتخاب کنید و Ctrl+C را فشار دهید . این سلول را در کلیپ بورد کپی می کند.
- محدوده سلول هایی را که می خواهید همان نظر داشته باشند را انتخاب کنید.
- تب Home نوار را نمایش دهید.
- روی فلش رو به پایین زیر ابزار Paste کلیک کنید و سپس Paste Special را انتخاب کنید. اکسل کادر محاوره ای Paste Special را نمایش می دهد. (شکل 1 را ببینید.)
- روی دکمه رادیویی Comments کلیک کنید.
- روی OK کلیک کنید.
نتیجه این است که فقط نظر از سلول در مرحله 2 به سلول هایی که در مرحله 3 انتخاب کرده اید چسبانده می شود. اگر هر یک از آن سلول ها قبلاً نظراتی داشتند، آن نظرات با نظری که در حال چسباندن هستید جایگزین می شود.
اگر واقعاً می خواهید نظر را همزمان به همه سلول ها اضافه کنید، تنها راه انجام آن از طریق ماکرو است. مثال زیر از شما می خواهد نظر بدهید و سپس آن نظر را به تمام سلول هایی که انتخاب کرده اید اضافه کنید.
Sub InsertCommentsSelection()
Dim sCmt As String
Dim rCell As Range
sCmt = InputBox( _
Prompt:="Enter Comment to Add" & vbCrLf & _
"Comment will be added to all cells in Selection", _
Title:="Comment to Add")
If sCmt = "" Then
MsgBox "No comment added"
Else
For Each rCell In Selection
With rCell
.ClearComments
.AddComment
.Comment.Text Text:=sCmt
End With
Next
End If
Set rCell = Nothing
End Sub