Вы когда-нибудь хотели перевернуть содержимое ячейки? Используя функцию StrReverse в VBA, вы можете легко изменить «Мой текст» на «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

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

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

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

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

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

Этот совет (3451) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

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