با سلام خدمت اساتید محترم
فکر کنم راه حل کدنویسی هم بد نباشه امتحان کنیم.البته با توجه به موضوع جابه جایی تاپیک با نظر مدیران عزیز انجمن میباشد.
کد:
Sub ShowComments()
Dim WS As Worksheet
Dim iCell As Range
For Each WS In ActiveWorkbook.Worksheets
For Each iCell In WS.UsedRange
With iCell
If CStr(.Value) <> "" Then
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(.Value)
.Comment.Shape.ScaleWidth 3.7, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft
End If
If .Formula <> "" Then
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(.Formula)
.Comment.Shape.ScaleWidth 3.7, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft
End If
End With
Next
Next
End Sub
کد:
Sub ClearComments()
Dim WS As Worksheet
Dim iCell As Range
For Each WS In ActiveWorkbook.Worksheets
For Each iCell In WS.UsedRange
iCell.ClearComments
Next
Next
End Sub
علاقه مندی ها (Bookmarks)