[{{mminutes}}:{{sseconds}}] X
Пользователь приглашает вас присоединиться к открытой игре игре с друзьями .
Ctrl предыдущая следующая Ctrl Страницы
1 2

Форум «События» / [22 фев.] Вечерние БОЛЬШИЕ гонки №8

AvtandiLine Сообщение #21 22 февраля 2010 в 21:51
Кибергонщик
61
olimo писал(а):
Просто не заметили, наверное... Там желтый значок соревнования и написано х5. Я еле-еле успела после ВБГ.

Могла я не_успеть зайти, - но увидеть-то в списке игр должна была?!.. Все глаза проглядела. :) И потом были х2, тоже не_увидела в списке игр.

(А рейтинг зачем нарабатывать - ну машинку хочу )))
Andre_Macareno Сообщение #22 22 февраля 2010 в 22:40
Экстракибер
26
Что сказать… я доволен! Можно сказать, что я заработал второй скоростной кубок (первый — когда ещё было только большое колесо за первое место) .
Андруша Сообщение #23 23 февраля 2010 в 06:12
Кибергонщик
68
Уж больно стабильно покатался сегодня) лишь маленькие шаги влево и вправо).. Одно радует, что среди гонщиков оказался случайно первым в зачете по скорости, ну а по ошибкам... уууу!)
Свистите, когда будут намечаться следующие вечерние БГ, а то на обычные дневные попадать не получается)
Переборыч Сообщение #24 23 февраля 2010 в 06:21
Клавомеханик
55
ОК, оформил тебе подписку на извещения о предстоящих ВБГ.
Гавик Сообщение #25 23 февраля 2010 в 07:02
Гонщик
36
Приятный сбалансированный подарок с утра. Спасибо, не ожидал. Думал, что буду не в призёрах, так как тексты действительно были максимально сложными, особенно первые пять. В таблице даже рекордов практически ни у кого нет.
170000 Сообщение #26 23 февраля 2010 в 10:09
Экстракибер
51
восьмой и шестнадцатый...
Кратно, кратно идет марафончег :)
BI-FI-Car Сообщение #27 23 февраля 2010 в 13:54
Маньяк
40
Судя по молниеносности появления таблиц, тебе еще что-то удалось автоматизировать? Поделишься с ближними? ;)
170000 Сообщение #28 23 февраля 2010 в 13:57
Экстракибер
51
Если честно, я не совсем понял, что вы имели в виду.. :)
По скорости - 8-й, по ошибкам - 16-й. Самая норма :)
Переборыч Сообщение #29 23 февраля 2010 в 14:12
Клавомеханик
55
Я постоянно что-то доавтоматизирую. И 70 минут - это не предел.

Вот полезная постобработочка:
Sub Фильтровка(n, shN)
'n - число строк таблицы
'shN - номер столбца с указанием Ника
x = 5 'не менее определённого кол-ва заездов

Range("A1:K1").AutoFilter 'вкл. АвтоФильтр
ActiveSheet.AutoFilter.Range.Sort [C1], 1, Header:=0
'Оставляем только тех, кто осилил более x заездов
Nicks = Application.Transpose(Range(Cells(2, shN), Cells(n, shN)))
kol = 1 'Количество пройденных заездов
sDel = 0 'Кол-во удалённых заездов

Application.ScreenUpdating = 0
For kg = 2 To UBound(Nicks)
If Nicks(kg) = Nicks(kg - 1) Then
kol = kol + 1
Else
If kol < x Then 'проверка на кол-во заездов
Rows(kg - kol - sDel + 1 & ":" & kg - sDel).Delete
sDel = sDel + kol
End If
kol = 1
End If
Next
'Проверяем и последнего участника:
If kol < x Then Rows(kg - kol - sDel + 1 & ":" & kg - sDel).Delete
n = kg - sDel - IIf(kol < x, kol, 0) 'пересчитываем кол-во строк
Application.ScreenUpdating = 1
End Sub

Sub ЗапускФильтровки()
n = [A65536].End(xlUp).Row 'Число строк
Фильтровка n, 3
MsgBox "Готово!"
End Sub
BI-FI-Car Сообщение #30 23 февраля 2010 в 14:28
Маньяк
40
Для фильтровки давно макрос записала, а потом удивлялась, куда последние заезды деваются :))) Число строк-то шло фиксированное... Шо с чайника возьмешь)

Спасибо, буду пробовать!
SamArKin Сообщение #31 23 февраля 2010 в 14:47
Гонщик
71
Переборыч скоро так систему подсчёта автоматизирует, что мы после каждого заезда в ВБГ уже будем видеть свой общий результат :-)))
Последний раз отредактировано 23 февраля 2010 в 14:47 пользователем SamArKin

Чтобы писать в форуме, нужно зарегистрироваться.

Ctrl предыдущая следующая Ctrl Страницы
1 2

Связаться
Выделить
Выделите фрагменты страницы, относящиеся к вашему сообщению
Скрыть сведения
Скрыть всю личную информацию
Отмена