Цитата |
---|
Grr написал: Подправил расчет очков, согласно актуализированного алгоритма. |
Здравствуй! Не получается изменить кол-во участников в справочнике до 400, хотя нашел где, у нас уже больше 269. Они не каждый тур принимают участие, но список из 269 участников уже составлен. А в коде стоит ограничение до 100.
Private Sub UserForm_Initialize()
cFIO.List = Sheets("Справочники").Range("D3:D100").Value2
cRound.List = Sheets("Справочники").Range("F3:F52").Value2
cTournament.List = Sheets("Справочники").Range("B3:B100").Value2 (Не дает возможность 100 изменить на 400, закрывает excel ((
End Sub
Как получить право доступа к изменению в программе?
Не хотелось бы Вас по таким пустякам дергать.
И не могу вставить свою формулу в Module:
(Function Разность(ByVal txt$)
Разность = Evaluate(Replace(txt, ",", "."))
End Function
В остальном все очень нравится. Спасибо