|
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
|
Гиперион 
53 |
восьмой и шестнадцатый...
Кратно, кратно идет марафончег :)
|
|
BI-FI-Car
|
Сообщение #27
23 февраля 2010 в 13:54
|
Маньяк 
40 |
Судя по молниеносности появления таблиц, тебе еще что-то удалось автоматизировать? Поделишься с ближними? ;)
|
|
170000
|
Сообщение #28
23 февраля 2010 в 13:57
|
Гиперион
53 |
Если честно, я не совсем понял, что вы имели в виду.. :)
По скорости - 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
|
Гонщик 
89 |
Переборыч скоро так систему подсчёта автоматизирует, что мы после каждого заезда в ВБГ уже будем видеть свой общий результат :-))) Последний раз отредактировано 23 февраля 2010 в 14:47 пользователем SamArKin
|
