Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Генерация случайных целых чисел из заданного диапазона значений, чтобы получить заданную сумму
 
Не очень красивое решение, но рабочее
Код
Sub gen()
Dim arr(1 To 20) As Integer, i As Integer, ir As Integer, ich As Integer
Randomize
Do
    For i = 1 To 19
    arr(i) = Fix(90 * Rnd + 10)
    ir = ir + arr(i)
    Next
    ich = 1000 - ir
    If ich < 10 Or ich > 100 Then
        Erase arr
        ich = 0
        ir = 0
    Else
        arr(20) = ich
        Exit Do
    End If
    
Loop
For i = 1 To 20
    Cells(i, 8).Value = arr(i)
Next
End Sub
Изменено: Fidgy - 8 июл 2019 10:27:49
Построение интерактивной диаграммы учитывая только рабочии дни, Можно ли построить интерактивную диаграмму только по рабочим дням
 
Добавить столбец с формулой =ДЕНЬНЕД
Указать дату в формуле и отфильтровать по этому столбцу
Но я у вас только один выходной день нашёл - 11.05.2019
Взаимосвязанная работа двух комбобоксов
 
Как-то так:
Взаимосвязанная работа двух комбобоксов
 
Не совсем понятно что в итоге вы ожидаете
Но как вариант, можно сделать булевою глобальную переменную, для каждого комбобокса
И если изменили один комбобокс, то второй раз его не изменять - т.е. в начале события Cahnge - проверять значение переменной. Если оно = True, то Exit Sub, иначе выполнить алгоритм и в конце в проверяемую переменную записать True
Но тут нужно ещё продумать в какой момент сбрасывать значение этой переменной на False
Рост области числа, с ограничением препятствиями
 
Ну да,
Как я писал:
Цитата
Это пример написанный за 15 минут, а не решение
Рост области числа, с ограничением препятствиями
 
Шаг 1
NN N
NP N
N N N
Шаг 2
N N N N N
N N N N N
N N PN N
N N N N N
N N N N N
И т.д.

Не знаю как это ещё описать
Рост области числа, с ограничением препятствиями
 
Цитата
КошкаСофи написал:
что вы имеете ввиду - во все стороны ?
как волны от капли воды
Рост области числа, с ограничением препятствиями
 
Распространяется просто во все стороны с одним шагом
Это пример написанный за 15 минут, а не решение
Рост области числа, с ограничением препятствиями
 
в моем никак, я просто показал как можно работать в ограниченной области и как распространять область по четырём направлениям в трех циклах (второй цикл просто ищет край области)
Рост области числа, с ограничением препятствиями
 
Цитата
RAN написал: А ваша фамилия не Остер?
Не знаю кто это
И это моё мнение, можете переубедить меня
Я считаю что "On Error GoTo" можно использовать только в особых случаях, когда мы именно ожидаем ошибку. Или симулируем Try Catch
Во всех остальных случаях лучше избегать этого

Цитата
КошкаСофи написал:
А как это в макросе реализовать ?
Это вам нужно самостоятельно разобраться. Если какой-то конкретный момент не получается или не ясен, то подскажем
Можете посмотреть пример во вложении - там просто расширяется область, от точки "P"
Рост области числа, с ограничением препятствиями
 
Переработать концепцию вашей программы. У вас область расширяется бесконечно, во все стороны. Но область не может быть с координатами меньше 1 (не может быть ячейки(0, 0) )

Я бы рекомендовал вам сначала избавиться от On Error GoTo End_ - это очень порочная практика и она мешает вам определить причину ошибки.
Затем определить рабочую область где у вас будет обрабатываться ячейки, добавив проверку, чтобы не выходить за пределы этой области.
Далее, при расширении области чисел, "область проверки" расширять не квадратом, а постепенно во все 4 стороны (опять-таки не заходя за рабочую область)

И ещё рекомендую попытаться 4 последовательных цикла, впихнуть в три цикла вложенных в друга-друга (первый определяет стороны - соответственно нижнюю и верхнею границу для последующих циклов, второй ось X, третий ось Y)
Рост области числа, с ограничением препятствиями
 
Ну, строку №29 оно всё-таки пройдет
А 31 нет :) Там проблемы расширения области
Рост области числа, с ограничением препятствиями
 
В функции которую я вам сделал "FCh_Area" установите проверку, что бы не проверялись ячейки cX и cY меньше или равные нулю
четырехменая столбчатая диаграмма, возможно ли это ?
 
Цитата
Максим Зеленский написал:
можно, но главный вопрос - зачем??? ужасная диаграмма
Да, давайте не будем помогать, а объясним автору темы, что ему это не надо


S. Anton, всё есть на вкладке "вставка"
Поиск пути на двумерном пространстве, Алгоритм
 
А куда нужно?
Поиск пути на двумерном пространстве, Алгоритм
 
Всем привет!

Написал простенький скрипт, который ищет кратчайший путь от точки X до точки Y
Может кому-то будет интересно

Файл Excel во вложении
На выделенном диапазоне, в любом месте можем разместить точку X и точку Y. А так-же преграды, в виде точек "B" (цвет значения не имеет, ячейки потом закрасятся)
Так-же есть две кнопки
1) Find a patch - найти путь
2) Clear - очищает диапазон (кроме значений X, Y, B)

UPD: исправил одну ошибку и добавил кнопку "Step by step" - показывает поиск пути шаг за шагом для наглядной демонстрации (кроме финального построения пути)
Изменено: Fidgy - 24 июн 2019 17:54:43
Морской бой, Игра Морской Бой
 
Спасибо, здесь та-же ошибка, забыл добавить проверку координат на выход за границы
Проверил, все участки, вроде больше не должно быть такого  
Морской бой, Игра Морской Бой
 
Хм :( не смог воспроизвести

Понял в чем дело, исправил.
Спасибо!
Изменено: Fidgy - 19 июн 2019 16:46:12
Морской бой, Игра Морской Бой
 
Скрытый текст
Морской бой, Игра Морской Бой
 
Всем привет!

Я наконец-то доделал "морской бой" на VBA, через UserForm
И хочу поделиться с вами, своим творением
Реализовал не всё что хотел, на пример разные правила игры, но довел классическую версию до играбельного состояния

Делал примерно месяц, в обед и после работы
Критика приветствуется :)
Страницы: 1
Наверх