Вы когда-нибудь хотели перевернуть содержимое ячейки? Используя макрос Reverse, вы можете легко изменить «Мой текст» на «txet yM». Макрос поучителен в методах доступа и изменения содержимого ячейки.

Sub Reverse()

If Not ActiveCell.HasFormula Then         sRaw = ActiveCell.Text         sNew = ""

For J = 1 To Len(sRaw)

sNew = Mid(sRaw, J, 1) + sNew         Next J         ActiveCell.Value = sNew     End If End Sub

Этот макрос влияет только на одну выбранную ячейку и не вносит никаких изменений в ячейку, которая уже содержит формулу.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2322) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Reversing_Cell_Contents [обращение содержимого ячейки].