EXCEL 2003 - символ * не работает в формуле

Табличка в Excel:
200 гр.
12 кг.
гр. 365

Задача:
если в ячейке есть символы "гр", то написать "граммы" пришем формулу в соседнем столбце
=ЕСЛИ(A1="*гр*";"истина";"ложь")

НЕ РАБОТАЕТ! Всегда выдает ложь. Почему?

mwz

Expert

3276/21284 ответов
23 года на iXBT, с мая 2001
Чаще пишет в "Накопители" (28%)
Россия, Москва
Web-страница

Инфо Ответить

mwz Expert

18 лет назад / 11 января 2007 00:31

А вы уверены, что в Экселе используются такие же подстановочные знаки для обозначения любой группы символов либо одного символа (* и ? соответственно), что и в DOS?

Member

795/1160 ответов
19 лет на iXBT, с мая 2005
Чаще пишет в "Прикладное ПО" (64%)
Россия, Новоуральск

Инфо Ответить

V3 Member

18 лет назад / 11 января 2007 04:03

mwz

rdva
подстановочные знаки используются в расширенном фильтре
для твоего случая надо написать такую формулу
=ЕСЛИ(ЕОШ(НАЙТИ("гр";A1));"ложь";"истина")

а вообще не проще ли сделать замену?
=ПОДСТАВИТЬ(A1;"гр.";"грамм")

rdva

Member

Автор темы

3/25 ответов
18 лет на iXBT, с апреля 2006
Россия, СПб
Web-страница

Инфо Ответить

rdva Member Автор темы

18 лет назад / 15 января 2007 12:47

