VВA.В диапазоне ячеек A1: A20 находятся 20 чисел. Составьте программу, которая копирует...

0 голосов
44 просмотров

VВA.В диапазоне ячеек A1: A20 находятся 20 чисел. Составьте программу, которая копирует данные числа в колону B (клетки от B1 до B20) следующим образом:
- Числа из ячейки A1 скопировать в ячейку B1;
- Числа из ячейки A20 скопировать в ячейку B2;
- Числа из ячейки A2 скопировать в ячейку B3;
- Числа из ячейки A19 скопировать в ячейку B4;
- Числа из ячейки A3 скопировать в ячейку B5;
- Числа из ячейки A18 скопировать в ячейку B6;
и так далее (в начале надо скопировать первое число, потом последнее, потом второе число, потом предпоследние, потом третье и тд.).


Информатика (61 баллов) | 44 просмотров
0

И нарисовать блок схему к данному коду.

Дан 1 ответ
0 голосов
Правильный ответ

Sub pp()n1 = 1k1 = 20n2 = 1DoCells(n2, 2) = Cells(n1, 1)n2 = n2 + 1Cells(n2, 2) = Cells(k1, 1)n2 = n2 + 1k1 = k1 - 1n1 = n1 + 1Loop Until n1 > 10End Sub


Скачать вложение Excel (XLS)
(18.0k баллов)
0

Есть вопрос: получается то программа работает на операторе Do?

0

И реально ли сделать это всё без кнопки? Если нет то как вы её добавили в Execel? В коде я её не вижу.

0

Кнопка для комфорта. Программа в VBA модуле. Просмотр: сервис/редакторVBA.

0

Еще можно правой кнопкой мыши по кнопке и в выпавшем меню изменить макрос.

0

Ясно. А блок схему вы можете нарисовать?