|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
[LEFT]
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[/LEFT]
[LEFT]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
[/LEFT]
کامنت