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

Ничё не понял, пример в студию!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 23:09:33
    #34917352
2shy
2shy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевод оценки в баллах в словесную формулировку?
ну, нужно с помощью этой самой IF сделать макрос, который бы выставлял оценки: вместо 5- отлично, 4 - хорошо и.т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 23:53:32
    #34917404
Guest11
Guest11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевод оценки в баллах в словесную формулировку?
Можно и без VBA обойтись:
=ВЫБОР(A1;"Совсем плохо";"Неудовлетворительно";"Удовлетворительно";"Хорошо";"Отлично")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 23:56:43
    #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:57:12
    #34917407
Guest11
Guest11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевод оценки в баллах в словесную формулировку?
А в VBA кстати аналогичная функция имеется:
Код: plaintext
1.
2.
Function GetMark(Mark As Integer)
    GetMark = Choose(Mark, "Совсем плохо", "Неудовлетворительно", "Удовлетворительно", "Хорошо", "Отлично")
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 23:59:01
    #34917410
Guest11
Guest11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перевод оценки в баллах в словесную формулировку?
А в VBA кстати аналогичная функция имеется:
Код: plaintext
1.
2.
Function GetMark(Mark As Integer)
    GetMark = Choose(Mark, "Совсем плохо", "Неудовлетворительно", "Удовлетворительно", "Хорошо", "Отлично")
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.11.2007, 12:07:04
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перевод оценки в баллах в словесную формулировку? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 301ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2181944]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 44ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 203ms
total:  301ms
x
x
Закрыть


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