آیا تا به حال خواسته اید محتویات موجود در یک سلول را معکوس کنید؟ با استفاده از تابع StrReverse در VBA، می توانید به راحتی "My text" را به "txet yM" تغییر دهید.
Dim sTemp As String
sTemp = "My text"
sTemp = StrReverse(sTemp)
پس از تکمیل، متن موجود در متغیر sTemp برابر با "txet yM" خواهد بود. اگر می خواهید محتویات یک سلول در یک کاربرگ را معکوس کنید، می توانید از موارد زیر استفاده کنید:
Selection = StrReverse(Selection)
این کار هر سلولی را که در کاربرگ انتخاب شده است معکوس می کند. با این حال، برای من مفید است که استفاده از آن را کمی بسازیم تا مطمئن شویم که تنها یک سلول انتخاب شده است و سلول حاوی فرمول نیست:
If Selection.Count =1 Then
If Not Selection.HasFormula Then Selection = StrReverse(Selection)
End If
این ماکرو تنها روی یک سلول انتخاب شده تأثیر می گذارد و هیچ تغییری در سلولی که حاوی فرمول است ایجاد نمی کند.
