Amir Ghasemiyan
2017/08/17, 12:14
سلام دوستان
همونطور که میدونین با کدهای vba خیلی کارها میشه انجام داد. در این تاپیک قصد دارم نحوه تغییر اندازه و سایر مشخصات کامنت ها رو خدمتتون توضیح بدم.
با کد زیر میتونین با یک بار اجرای کد تغییرات زیر رو روی همه کامنت ها اعمال کنید: (با توجه به رنگ نوشته ها و رنگ کدها میتونین متوجه بشید هر خط از کد چه کاری انجام میده)
1- حذف نام کاربری از کامنت ها
2- تغییر مشخصات فونت مثل اسم فونت، بولد بودن و سایز فونت
3- فیت کردن ابعاد کامنت با محتوای کامنت
Sub FormatComments()
Dim oComment As Comment, i As Integer
'Loop through all the comments in the sheet
For Each oComment In ActiveSheet.Comments
With oComment.Shape.TextFrame.Characters
i = InStr(1, .Text, ":" & vbLf)
If i > 0 Then .Text = Mid(.Text, i + 2)
With .Font
.Name = "Arial"
.Size = 12
.Bold = True
End With
End With
oComment.Shape.TextFrame.AutoSize = True
Next
End Sub
همونطور که میدونین با کدهای vba خیلی کارها میشه انجام داد. در این تاپیک قصد دارم نحوه تغییر اندازه و سایر مشخصات کامنت ها رو خدمتتون توضیح بدم.
با کد زیر میتونین با یک بار اجرای کد تغییرات زیر رو روی همه کامنت ها اعمال کنید: (با توجه به رنگ نوشته ها و رنگ کدها میتونین متوجه بشید هر خط از کد چه کاری انجام میده)
1- حذف نام کاربری از کامنت ها
2- تغییر مشخصات فونت مثل اسم فونت، بولد بودن و سایز فونت
3- فیت کردن ابعاد کامنت با محتوای کامنت
Sub FormatComments()
Dim oComment As Comment, i As Integer
'Loop through all the comments in the sheet
For Each oComment In ActiveSheet.Comments
With oComment.Shape.TextFrame.Characters
i = InStr(1, .Text, ":" & vbLf)
If i > 0 Then .Text = Mid(.Text, i + 2)
With .Font
.Name = "Arial"
.Size = 12
.Bold = True
End With
End With
oComment.Shape.TextFrame.AutoSize = True
Next
End Sub