Генерация целых чисел в ячейке

@xxnitrosxx · Регистрация: 14.05.2015

Author24 — интернет-сервис помощи студентам

Приветствую, уважаемые программисты! Помогите, пожалуйста написать код для макроса в MSE.

Visual Basic

Sub GetRandom()
    Randomize
    ThisWorkbook.Worksheets("Лист1").Range("A1").Value = Rnd * 50 - 20
End Sub

Пишу такой код, а рандом выдает и дробные, и отрицательные числа, а мне надо, чтобы выдавались значения типа Byte, например. Кто поможет помочь и написать нормальный код?

@Казанский · 11.11.2016, 20:56

xxnitrosxx, можно использовать функцию листа СЛУЧМЕЖДУ

Visual Basic

1
2
3

ThisWorkbook.Worksheets("Лист1").Range("A1").Value = worksheetfunction.randbetween(0,255)
'или
ThisWorkbook.Worksheets("Лист1").Range("A1").Value = int(rnd*256)

@xxnitrosxx · 11.11.2016, 22:21 **[ТС]**

круто, большое спасибо!

Добавлено через 1 час 19 минут
приветствую. а можно ли так сделать, чтобы рандомная функция вставляла числа до тех пор, пока все ячейки из какогото диапазона ячеек не станут например красного цвета?

@Казанский · 11.11.2016, 23:04

xxnitrosxx, эмм... а почему ячейки становятся красного цвета от вставки числа? Им стыдно, что ли?

@xxnitrosxx · 12.11.2016, 10:16 **[ТС]**

нет. просто я подбираю определенные числа. эти числа используются в формулах. в формулах получаются значения и сравниваются со стандартными. далее определяется процент ошибки полученного и стандартного чисел. далее я выделяю все проценты ошибок и накладываю на них с помощью условного форматирования правило, чтобы выделялись красным цветом те проценты, которые в определенном диапазоне. поэтому хотелось бы создать цикл подбора чисел до тех пор, пока все проценты не станут красного цвета. можете помочь?

@Казанский · 12.11.2016, 10:56

xxnitrosxx, может лучше Поиск решения использовать? (F1 - поиск решения).
Или более простой инструмент Данные - Анализ что-если - Подбор параметра.

Да, и без вашего файла вряд ли чем-то еще можно помочь.

@xxnitrosxx · 12.11.2016, 11:15 **[ТС]**

файл в архиве, потому что сайт не захотел принимать книгу с поддержкой макросов. я думаю, что проще будет написать второй макрос с помощью While, который будет жать на кнопку АА до тех пор, пока все числа из диапазона J7-J34 не станут оранжевого цвета. Можете помочь?

@Казанский · 14.11.2016, 02:26

Сообщение от xxnitrosxx

я думаю, что проще будет написать второй макрос с помощью While, который будет жать на кнопку АА до тех пор, пока все числа из диапазона J7-J34 не станут оранжевого цвета

Боюсь, долго жать придется.
Вот макрос, который вставляет случайные числа в указанные ячейки 10000 раз, причем определяет, сколько результирующих ячеек попало в нужный диапазон - формула в яч. L7, запоминает лучшую комбинацию случ. чисел, и в конце вставляет ее.
У меня получалось максимум 23 из 28. Попробуйте менять диапазон случ. чисел.

Visual Basic

Sub GetRandom()
Dim chgRange As Range, tstRange As Range, c As Range
Dim bestNum() As Long, num() As Long, i&, j&, bestCrit&
  Set chgRange = Range("B10,B15,B22,B25,B32,B20,B7")      'изменяемые ячейки
  Set tstRange = Range("L7")                              'критерий (чем больше, тем лучше)
  ReDim num(1 To chgRange.Count)
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Randomize
  For i = 1 To 10000                                      'число повторов
    j = 0
    For Each c In chgRange
      j = j + 1
      num(j) = Int(21 + Rnd * 30)                         'диапазон случайных - от 21 до 50
      c = num(j)
    Next
    ActiveSheet.Calculate
    If tstRange > bestCrit Then
      bestNum = num
      bestCrit = tstRange
      If bestCrit = 28 Then Exit For
    End If
  Next
  j = 0
  For Each c In chgRange
    j = j + 1
    c = bestNum(j)
  Next
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub

@xxnitrosxx · 14.11.2016, 11:24 **[ТС]**

Казанский, вау, огромнейшее спасибо вам. вы просто волшебник!

Генерация целых чисел в ячейке

Решение

Решение

@xxnitrosxx 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 5
	11.11.2016, 22:21 [ТС]	3
	круто, большое спасибо! Добавлено через 1 час 19 минут приветствую. а можно ли так сделать, чтобы рандомная функция вставляла числа до тех пор, пока все ячейки из какогото диапазона ячеек не станут например красного цвета? 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	11.11.2016, 23:04	4
	xxnitrosxx, эмм... а почему ячейки становятся красного цвета от вставки числа? Им стыдно, что ли? 0

@xxnitrosxx 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 5
	12.11.2016, 10:16 [ТС]	5
	нет. просто я подбираю определенные числа. эти числа используются в формулах. в формулах получаются значения и сравниваются со стандартными. далее определяется процент ошибки полученного и стандартного чисел. далее я выделяю все проценты ошибок и накладываю на них с помощью условного форматирования правило, чтобы выделялись красным цветом те проценты, которые в определенном диапазоне. поэтому хотелось бы создать цикл подбора чисел до тех пор, пока все проценты не станут красного цвета. можете помочь? 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	12.11.2016, 10:56	6
	xxnitrosxx, может лучше Поиск решения использовать? (F1 - поиск решения). Или более простой инструмент Данные - Анализ что-если - Подбор параметра. Да, и без вашего файла вряд ли чем-то еще можно помочь. 0

@xxnitrosxx 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 5
	14.11.2016, 11:24 [ТС]	9
	Казанский, вау, огромнейшее спасибо вам. вы просто волшебник! 0