Доброго времени суток! Хотелось бы узнать есть ли такой функционал, например числа от 1 до 10 повторяются случайно НЕ ПОВТОРЯЯСЬ!! и не внеся в ячейки информации думаю очень полезный функционал, польза будет в этом не только для меня
Доброго времени суток! Хотелось бы узнать есть ли такой функционал, например числа от 1 до 10 повторяются случайно НЕ ПОВТОРЯЯСЬ!! и не внеся в ячейки информации думаю очень полезный функционал, польза будет в этом не только для меняAsretyq
Сообщение отредактировал Asretyq - Четверг, 24.10.2019, 19:39
Sub www2() Dim i&, j&, arr&(1 To 30, 1 To 1) Randomize For i = 1 To 30 j = Int(Rnd * i + 1) arr(i, 1) = arr(j, 1) arr(j, 1) = i Next i Cells(1, 1).Resize(30) = arr End Sub
[/vba]
Нашел в загашнике-[vba]
Код
Sub www2() Dim i&, j&, arr&(1 To 30, 1 To 1) Randomize For i = 1 To 30 j = Int(Rnd * i + 1) arr(i, 1) = arr(j, 1) arr(j, 1) = i Next i Cells(1, 1).Resize(30) = arr End Sub
все таки памяти мне кажется нету встроенной у системы vba я много примеров находил на просторах интернета суть в чем - допустим в ячейке А1 вносятся каждый раз новые значения с учетом запоминания предыдущих значений ну неважно либо отображение в [vba]
Код
Debug.Print
[/vba] например я сталкивался с такой трудностью, чтобы сохранить в памяти нужно обязательно вносить в ячейку а есть ли память "скрытая", которая бы хранила информацию
все таки памяти мне кажется нету встроенной у системы vba я много примеров находил на просторах интернета суть в чем - допустим в ячейке А1 вносятся каждый раз новые значения с учетом запоминания предыдущих значений ну неважно либо отображение в [vba]
Код
Debug.Print
[/vba] например я сталкивался с такой трудностью, чтобы сохранить в памяти нужно обязательно вносить в ячейку а есть ли память "скрытая", которая бы хранила информациюAsretyq
Asretyq, вы о чём? VBA, как все ЯП, пользуется общей ОП (оперативной памятью). Массив arr() заполнили - и выводите его куда хотите. Урезать приведенный пример до 10 и одной размерности не сумеете?
Asretyq, вы о чём? VBA, как все ЯП, пользуется общей ОП (оперативной памятью). Массив arr() заполнили - и выводите его куда хотите. Урезать приведенный пример до 10 и одной размерности не сумеете?Апострофф
Sub Кнопа_тык_10() Dim i&, j& Static arr&(1 To 10), n& If arr(1) = 0 Then Randomize For i = 1 To 10 j = Int(Rnd * i + 1) arr(i) = arr(j) arr(j) = i Next i End If n = 1 + n Mod 10 [A1] = arr(n) End Sub
Sub Кнопа_тык_10() Dim i&, j& Static arr&(1 To 10), n& If arr(1) = 0 Then Randomize For i = 1 To 10 j = Int(Rnd * i + 1) arr(i) = arr(j) arr(j) = i Next i End If n = 1 + n Mod 10 [A1] = arr(n) End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
