VPF::Замена оценок в Excel - Форум программистов

Flotskiy

Дата 27.2.2006, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: нет
Всего: 2

Добрый день всем!
Такой вопрос: как в ячейке А1 произвести замену оцени "5" на текст " 5(отлично)" и т.д.
Нагляднее на прикрепленном файле.
С уважением

Присоединённый файл ( Кол-во скачиваний: 9 )

______________.doc 28,00 Kb

--------------------

FlotskiySk k

AsIs

Дата 27.2.2006, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 310
Регистрация: 2.4.2005
Где: Санкт-Петербург

Репутация: 15
Всего: 17

Файл не грузицца.

1. Поиск и замена? Для перманентной замены.
2. Вспомогательная формула такого типа:
=A1&ВПР(....)
где ВПР делает поиск в подстановочной таблице.
Правда этот вариант подразумевает применение дополнительной ячейки.
3. Можно с применением пользовательского числового формата, но только если вариантов оценок не больше трех:
[=5]0"(отлично)" и т.п.

--------------------

<avalon> - чтобы знать...

Staruha

Дата 27.2.2006, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 6
Всего: 27

Я думаю нужен макрос типа А = А & С
А потом SelectCase С

--------------------

Возмездие настигнет

Flotskiy

Дата 28.2.2006, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: нет
Всего: 2

Добрый день всем!
Я не так, наверное, выразился.
Вводим в ячейку A1 "5", а чтобы запись получилась "5(отлично)" и т.д.
Делал: вводил в ячейку А1 "5" , в ячейке В1 получал "5(отлично)";
"4" - "4(хор)"; букву "з" - "зачет" и т.д.

Staruha, я понял твою мысль, составь, pse, небольшой пример, а дальше сам попробую разобраться.
Всего доброго, всем.

--------------------

FlotskiySk k

AsIs

Дата 28.2.2006, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 310
Регистрация: 2.4.2005
Где: Санкт-Петербург

Репутация: 15
Всего: 17

Мой третий способ подходит для этого.
Только если оценок максимум три smile

--------------------

<avalon> - чтобы знать...

Staruha

Дата 28.2.2006, 21:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 6
Всего: 27

Код


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Integer
Dim g As String
If IsNumeric(Range("A1").Value) Then
c = Range("A1").Value
Select Case c
Case 5
 g = "(отлично)"
Case 4
g = "(хорошо)"
Case Else
 g = "(плохо)"
 End Select

Range("A1").Value = Range("A1").Value & g

Else
Range("A1").Value = Range("A1").Value
End If
End Sub

'еще есть стандартная функция Chose
Да еще Target.Address добавь в условие

Это сообщение отредактировал(а) Staruha - 28.2.2006, 21:29

--------------------

Возмездие настигнет

Flotskiy

Дата 1.3.2006, 07:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: нет
Всего: 2

B]Добрый день всем![/B]
Благодарю вас за помощь.
Всего доброго.

--------------------

FlotskiySk k

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Работа с MS Office \| Следующая тема »