1. Для восьми хозяйств известны общий объем валовой продукции (ден.ед) и площадь сельскохозяйственной продукции (га.). Определите Средний выход валовой продукции на 100 га сельхосугодий для каждого хозяйства и по всей группе хозяйств в целом.
2. Составьте программу которая вводит пароль и проверяет его. В случае верного ответа выведете сообщение "начинаем роботу!". В противном "доступ закрыт"
Задание 1.
Сформируйте Excel-таблицу для задания и выложите эту таблицу на Форуме. Затем я попробую сделать макрос для этой таблицы. Я начала делать таблицу, но не знаю, как её сделать.
Примечание
Синий прямоугольник вверху листа - это будущая кнопка для запуска макроса.
[вложение удалено администратором]
Задание 2.
Чтобы в поле (на форме есть поле) вместо символов были "*", нужно изменить свойство "PasswordChar".
[вложение удалено администратором]
вот как должно все выглядеть. И я так понимаю значения нужно потом в макросе вводить по коду.
[вложение удалено администратором]
Как отредактировать этот код? В нём ошибка.
Sub Среднее()
Dim Объем(8) As Single, Площадь(8) As Single, Среднее(8) As Single
For i = 1 To 8
Объем(i) = InputBox("Введите Объем" & i & "-ого хозяйства:")
Площадь(i) = InputBox(" Введите Площадь" & i & "-ого хозяйства:")
Среднее(i) = (Объем(i) / Площадь(i)) * 100
Next i
Range("A1") = "Объем"
Range("B2") = "Площадь"
Range("C3") = "Среднее"
For i = 1 To 8
Cells(i + 1, 1) = Объем(i)
Cells(i + 1, 2) = Площадь(i)
Next i
Range("C8") = "Среднее"
End Sub
[вложение удалено администратором]
KsuKsuKsunia, какая ошибка?
Точней не ошибка, а ввожу все даные двох стоббцов, оно заполняет таблицу но не считает среднее значение.
Перед последней строкой end sub должно что-то другое быть. Вот проверте. Я все кинула.
И еще не могу сохранить макрос, пишет - нужно зайти в список "тип файла" и выбирите тип файла с поддержкой макроса.
KsuKsuKsunia, чтобы добавить макрос в Excel-файл, нужно использовать такие форматы Excel-файлов:
- Книга Excel с поддержкой макросов (*.xlsm). Этот формат появился в "Excel 2007";
- Книга Excel 97-2003(*.xls).
KsuKsuKsunia, я не могу проверить правильность Вашего кода, т.к. не понимаю задачу.
Если Вы объясните задачу, а именно, составите Excel-таблицу, как всё должно быть, тогда смогу проверить.
Нежно ввести в 2 столбца через формы один- объем, второй - площадь. в третемдолжнобыть вычислено по формуле первая ячейка поделить на вторую и умножить на 100.
Вот как таблица идет.
[вложение удалено администратором]
Я для тестирования макроса оставил пока две строки с данными, чтобы восемь раз не делать.
Посмотрите, какая сейчас ошибка в макросе. Макрос можете запускать кнопкой, которая находится на листе.
[вложение удалено администратором]
Все прекрасно, только как избавиться от слова средее с ячейке С8 и что б прога работала?
Всё, работает. Спасибо.
KsuKsuKsunia, у Вас остались вопросы? Просто я не понял, решена Ваша задача или нет.
Задача решена. Вопросов нет. Вам Респект и уважуха.
Буду советовать ваш форум своим одногруппникам. У них тоже такие подобные задачи.