Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
End Sub. Лабораторная работа № 8. VBA
|
|
Лабораторная работа № 8. VBA. Использование структур с условиями.
Для вызова каждой программы создайте кнопку вызова на рабочем листе.
1.Внесите в произвольные ячейки электронной таблицы дату Вашего рождения и текущую дату (можно использовать функцию Excel).
2.Вычислите для этих дат день и месяц(также можно использовать функции Excel).
3.Создайте программу, вычисляющую количество прожитых Вами дней. Обязательно опишите переменные, участвующие в расчете.
Sub СколькоПрожитоДней()
'
' Макрос1 Макрос
Range(" c2") = Range(" a1") - Range(" a2")
Range(" d2") = (" вот сколько прожито вами дней")
End Sub
4. Создайте программу, которая вносит в произвольную ячейку число «1», если Ваш день рождения прошел в предыдущих месяцах и «0» в противоположном случае.
Sub ДеньРождения()
' Макрос1 Макрос
' Сочетание клавиш: Ctrl+а
' n = Range(" b3")
If (b3) > (b2) Then
Range(" c2") = " 0"
ElseIf (b3) < = (b2) Then
Range(" c2") = " 1"
Else
Range(" c2") = " Error! "
End If
End Sub
5. Создайте программу, которая вносит в произвольную ячейку число «1» если Ваш день рождения прошел в предыдущих месяцах «2», если месяц рождения и текущий месяц совпадают и «3», если день рождения предстоит в последующих месяцах.
Sub Именины()
' Макрос2 Макрос
' Сочетание клавиш: Ctrl+d
n = Range(" b3")
If (b3) > (b2) Then
Range(" f2") = " 1"
ElseIf (b3) < (b2) Then
Range(" f2") = " 2"
ElseIf (b3) = (b2) Then
Range(" f2") = " 3"
Else
Range(" f2") = " Error! "
End If
End Sub
6. Пусть вместо цифр 1, 2 и 3 вносятся слова «прошел», «праздник» и «будет» соответственно.(аналогично)
7. Создайте программу, угадывающую, прошел ли у Вас в текущем году день рождения с учетом не только месяца, но и дня.
8. Внесите в произвольную ячейку цифру от 1 до 7. Создайте программу «радуга», угадывающую название цвета по цифре. Не забудьте про существование переключателя SELECT CASE.
Sub Радуга()
' Макрос1 Макрос
' Сочетание клавиш: Ctrl+o
n = Range(" a1")
Select Case n
Case 1
f = " красный"
Case 2
f = " оранжевый"
Case 3
f = " желтый"
Case 4
f = " зеленый"
Case 5
f = " голубой"
Case 6
f = " синий"
Case 7
f = " фиолетовый"
Case Else
f = " Error!!! "
End Select
Range(" b1") = f
End Sub
9. Написать программу, которая по заданному номеру месяца выводит название времени года. (аналогично)
10. Создайте программу, определяющую соотношение Ваших роста и веса по формуле Index Quetelet:
K=Масса тела, кг / (Рост, м)2.
|
|