vba

В ячейку A1 пиши, что ты пидор
Запускай макрос, пидор
В ячейке A2 получишь результат классовой борьбы!!!

Public Function rand()
a = Round(Rnd * 200, 0)
b = WorksheetFunction.Min(Round(Rnd * 200, 0), 200 - a)
c = WorksheetFunction.Min(Round(Rnd * 200, 0), 200 - a - b)
rand = Hex(a) & Hex(b) & Hex(c)
End Function
Sub zvet()
first = ""
Cells(2, 1).Value = "‮"
For i = Len(Cells(1, 1).Value) To 1 Step -1
Cells(2, 1).Value = Cells(2, 1).Value & first & rand & last & Mid(Cells(1, 1).Value, i, 1)
Next i
End Sub