Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Необходимо оценить результатам анализа глюкозы натощак, указав категорию и выделив цветом по таблице 2
Таблица 1. Соответствие между категорией, уровнем глюкозы и цветом
| Категория | Результат глюкозы натощак | Присваемый цвет |
| «Норма» | <5.5 | зеленый |
| «Подозрение» | > 5.5 | синий |
| «Диабет» | > 8 | красный |
Создадим макрос для оценки результатов анализа глюкозы натощак с разделением на категории с использованием «явного» цвета.
Sub ДиабетЦвета()
Dim i As Integer
For i = 4 To 13
If Cells(i, 5) < 5.5 Then
Cells(i, 9) = "норма"
Cells(i, 9).Font.Color = vbGreen
ElseIf Cells(i, 5) < 8 Then
Cells(i, 9) = "подозрение"
Cells(i, 9).Font.Color = vbBlue
Else
Cells(i, 9) = "диабет"
Cells(i, 9).Font.Color = vbRed
End If
Next i
End Sub
Рисунок 9 Таблица с выходными данными по занятию в классе
Приложение 1 Типы данных и их диапазон значений.
| Тип данных | байт | Диапазон значений |
| Byte (байт) | От 0 до 255 | |
| Boolean (логический) | True или False | |
| Integer (целые) | От -32768 до 32767 | |
| Long (длинное целое) | От -2147483648 до 2147483647 | |
| Single (плавающее обычной точности) | От -3,402823E38 до -1,401298Е-45 и от 1,401298Е-45 до 3,402823E38 | |
| Double (плавающее двойной точности) | От -1,79769313486231Е308 до -4,94065645841247Е-324 и от 4,94065645841247Е-324 до 1,79769313486231Е308 |
| Тип данных | байт | Диапазон значений |
| Date (время и дата) | От 1 января 100 г. до 31 декабря 9999 г. | |
| Object (объект) | Любой указатель объекта | |
| String (строка переменной длины) | 10+ длина строки | От 0 до приблизительно двух миллиардов |
| String (строка постоянной длины) | Длина строки | От 1 до 65400 |
| Variant (числовые подтипы) | От -1,79769313486232Е308 до -4,94065645841247Е-324 и от 4,94065645841247Е-324 до 1,79769313486232Е308 | |
| Variant (строковые подтипы) | 22+ длина строки | От 0 до приблизительно двух миллиардов |
| Type (определяемый пользователем) | Определяется элементами типа | Диапазон каждого элемента определяется его типом данных |
Date: 2016-01-20; view: 325; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |