1. Сформировать на листе Excel столбец, состоящий из 30 элементов, случайных чисел ...

[rnboy]

День добрый.Прошу помощи в решении задания по офисному програмированию.


1. Сформировать на листе Excel столбец, состоящий из 30 элементов, случайных чисел X, распределенных равномерно в диапазоне:
[1, 5][7, 10];


2. Провести фильтрацию полученных чисел Х. Виды фильтрации:

х  [min, max/4][max/2, max];


3. Заполнить квадратную матрицу размерности k (вводится с клавиатуры) числами, полученными после фильтра и упорядочить ее по заданному закону:


Расположить по возрастанию по диагоналям, параллельным главной.
7 11 14 16
4 8 12 15
2 5 9 13
1 3 6 10


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

[vikttur]

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

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

Можно даже не две, а три

=ЕСЛИ(СЛУЧМЕЖДУ(0;1);СЛУЧМЕЖДУ(1;5);СЛУЧМЕЖДУ(7;10))

[MCH]

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

Можно даже не две, а три

=ЕСЛИ(СЛУЧМЕЖДУ(0;1);СЛУЧМЕЖДУ(1;5);СЛУЧМЕЖДУ(7;10))

распределение получается не равномерным, лучше так:

=ЕСЛИ(СЛЧИС()<5/9;СЛУЧМЕЖДУ(1;5);СЛУЧМЕЖДУ(7;10))

[rnboy]

спасибо,еще такой вопрос,во втором задании не пропечаталось условие,на самом деле оно такое
х не принадлежит [min, max/4]n[max/2, max]

как я понимаю [min, max/4]n[max/2, max] задает пустое множество,тогда получается если икс не принадлежит условию,то это любые числа,правильно?смысл тогда в фильтрации....
еще не могу понять как сделать фильтрацию в отдельном столбике
и совсем не понимаю что хотят от меня в третьем задании

[rnboy]

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

Опять такой же вопрос:Int((d2 * Rnd) + d1) даст числа из диапазона от d1 до d2,как сделать два диапазона?

[MCH]

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

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

Опять такой же вопрос:Int((d2 * Rnd) + d1) даст числа из диапазона от d1 до d2,как сделать два диапазона?

Sub rnd30()
    Dim i
    For i = 1 To 30
        Cells(i, 1) = IIf(Rnd() < 5 / 9, Int(Rnd() * 5 + 1), Int(Rnd() * 4 + 7))
    Next i
End Sub

[rnboy]

спасибо.возможно будут еще вопросы,очень благодарен за помощь)

[MCH]

еще вариант с одним Rnd

Sub rnd30_2()
    Dim i, r
    For i = 1 To 30
        r = Int(Rnd() * 9) + 1
        Cells(i, 1) = IIf(r > 5, r + 1, r)
    Next i
End Sub

[rnboy]

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

Sub Test()
Dim k As Integer, X(30) As Integer, i As Integer, j As Integer, r As Integer, a As Integer, b As Integer, c As Integer, d As Integer, m As Integer, Y(30) As Integer, matr() As Integer, n As Integer
 Cells.Clear
Cells(1, 1).Font.Bold = 1
Cells(1, 1) = "Случайные числа"
i = 1

'1-е задание - столбец с случайными числами
' Объявляем промежутки
a = 1
b = 5
c = 7
d = 10

For k = 1 To 30
' Случайное целое число в диапазоне от а до b и c до d
' Если нужны любые числа, а не только целые, то убрать функцию Int

Do
Randomize
r = Int(Rnd() * (10 - 2 + 1)) + 2
Loop While r = 6

X(k) = r
' Записываем в столбец А2 - А31
Cells(i + 1, 1) = X(k)
i = i + 1
Next k


' 2-е задание - сортировка
' Ищем максимум
m = X(1)
For k = 2 To 30
 If X(k) > m Then
  m = X(k)
 End If
Next k
Cells(1, 2).Font.Bold = 1
Cells(1, 2) = "Максимум"
Cells(2, 2) = m
' Ищем минимум
minim = X(1)
For k = 2 To 30
 If X(k) < minim Then
  minim = X(k)
 End If
Next k
Cells(3, 2).Font.Bold = 1
Cells(3, 2) = "Минимум"
Cells(4, 2) = minim
' Фильтрация
j = 1
For k = 1 To 30
  Y(j) = X(k)
  j = j + 1
 Next k

i = 1
Cells(1, 3).Font.Bold = 1
Cells(1, 3) = "Отсортированный массив"
For k = 1 To 30
 Cells(i + 1, 3) = Y(k)
 i = i + 1
Next k

кракозябрами вышел русский шрифт,не знаю почему,думаю это не помешает делу....

[VictorM]

кракозябрами вышел русский шрифт,не знаю почему,

При копировании кода из редактора VBA выставьте русскую раскладку клавиатуры