Обратная последовательность букв

[ksar7]

Доброго времени суток, уважаемые программеры (подмазался )

Стратегическая задача, не знаю даже как сформулировать, в общем надо сделать так...
например - вбиваю в excel цифры 123456 - при помощи макроса или еще как нить сделать обратную последовательность, то есть - 654321

искал много, гуглил, нашел макрос но он делает все в отдельном окне, а НАДО ЧТОБ ИЗ СТРОЧКИ БРАЛ И В СТРОЧКУ ВСТАВЛЯЛ.. помогите пожалуйста,

Sub perevorot_slov()
predlogenie = InputBox("Введите предложение")
slova = Split(predlogenie, " ")
temp = ""

If Right(predlogenie, 1) = "." Then
MsgBox ("Уберите точку в конце предложения, иначе я работать не буду ")
Exit Sub
End If

For I = 0 To UBound(slova)
For j = 1 To Len(slova(I))
temp = temp & Mid(slova(I), Len(slova(I)) + 1 - j, 1)
Next j
slova(I) = temp
temp = ""
Next I
predlogenie_new = slova(0)
For I = 1 To UBound(slova)
predlogenie_new = predlogenie_new & " " & slova(I)
Next I
MsgBox (predlogenie_new)

End Sub

[The_Prist]

Функция пользователя:

Function Reverse_Word(sWord As String)
Reverse_Word = StrReverse(sWord)
End Function

Предвидя вопрос: используется следующим образом. Код вставляется в обычный модуль, в любой ячейке листа пишите:
=Reverse_Word(B2)
где B2 - ссылка на ячейку со словом, которое надо перевернуть.

Еще можете посмотреть здесь. Я приводил пример без макросов, но имеет свои минусы.

[ksar7]

Сообщение от The_Prist

Функция пользователя:

Function Reverse_Word(sWord As String)
Reverse_Word = StrReverse(sWord)
End Function

это куда вставить надо. я вообще не бум-бум... можно объяснить либо сразу имеющийся текст исправить )

[doober]

А если так попробовать

MsgBox (StrReverse("123456789"))

[The_Prist]

Сообщение от ksar7

это куда вставить надо. я вообще не бум-бум... можно объяснить либо сразу имеющийся текст исправить )

Читай выше - жирным выделил.

[ksar7]

Сообщение от The_Prist

Читай выше - жирным выделил.

извени конечно, это работает так, типа вставляю в ячейку excel - =Reverse_Word(B2) и в В2 списываю что хочу перевернуть, а там где вставил =Reverse_Word(B2) появится перевернутое, и макрос что я тут втавлял типа вообще не нужен, нужно вместо него вписать твоё -
Function Reverse_Word(sWord As String)
Reverse_Word = StrReverse(sWord)
End Function

[The_Prist]

Сообщение от ksar7

макрос что я тут втавлял типа вообще не нужен, нужно вместо него вписать твоё -
Function Reverse_Word(sWord As String)
Reverse_Word = StrReverse(sWord)
End Function

Да, так оно и есть.

[ksar7]

Сообщение от The_Prist

Да, так оно и есть.

Большое спасибо, помогло... при первой же возможности... отблагодарю... кашиль правильный?

[The_Prist]

Сообщение от ksar7

кашиль правильный?

Да. Оба правильные.

[ksar7]

Сообщение от The_Prist

Да. Оба правильные.

не обещаю сразу. но как только, так кину