Метка Archives: макросы

Лягушки тест IQ

Пока поперло у меня  программирование в Excel решил сделать ту самую головоломку, с которой собственно все это и началось, как я уже говорил в предыдущей записи, то началось все с лягушек в экселе. Там правда все было сделано хитро — эксель файл содержал в себе эту флешку с головоломкой, и по сути он и не требовался, потому что нужна именно сама флешка (походу так внедрялся какой-то вирус через заражение офиса). Вот тут находится эта головоломка, сделанная на флеше. Но я решил сделать сам и пойти по проторенной: опять те же квадратики но вместо миссионеров лягуши. Тут самое интересное было попробовать новые фишки, как например таймер в Excel на vba или запуск макроса по одиночному клику на ячейке, добавив в макросы листа такую конструкцию

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 6 Then Макрос5
End Sub

Смысла расписывать все конструкции нет, но для тех кому интересно (да, все это расписывается специально чтобы людям было проще найти нужные макросы через интеренет), то тут есть макрос таймера в Excel, отсчет секунд макрос в Excel. Макрос поиска свободных рядом ячеек, макрос вывод сообщений MsgBox в несколько строк, вывод в сообщении Excel MsgBox значений заданных ячеек,  прерывание условий Exit sub, и даже макрос выход из Excel без сохранения.

frogs

PS все-таки конструкцию таймера покажу тут, мне кажется это интересно))

Первоначально он запускается через кнопку, а потом каждую секунду как напоминалка вызывается этот же макрос, то есть конструкция применима для вызова макросов в Excel по времени

Sub таймер()
If Range("F6").Value = "2" Then Exit Sub
Range("A10").Value = Range("A10").Value + 1
Application.OnTime Now + TimeValue("00:00:01"), "таймер"
End Sub

PPS вот сам файл: IQ тест Лягушки.xls