Создать макрос, который пишет парное или непарное число

@Vaprelko · Регистрация: 14.10.2016

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

Надо создать макрос, который в один столбец генерирует случайные числа от 1 до 20. А в соседнем столбце писалось бы, чётное это число или нечётное. Пользователь задаёт количество рядов для чисел. Первое число появляется в названной ячейке.

1 - нечётное
2 - чётное
5- нечётное
10 - чётное

Что-то типо такого

Спасибо!

@Burk · 14.10.2016, 07:03

Vaprelko, так как работает датчик случайных чисел, то значения могут и повторяться

Visual Basic

Sub Rni()
Dim I As Integer, J As Integer, N As Integer
Columns("A:B").ClearContents
N = InputBox("Введи количество чисел")
For J = 1 To N
  I = Int(Rnd * 20 + 1)
  Cells(J, 1) = I
  Cells(J, 2) = IIf(I Mod 2 = 1, "нечётное", "чётное")
Next
End Sub

@Vaprelko · 14.10.2016, 12:41 **[ТС]**

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

Sub Rni()
Dim I As Integer, J As Integer, N As Integer
Columns("A:B").ClearContents
N = InputBox("Введи количество чисел")
For J = 1 To N
* I = Int(Rnd * 20 + 1)
* Cells(J, 1) = I
* Cells(J, 2) = IIf(I Mod 2 = 1, "нечётное", "чётное")
Next
End Sub

Спасибо. А как сделать, чтобы вместо того, чтобы вводить количество чисел по запросу, программа брала бы это количество из клетки? Например, если поставить в ячейку B1 число 10. Ну или любое другое. Чтобы макрос считывал бы это число.

@Vlad999 · 14.10.2016, 14:02

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

программа брала бы это количество из клетки

замените

Visual Basic

1	N = InputBox("Введи количество чисел")

на

Visual Basic

1	N = Range("B1")' N=[B1]

Добавлено через 1 минуту
или вместо этого

Visual Basic

N = InputBox("Введи количество чисел")
For J = 1 To N
 
пишем
 
For i=1 To [B1]

@Vaprelko · 14.10.2016, 16:06 **[ТС]**

Visual Basic

Sub Rni()
Dim I As Integer, J As Integer, N As Integer
Columns("A:B").ClearContents
N = Range("ridu")
For J = 1 To N
  I = Int(Rnd * 20 + 1)
  Cells(J, 1) = I
  Cells(J, 2) = IIf(I Mod 2 = 1, "чётное", "нечётное")
Next
End Sub

Сделал так. Работает. Большое спасибо, но есть ещё один вопрос. Как всё это дело сдвинуть с ячейки A1 и B1 например на A4 - если дать ей название algus1. Т.е. чтобы результат начинало выдавать с ячеек A4 И B4.

Спасибо!

@Vaprelko · 14.10.2016, 16:24 **[ТС]**

На картинке перепутаны чётное и нечётное, это я исправил.

@KoGG · 14.10.2016, 16:28

Visual Basic

1 2	[algus1].Cells(J, 1) = I [algus1].Cells(J, 2) = IIf(I Mod 2 = 0, "чётное", "нечётное")

@Vaprelko · 14.10.2016, 16:44 **[ТС]**

Всё, большое всем спасибо! Получилось.

Создать макрос, который пишет парное или непарное число

Решение

Решение

Решение

@Vaprelko 0 / 0 / 1 Регистрация: 14.10.2016 Сообщений: 18
		1
	Создать макрос, который пишет парное или непарное число 14.10.2016, 03:16. Показов 1682. Ответов 7 Метки vba, макросы (Все метки) Надо создать макрос, который в один столбец генерирует случайные числа от 1 до 20. А в соседнем столбце писалось бы, чётное это число или нечётное. Пользователь задаёт количество рядов для чисел. Первое число появляется в названной ячейке. 1 - нечётное 2 - чётное 5- нечётное 10 - чётное Что-то типо такого Спасибо! 0

@Vaprelko 0 / 0 / 1 Регистрация: 14.10.2016 Сообщений: 18
	14.10.2016, 12:41 [ТС]	3
	Сообщение от Burk Sub Rni() Dim I As Integer, J As Integer, N As Integer Columns("A:B").ClearContents N = InputBox("Введи количество чисел") For J = 1 To N * I = Int(Rnd * 20 + 1) * Cells(J, 1) = I * Cells(J, 2) = IIf(I Mod 2 = 1, "нечётное", "чётное") Next End Sub Спасибо. А как сделать, чтобы вместо того, чтобы вводить количество чисел по запросу, программа брала бы это количество из клетки? Например, если поставить в ячейку B1 число 10. Ну или любое другое. Чтобы макрос считывал бы это число. 0

@Vaprelko 0 / 0 / 1 Регистрация: 14.10.2016 Сообщений: 18
	14.10.2016, 16:24 [ТС]	6
	На картинке перепутаны чётное и нечётное, это я исправил. 0

@Vaprelko 0 / 0 / 1 Регистрация: 14.10.2016 Сообщений: 18
	14.10.2016, 16:44 [ТС]	8
	Всё, большое всем спасибо! Получилось. 0