Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Пакет Microsoft Office

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.041 RSS
←   Март 2022   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru
Открыта: 03-03-2006

Автор
Калашников О.А.

Статистика

2.041 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Пакет Microsoft Office


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Мастер-Эксперт
Рейтинг: 352
∙ повысить рейтинг » 		Evgen aka Chuma
Статус: 6-й класс
Рейтинг: 105
∙ повысить рейтинг » 		CradleA
Статус: Мастер-Эксперт
Рейтинг: 34
∙ повысить рейтинг »

Пакет MSOffice

Номер выпуска:1045
Дата выхода:25.03.2022, 18:15
Администратор рассылки:Megaloman (Мастер-Эксперт)
Подписчиков / экспертов:3 / 29
Вопросов / ответов:1 / 1

Консультация # 202375: Здравствуйте! У меня возникли сложности с таким вопросом: Задача 1 Задание: Разработать приложение VBA, которое позволит:
  1. На Листе1 (Числа) в ячейки А1–А20 занести случайным образом значения из интервала (–50; 50).
  2. На Лист1 (Числа) в ячейку С1 записать “Количество +”, а в ячейку D1 поместить подсчитанное значение с количес...

    Консультация # 202375:

    Здравствуйте! У меня возникли сложности с таким вопросом:
    Задача 1
    Задание: Разработать приложение VBA, которое позволит:

    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. Создать кнопку “Перенос” на листе “Числа”.

    Задача 2. Нахождение суммы в диапазоне ячеек
    Напишите программу вычисления суммы чисел, находящихся в диапазоне ячеек А1:А10, и выведите результаты вычисления с поясняющими надписями в ячейки С2:D2.
    Решим эту задачу двумя способами: используя объект Sheets и объект Application (Application.Sum(…))
    4.2 Напишите программу вычисления максимума, минимума, среднего значения и произведения чисел, находящихся в диапазоне ячеек А1:А10 на листе “Numbers”. Выведите результаты вычисления с поясняющими надписями в ячейки С2:D5.  Решите эти задачи двумя способами.
    Для того чтобы узнать правильное написание функции рабочего листа и ее применение, обратимся к окну Object Browser.
    • Войдем в окно просмотра объектов.
    • Выберем в раскрывающемся списке Проект | Библиотека в верхнем левом углу экрана библиотеку объектов Excel.
    • В окне Классы выберем Application.
    • В окне списка Компоненты выберем Worksheet Function. В нижней части окна появится Property Worksheet Function As Worksheet Function (ссылка).
    • Нажмем на ссылку, и в окне Компоненты появится список всех функций. Используя этот список функций, напишем программу.

    4.4  Напишите программу, которая из пары чисел А2 и В2, А3 и В3 и т.д. будет выбирать большее и помещать в столбец D, начиная с ячейки D2. Создайте кнопку для стирания результатов из столбцов А, В и D.
    Помогите плиз с 4 лабой до 23.03.22, у меня просто ноут на ремонте у знакомого и хотел бы уже по скорее от неё избавиться, если что, то ниже я прикрепил pdf файл с самой лабй, заранее огромное спасибо ;)

    Дата отправки: 20.03.2022, 17:46
    Вопрос задал: DanilaKotov3619 (Посетитель)
    Всего ответов: 1
    Страница онлайн-консультации »

    Консультирует Megaloman (Мастер-Эксперт):

    У Вас прекрасная методичка. Я тупо работал по ней, хотя с некоторыми вещами я бы поступил аккуратнее.
    Всю лабораторку я сделал в одной книге на разных листах, прилагаю.
    Для иллюстрации коды и скриншот одной задачи (4.3):

    Код
    Public Sub Числа_4_3()
    Dim I As Integer
    
    Call Очистка_Numbers        'Очистка чисел, результатов подсчетов, перенесенных чисел
    Randomize Timer
    For I = 1 To 10
        Sheets("Numbers").Cells(I, 1) = Int(Rnd * 100) - 50
    Next I

End Sub

Public Sub Очистка_Numbers()
    With Sheets("Numbers")
        .Range("A1:A10").ClearContents
        .Range("C2:D5").ClearContents
    End With
End Sub

Public Sub Вычисления_4_3_V1()
                            ' Объявление переменных
    Dim ValMax As Integer       '— переменная для вычисления максимума чисел
    Dim ValMin As Integer       '— переменная для вычисления минимума  чисел
    Dim ValAve As Double        '— переменная для вычисления среднего  чисел
    Dim ValPro As Double        '— переменная для вычисления произведения чисел
    Dim Summa As Integer        '— переменная для вычисления суммы чисел
    
    Dim I As Integer            '— переменная цикла
    Dim R As Integer            '— переменная для текущего значения ячейки

    With Sheets("Numbers")
        ValMax = .Range("A1")   ' начальное значение максимума
        ValMin = .Range("A1")   ' начальное значение минимума
        Summa = 0               ' начальное значение суммы
        ValPro = 1              ' начальное значение произведения
        
        For I = 1 To 10                 ' Суммируем числа в цикле
            R = .Cells(I, 1)
            Summa = Summa + R
            If ValMax < R Then ValMax = R
            If ValMin > R Then ValMin = R
            ValPro = ValPro * R
        Next I
        ValAve = Summa / 10
        
        .Range("C2") = "Максимум чисел (V1)="   'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
        .Range("D2") = ValMax
        .Range("C3") = "Минимум чисел  (V1)="
        .Range("D3") = ValMin
        .Range("C4") = "Среднее чисел  (V1)="
        .Range("D4") = ValAve
        .Range("C5") = "Произведение чисел  (V1)="
        .Range("D5") = ValPro

    End With
End Sub

Public Sub Вычисления_4_3_V2()
    With Sheets("Numbers")
        .Range("C2") = "Максимум чисел (V2)="   'Вывод на лист "Numbers" результаты вычисления с поясняющими надписями
        .Range("D2") = Application.WorksheetFunction.Max(Sheets("Numbers").Range("A1:A10"))
        .Range("C3") = "Минимум чисел  (V2)="
        .Range("D3") = Application.WorksheetFunction.Min(Sheets("Numbers").Range("A1:A10"))
        .Range("C4") = "Среднее чисел  (V2)="
        .Range("D4") = Application.WorksheetFunction.Average(Sheets("Numbers").Range("A1:A10"))
        .Range("C5") = "Произведение чисел  (V2)="
        .Range("D5") = Application.WorksheetFunction.Product(Sheets("Numbers").Range("A1:A10"))
    End With
End Sub

    Ответ отредактирован модератором Megaloman (Мастер-Эксперт) 21.03.2022, 08:50

    Консультировал: Megaloman (Мастер-Эксперт)
    Дата отправки: 21.03.2022, 08:48 нет комментария
    -----
    Дата оценки: 21.03.2022, 12:06
    Рейтинг ответа:

    НЕ одобряю +2 одобряю!

    Оценить выпуск | Задать вопрос экспертам

    главная страница  |  стать участником  |  получить консультацию
    техническая поддержка

    Дорогой читатель!
    Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
    МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное