مثال کاربردی VBA : ثبت کامنت درون سلول به معنی خارج کردن اطلاعات از درون کامنت و وارد کردن آن درون سلول است.

به عبارت دیگر بعد از مدتی از وارد کردن کامنت درون اکسل، میخواهیم اطلاعات ثب شده به صورت کامننت را درون سلولهای اکسل وارد کنیم.

بدین منظور میتوان از کد VBA زیر استفاده نمود.

کد VBA ثبت اطلاعات از درون کامنت به درون سلول

با فرض آنکه بخواهیم تمامی کامنتها درون محدوده A1 تا A10 را درون سلولهای B1 تا B10 وارد نماییم.

Sub Comment_To_Cell()

۱- مثل تمامی کدهای VBA ابتدا عبارت SUB آورده میشود و به دنبال آن اسم کد.

 On Error Resume Next

۲- از آنجایی که ممکن است بعضی از سلولهای محدوده مورد بررسی شامل کامنت نباشد، به منظور جلوگیری از بروز خطا از این کد استفاده شده است.

For i = 1 To 10

۳- به علت آن که اطلاعات کامنت از ۱۰ سلول باید جمع آوری شود، حلقه ای با طول ۱۰ تعریف ضده است.

Cells(i, 2) = Cells(i, 1).Comment.Text

۴- در این قسمت گفته شده است اطلاعات کامنت در سلول مربوط به iامین ردیف و اولین ستون (ستون A) به سلول کناری (در ستون B) منتقل شود.

Next i

۵ در این مرحله گفته شده حلقه به اتمام برسد.

End Sub

۶- مانند سایر کدها، دستور مد نظر با End Sub به پایان می رسد.

لذا بدین منظور کافی است از کد ذیل استفاده نمود.

Sub Comment_To_Cell()
On Error Resume Next

For i = 1 To 10
Cells(i, 2) = Cells(i, 1).Comment.Text
Next i

End Sub