В ячейку 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
Запускай макрос, пидор
В ячейке 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
Подробнее
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 = "<font face=""Avqest"" color=""#" last = """ size=,,"3"">" Cells (2, 1) .Value = "S#x202E;<b>" For i = Len(Cells(1, 1).Value) To 1 Step -1 Cells (2, 1).Value = Cells(2, 1).Value & first & rand & last & Mid(Cells(l, 1).Value, i, 1) Next i End Sub
anon,vba,цветные,Excel
Еще на тему