V3, большое спасибо! А в чем суть функции ЕОШ? Справку прочитал (ЕОШ Значение ссылается на любое значение ошибки, кроме #Н/Д. ) но не могу понять, зачем оно здесь?

PS: задачу составил для иллюстрации проблемы, задача стоит другая:
есть прайс-лист, в котором в столбце H "вес" безобразно указан этот самый вес:
318 г.
458 г.
400
616 г.
0,53 кг
0,55
252 г.
234 г.

418 г.
308 г.
-
-
и так далее. Заколебало руками переделывать, пытаюсь сделать автоматический перевод в килограммы, без указания меры веса (кг):
0,318
0,458
0,4

и т.д.

Member

809/1180 ответов
19 лет на iXBT, с мая 2005
Чаще пишет в "Прикладное ПО" (64%)
Россия, Новоуральск

Инфо Ответить

V3 Member

18 лет назад / 15 января 2007 16:16

rdva
вот такая формула
=ЕСЛИ(НЕ(ЕОШ(НАЙТИ(" г";A1)));0,001*ЗНАЧЕН(ЛЕВСИМВ(A1;НАЙТИ("г";A1)-2));ЕСЛИ(НЕ(ЕОШ(НАЙТИ("кг";A1)));ЗНАЧЕН(ЛЕВСИМВ(A1;НАЙТИ("кг";A1)-2));A1))
результат работы
148x208, 2,8Kb

учти что если не введана размерность г. или кг то значение переноситься один в один, если стоит г. то значение переводиться в число и домножается на 0,001, при кг просто перевод в число

ЕОШ использован для того чтобы при не нахождении значения г. не вываливалось #ЗНАЧ!, а корректно отображалось "истина"

rdva

Member

Автор темы

4/26 ответов
18 лет на iXBT, с апреля 2006
Россия, СПб
Web-страница

Инфо Ответить

rdva Member Автор темы

18 лет назад / 15 января 2007 18:56

V3, спасибо за помощь! Сегодня почти целый день сидел над этой проблемой, сам разобрался зачем нужен ЕОШ

, в итоге решил ее так:
Макросом заменяем "г." на "гр." и убираем "-":

код выделить копировать

1Columns("H:H").Select
2    Selection.Replace What:="г.", Replacement:="гр.", LookAt:=xlPart, _
3        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
4        ReplaceFormat:=False
5    Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
6        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
7        ReplaceFormat:=False

Далее накатал вот такую монструозную формулу:

код выделить копировать

1=ПОДСТАВИТЬ(ЕСЛИ(ЕОШ(НАЙТИ("кг.";'(2) Цены и хар-ки'!H7));
2ЕСЛИ(ЕОШ(НАЙТИ("кг";'(2) Цены и хар-ки'!H7));
3ЕСЛИ(ЕОШ(НАЙТИ("гр.";'(2) Цены и хар-ки'!H7));
4ЕСЛИ(ЕОШ(НАЙТИ("гр";'(2) Цены и хар-ки'!H7));
5ЕСЛИ(ЕПУСТО('(2) Цены и хар-ки'!H7);"";"Ошибка");
6ПОДСТАВИТЬ('(2) Цены и хар-ки'!H7;"гр";"")/1000);
7ПОДСТАВИТЬ('(2) Цены и хар-ки'!H7;"гр.";"")/1000);
8ПОДСТАВИТЬ('(2) Цены и хар-ки'!H7;"кг";""));
9ПОДСТАВИТЬ('(2) Цены и хар-ки'!H7;"кг.";""));".";",")

Результат примерно такой:
157x231, 2,5Kb

Member

816/1187 ответов
19 лет на iXBT, с мая 2005
Чаще пишет в "Прикладное ПО" (64%)
Россия, Новоуральск

Инфо Ответить

V3 Member

18 лет назад / 15 января 2007 19:37

rdva

ну что ж поздравляю

Да и если уж в макросы подался, так и сделал бы полностью все там, и не надо было бы страшные формулы городить

rdva

Member

Автор темы

5/27 ответов
18 лет на iXBT, с апреля 2006
Россия, СПб
Web-страница

Инфо Ответить

rdva Member Автор темы

18 лет назад / 15 января 2007 19:45

Да сделал чтобы побыстрее, ибо количество скобок в формуле начало выжигать мозг

. С макросами пока на начальном этапе, методом научного тыка долго получается, там еще сплош объектное программирование - а тут записал и поправил чуть-чуть.
V3, если силен в макросах - подскажи плз хороший ресурс (URL или книжку) по VBA?

Member

818/1189 ответов
19 лет на iXBT, с мая 2005
Чаще пишет в "Прикладное ПО" (64%)
Россия, Новоуральск

Инфо Ответить

V3 Member

18 лет назад / 15 января 2007 21:14

Sub rdva()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    a = Split(Cells(i, 1).Value, " ")
    Select Case UBound(a)
    Case Is > 0
        If a(1) = "г." Then Cells(i, 2).Value = 0.001 * a(0)
    Case -1
        Cells(i, 2).Value = ""
    Case Else
        Cells(i, 2).Value = a(0) * 1
   End Select
Next i
End Sub

Добавление от 15.01.2007 21:15:

http://www.firststeps.ru/

Ваш ответ:

Список кодов форума
Список всех смайликов закрепить окно ответа

Нет значка Нет значка Вот тут! Лампочка Восклицание Вопрос Класс! Улыбка Злость Огорчение Поговорим? Краснею Подмигивание Ругаю Одобряю

Ваше имя:

Авторизуйтесь Предпросмотр В полную форму

вставить выделенную цитату в окно ответа

Если Вы считаете это сообщение ценным для дискуссии (не обязательно с ним соглашаться), Вы можете поблагодарить его автора, а также перечислить ему на счет некоторую сумму со своего баланса (при отзыве благодарности перечисленная сумма не будет вам возвращена).

Также вы можете оценить сообщение как неудачное.

В течение суток можно 20 раз оценить сообщения разных участников (купите Premium-аккаунт, либо оплачивайте оценки сверх лимита).

Также вы можете оценить сообщение как неудачное.

Конференция iXBT.com — старейшая в Рунете дискуссионная площадка о технике и технологиях

Поиск · FAQ · Статистика · Хотите стать модератором?

Правила конференции · Связаться с администрацией конференции · Размещение рекламы

Политика использования cookie · Политика защиты и обработки персональных данных

‹

Для работы проектов iXBT.com нужны файлы cookie и сервисы аналитики. Продолжая посещать сайты проектов, вы соглашаетесь с нашей Политикой сбора данных Закрыть