ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перевод оценки в баллах в словесную формулировку?
8 сообщений из 8, страница 1 из 1
Перевод оценки в баллах в словесную формулировку?
    #34917328
2shy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
2shy
Гость
Товарищи программеры, объясните пожалуйста как использовать команду If .. Then .. Else ..
для того, чтобы создать пользовательскую функцию перевода оценки в баллах в словесную формулировку?
Заранее спасибо..
...
Рейтинг: 0 / 0
05.11.2007, 22:50:15
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34917346
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
2shyТоварищи программеры, объясните пожалуйста как использовать команду If .. Then .. Else ..
для того, чтобы создать пользовательскую функцию перевода оценки в баллах в словесную формулировку?
Заранее спасибо..

Ничё не понял, пример в студию!
...
Рейтинг: 0 / 0
05.11.2007, 23:02:25
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34917352
2shy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
2shy
Гость
ну, нужно с помощью этой самой IF сделать макрос, который бы выставлял оценки: вместо 5- отлично, 4 - хорошо и.т.д.
...
Рейтинг: 0 / 0
05.11.2007, 23:09:33
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34917404
Guest11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest11
Участник
Можно и без VBA обойтись:
=ВЫБОР(A1;"Совсем плохо";"Неудовлетворительно";"Удовлетворительно";"Хорошо";"Отлично")
...
Рейтинг: 0 / 0
05.11.2007, 23:53:32
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34917406
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
2shyну, нужно с помощью этой самой IF сделать макрос, который бы выставлял оценки: вместо 5- отлично, 4 - хорошо и.т.д.

Ну если с помощью IF, то так наверное

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub test1()
Dim x As Long ' целое число
Dim y As String

x = InputBox("Введите бальную оценку", ,  5 )

If x =  1  Then
   y = "полный пипец"
ElseIf x =  2  Then
   y = "неудовлетворительно"
ElseIf x =  3  Then
   y = "удовлетворительно"
ElseIf x =  4  Then
   y = "хорошо"
ElseIf x =  5  Then
   y = "отлично"
End If

If y = "" Then y = "не найдено такой оценки"

MsgBox y
End Sub
...
Рейтинг: 0 / 0
05.11.2007, 23:56:43
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34917407
Guest11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest11
Участник
А в VBA кстати аналогичная функция имеется:
Код: plaintext
1.
2.
Function GetMark(Mark As Integer)
    GetMark = Choose(Mark, "Совсем плохо", "Неудовлетворительно", "Удовлетворительно", "Хорошо", "Отлично")
End Function
...
Рейтинг: 0 / 0
05.11.2007, 23:57:12
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34917410
Guest11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest11
Участник
А в VBA кстати аналогичная функция имеется:
Код: plaintext
1.
2.
Function GetMark(Mark As Integer)
    GetMark = Choose(Mark, "Совсем плохо", "Неудовлетворительно", "Удовлетворительно", "Хорошо", "Отлично")
End Function
...
Рейтинг: 0 / 0
05.11.2007, 23:59:01
| Ответить | Цитировать | Написать  
Перевод оценки в баллах в словесную формулировку?
    #34924505
2shy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
2shy
Гость
Всем огромное спасибо за помощь!!

а результат должен был быть таким:

Function ОЦЕНКА (балл As Integer) As String
If балл= 1 Then
ОЦЕНКА = "очень плохо"
ElseIf балл = 2 Then
ОЦЕНКА = "неудовлетворительно"
ElseIf балл= 3 Then
ОЦЕНКА = "удовлетворительно"
ElseIf балл = 4 Then
ОЦЕНКА = "хорошо"
ElseIf балл = 5 Then
ОЦЕНКА = "отлично"
ElseIf балл > 5 Then
ОЦЕНКА = "нет оценки"
ElseIf балл < 1 Then
ОЦЕНКА = "нет оценки"
ElseIf балл > 5 Then
ОЦЕНКА= "нет оценки"
End If
End Function
...
Рейтинг: 0 / 0
08.11.2007, 12:07:04
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перевод оценки в баллах в словесную формулировку?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34924505&tid=2181944]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 209ms
total:  322ms
созд. / загр.: 322ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]