помогите с vba excel
помогите создать программу, которая из заданных 10 чисел выдавала бы все варианты по 6 чисел.
например:
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
1 2 3 4 5 10
2 3 4 5 6 7
..........ИТД
спасибо
например:
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
1 2 3 4 5 10
2 3 4 5 6 7
..........ИТД
спасибо
Попробуй вот так
Private Sub CommandButton1_Click()
Dim a, b, c, d, e, f As Integer
a = Int(10 * Rnd + 1)
b = Int(10 * Rnd + 1)
c = Int(10 * Rnd + 1)
d = Int(10 * Rnd + 1)
e = Int(10 * Rnd + 1)
f = Int(10 * Rnd + 1)
TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c
TextBox4.Text = d
TextBox5.Text = e
TextBox6.Text = f
End Sub
только это сделано на форме и макрос выводит числа в Textbox на форме после нажатия кнопки, запись чисел не куда не произходит.
Private Sub CommandButton1_Click()
Dim a, b, c, d, e, f As Integer
a = Int(10 * Rnd + 1)
b = Int(10 * Rnd + 1)
c = Int(10 * Rnd + 1)
d = Int(10 * Rnd + 1)
e = Int(10 * Rnd + 1)
f = Int(10 * Rnd + 1)
TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c
TextBox4.Text = d
TextBox5.Text = e
TextBox6.Text = f
End Sub
только это сделано на форме и макрос выводит числа в Textbox на форме после нажатия кнопки, запись чисел не куда не произходит.