Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Задания для практического занятия и инструктаж по их выполнению. Задание №1 Создать приложение «Разнеси числа по листам» На Листе1(Числа) в ячейки А1-А20 занести значения датчиком случайных чисел в интервале (-50;50)




Задание №1 Создать приложение «Разнеси числа по листам»

  1. На Листе1(Числа) в ячейки А1-А20 занести значения датчиком случайных чисел в интервале (-50;50).
  2. На Лист1(Числа) в ячейку С1 записать «Количество +», а в ячейку D1 поместить подсчитанное значение с количеством положительных чисел.
  3. На Лист1(Числа) в ячейку С2 записать «Количество -», а в ячейку D2 поместить подсчитанное значение с количеством отрицательных чисел.
  4. На Лист1(Числа) в ячейку С3 записать «Количество 0», а в ячейку D3 поместить подсчитанное значение с количеством нулевых чисел.
  5. На Лист2(Положительные) в ячейку В1 записать «Положительные» и начиная с ячейки B2 в столбик поместить все положительные числа.

6. На Лист3(Отрицательные) в ячейку С1 записать «Отрицательные» и начиная с ячейки D1 в строку поместить все отрицательные числа.

7. Создать кнопку «Количество» на листе «Числа».

8. Создать кнопку «Перенос» на листе «Числа».

9. Создать кнопку «Очистить» на листе «Положительные».

10. Создать кнопку «Очистить» на листе «Отрицательные».

Ход работы:

  1. Откройте новую книгу в Excel.
  2. Переименуйте: Лист1 – «Числа»
    Лист2 – «Положительные»
    Лист3 – «Отрицательные»
  3. На листе «Числа» примените к столбцу А условное форматирование. После заполнения диапазона ячеек числами, к положительным числам будет применяться формат: полужирный курсив, красный цвет; к отрицательным – полужирный курсив, синий цвет; нулевые значения - полужирный курсив, зеленый цвет. Для этого:

- Выделите столбец А;

- Выполните команду ФорматàУсловное форматирование;

- Появится диалоговое окно, в котором введите значения по образцу;

 
 

  1. Перейдите в редактор VBA.
  2. Создайте модуль с помощью команды Insert→Module.
  3. В модуле создайте процедуру с помощью команды Insert→Procedure. Присвойте имя процедуре «Числа».
  4. Напишите текст программы для занесения чисел на лист.

Public Sub Числа()

Dim I As Integer

Randomize Timer

For I = 1 To 20

Sheets("Числа").Cells(I, 1) = Int(Rnd * 100) - 50

Next I

  1. Нарисуйте на листе «Числа» автофигуру. Назначьте автофигуре процедуру выполнения программы Числа. Для этого:

- Выделите фигуру.

- Вызовите контекстно-зависимое меню.

- Выполните команду «Назначить макрос».

- В открывшемся диалоговом окне выберите только что созданную программу «Числа».

- ОК.

  1. Проверьте работоспособность программы.
  2. Создайте макрос «Очистка_Чисел» для очистки диапазона ячеек А1:D20 листа «Числа».
  3. Подготовьте автофигуру и привяжите к ней макрос.
  4. В этом же модуле создайте еще одну процедуру KolPolOtr для подсчета количества положительных, отрицательных и нулевых значений.

Public Sub KolPolOtr()

Rem Объявление переменных

Rem Pol – переменная для подсчета количества положительных чисел

Rem Otr – переменная для подсчета количества отрицательных чисел

Rem Nul– переменная для подсчета нулевых значений

Dim I As Integer, Pol As Integer, Otr As Integer, Nul As Integer

Rem обнуление переменных

Pol = 0

Otr = 0

Nul = 0

Rem Открытие цикла для проверки чисел

For I = 1 To 20

If Sheets("Числа").Cells(I, 1) > 0 Then

Pol = Pol + 1

ElseIf Sheets("Числа").Cells(I, 1) < 0 Then

Otr = Otr + 1

Else

Nul = Nul + 1

End If

Next I

Rem Вывод на лист «Числа» результатов подсчета

With Sheets("Числа")

.Range("C1") = "Количество +"

.Range("D1") = Pol

.Range("C2") = "Количество -"

.Range("D2") = Otr

.Range("C3") = "Количество 0"

.Range("D3") = Nul

End With

End Sub

  1. Создайте автофигуру на листе «Числа», подпишите «Количество» и привяжите к ней программу KolPolOtr.
  2. В этом же модуле создайте еще одну процедуру Perenos для переноса положительных и отрицательных чисел по разным листам.

Public Sub Perenos ()

Rem Объявление переменных

Dim I As Integer, IndPol As Integer, IndOtr As Integer

Rem переменная-индекс для формирования адреса ячейки положительных элементов

IndPol = 2

Rem переменная-индекс для формирования адреса ячейки отрицательных элементов

IndOtr = 4

Rem Занесение в ячейку B1 слово - Положительные

Sheets("Положительные").Range("B1") = "Положительные"

Rem Занесение в ячейку B1 слово - Отрицательные

Sheets("Отрицательные").Range("C1") = "Отрицательные"

For I = 1 To 20






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных