Поиск
Автор: Никита Митрофанов. Добрый вечер, формунчане! Такую закадычную задачу мне дали, никак не могу её решить.
Дано: у нас есть результат и несколько персонажей, который к этому результату старались приблизиться (допустим, подкидывание кубика, а персонажи собирались угадать, что же там выпадет). Побеждали те, кто угадал или же те, кто был максимально близок с значению, при том как в положительную, так и в отрицательную сторону (например, если выпало 3, кот сказал что будет 5, а жук что будет 2, ...
Изменен: 01.08.2024
Читать сообщение на форуме или сайте.Автор: next777pro. Нужно цифры, которые есть в столбце и считаются путем сжатия исправить в функции следующее
1) соединять в тире только если три и более, в количестве двух и одного не соединять через тире
пример 1, 2, 4-7, 11, 12, 22-45
2) убрать в конце лишние пробелы и запятые
Function Sgatie(диапазон As Range) As String
Dim i&, j&, a()
a = диапазон.Value
j = 1: Sgatie = a(1, 1)
For i = 2 To UBound(a, 1)
If a(i, 1) = a(i - 1, 1) + 1 Then
j = j + 1
ElseIf j = 1 Then
...
Изменен: 27.05.2016
Читать сообщение на форуме или сайте.