Sub перестановкацифр()
 
'ЗАДАТЬ ПЕРЕМЕННЫЕ
Dim x As Integer, a As Single, b As Single, c As Single, d As Single
 
'Ввод и проверка числа
x = InputBox("x=")
Do While x > 9999 Or x < 0
    x = InputBox("число не удовлетворяет условию, вводи заново")
Loop
 
'Поиск цифр
a = x \ 1000
b = (x - a * 1000) \ 100
c = (x - (a * 1000 + b * 100)) \ 10
d = (x - (a * 1000 + b * 100 + c * 10))
 
'Просто мсгбокс
'MsgBox x
 
'Вывод перевёрнутого числа
 
'В мсгбокс
MsgBox ("Введённое число = " & x & vbNewLine & "перевёрнутое число = " & d & c & b & a)
 
'В ячейку
'cells(2,2)= d & c & b & a
 
End Sub

Sub perevertish()
 
'Краткое иписание макроса
'ABCD => DCBA
 
'==============================================================================
'0. Задаём переменные. Разбил на несколько строк, чтобы легче читать комменты
'0.1. Число, которое будет вводить пользователь (возможно с запятой)
Dim x As Single
 
'0.2. Вспомогательное число, которое будем раскидывать по цифрам порядков.
'ЦЕЛОЕ - чтобы отбросить лишние знаки после запятой в числе x
Dim y As Integer
 
'0.3. Переменнные для цифр порядков. они не могут быть не целыми
Dim a As Integer, b As Integer, c As Integer, d As Integer
 
'0.4. Вспомогательное число-перевёртыш, в которое соберем цифры в обратном порядке
'это y с обратным порядком цифр. следовательно оно получится целым
Dim z As Integer
 
'0.5. Число, которое вернём пользователю (поставив запятую в нужное место z)
Dim q As Single
 
'==============================================================================
'1. Даем пользователю форму ввода числа
x = InputBox("Введите неотрицательное число меньше 10`000, x=")
 
'2. Проверяем введенное число на соответствие условиям,
'при ошибке просим пользователя скорректировать ввод
'ДОПИСАТЬ ПРОВЕРКУ НА ВВОД ТЕКСТА, ТОЧКИ ВМЕСТО ЗАПЯТОЙ И Т.П.
'убрать ошибку type mismatch (несоответствие типов)
Do While x < 0 Or x >= 10000
    x = InputBox("число не удовлетворяет условию, вводи заново")
Loop
'вспомогательный бокс для проверки выполнения предыдущего блока
'MsgBox x
 
'==============================================================================
'3. Преобразуем введённое число в целое ABCD, из которого и будем вытаскивать цифры
If x < 1000 And x >= 100 Then
    y = x * 100 \ 10
    Else
        If x < 100 And x >= 10 Then
            y = x * 1000 \ 10
            Else
                If x < 10 And x >= 1 Then
                    y = x * 10000 \ 10
                    Else
                        If x < 1 Then
                            y = x * 100000 \ 10
                            Else: y = x * 10 \ 10
                       
                        End If
                End If
        End If
End If
 
'вспомогательный бокс для проверки выполнения предыдущего блока
'MsgBox y
 
'==============================================================================
'4. Разбиваем число на цифры
a = y \ 1000
b = (y - a * 1000) \ 100
c = (y - (a * 1000 + b * 100)) \ 10
d = (y - (a * 1000 + b * 100 + c * 10))
 
'==============================================================================
'5. Собираем вспомогательное число-перевёртыш с обратным порядком цифр
z = d * 1000 + c * 100 + b * 10 + a
 
'==============================================================================
'6. Вставляем запятую в нужное место, "зеркально" заданному числу
If x < 1000 And x >= 100 Then
    q = z / 1000
    Else
        If x < 100 And x >= 10 Then
            q = z / 100
            Else
                If x < 10 And x >= 1 Then
                    q = z / 10
                    Else
                        If x < 1 Then
                            q = z
                            Else: q = z / 10000
                       
                        End If
                End If
        End If
End If
 
'==============================================================================
'7. Отдаём результат пользователю
'7.1. В мсгбокс
MsgBox ("Введённое число = " & x & vbNewLine & "Перевертыш = " & q)
 
'В ячейку
'cells(2,2)=q
 
End Sub
 

Sub perevertish02()
Dim x As Double, q As Double
 
x = InputBox("x=")
q = CDbl(StrReverse(CStr(x)))
 
MsgBox ("Введённое число = " & x & vbNewLine & "Перевертыш = " & q)
 
End Sub
 

Sub perevertish02()
 
Dim x As Double, q As Double
 
x = Application.InputBox("x=", Type:=1)
q = CDbl(StrReverse(CStr(x)))
 
MsgBox ("Введённое число = " & x & vbNewLine & "Перевертыш = " & q)
 
End Sub
 

Sub perevertish03()
 
Dim x As Double
 
x = Application.InputBox("x=", Type:=1)
 
MsgBox ("Введённое число = " & x & vbNewLine & "Перевертыш = " & CDbl(StrReverse(CStr(x))))
 
End Sub