Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Найти первый символ на русском языке и отдать его позицию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Найти первый символ на русском языке и отдать его позицию (Формулы)
Найти первый символ на русском языке и отдать его позицию
Андрей Дата: Четверг, 08.08.2013, 19:49 | Сообщение № 1
Группа: Гости
Нужно в ячейке найти первый символ на русском языке и отдать его позицию.
Пытался реализовать через код символа но не хватает цикла )))
 
Ответить
СообщениеНужно в ячейке найти первый символ на русском языке и отдать его позицию.
Пытался реализовать через код символа но не хватает цикла )))
Автор - Андрей
Дата добавления - 08.08.2013 в 19:49
ShAM Дата: Пятница, 09.08.2013, 04:02 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата (Андрей, 08.08.2013 в 19:49, в сообщении №1)
не хватает цикла

Будет Вам цикл.
Если в А1 данные, то формула массива (вводится одновременным нажатием Ctrl/Shift/Enter:
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:99);1))>223)*(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:99);1))<256)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:99);1))=184);)


Сообщение отредактировал ShAM - Пятница, 09.08.2013, 04:04
 
Ответить
Сообщение
Цитата (Андрей, 08.08.2013 в 19:49, в сообщении №1)
не хватает цикла

Будет Вам цикл.
Если в А1 данные, то формула массива (вводится одновременным нажатием Ctrl/Shift/Enter:
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:99);1))>223)*(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:99);1))<256)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:99);1))=184);)
Автор - ShAM
Дата добавления - 09.08.2013 в 04:02
Андрей Дата: Пятница, 09.08.2013, 11:52 | Сообщение № 3
Группа: Гости
Вот образец данных.

Behringer U-CONTROL UMX610 Студия в коробке: USB/ MIDI-клавиатура (61 динамическая клавиша, 8 программируемых регуляторов, 10 назначаемых кнопок, колёса модуляции и высоты тона, MIDI выход) в комплекте с программным обеспечением и внешним звуковым интерфейсом USB
Behringer U-CONTROL UCA222 Внешний интерфейс USB для записи и воспроизведения звука на компьютере (PC/ MAC) с функцией контроля через наушники (2 аналоговых входа, 2 аналоговых выхода, цифровой оптический выход S/PDIF) и расширенным комплектом программного обеспечения (включая energyXT2.5 compact BEHRINGER edition)
Behringer U-CONTROL UCA202 Внешний интерфейс USB для записи и воспроизведения звука на компьютере (PC/ MAC) с функцией контроля через наушники (2 аналоговых входа, 2 аналоговых выхода, цифровой оптический выход S/PDIF)
Behringer U-PHONO UFO202 Внешний интерфейс USB для записи и воспроизведения звука на компьютере (PC/ MAC) со встроенным отключаемым усилителем-корректором (phono) под проигрыватели виниловых дисков, функцией контроля через наушники и расширенным комплектом программного обеспечения (включая energyXT2.5 compact BEHRINGER edition); 2 аналоговых входа, 2 аналоговых выхода
Behringer GUITAR LINK UCG102 Внешний интерфейс USB для подключения электрогитары к компьютеру (PC/ MAC) с функцией контроля через наушники и пакетом программного обеспечения для репетиций и записи музыки
Behringer U-CONTROL UMX250 Студия в коробке: USB/ MIDI-клавиатура (25 динамических клавиш, 8 программируемых регуляторов, 10 назначаемых кнопок, колёса модуляции и высоты тона, MIDI выход) в комплекте с программным обеспечением и внешним звуковым интерфейсом USB
Behringer U-CONTROL UMX490 Студия в коробке: USB/ MIDI-клавиатура (49 динамических клавиш, 8 программируемых регуляторов, 10 назначаемых кнопок, колёса модуляции и высоты тона, MIDI выход) в комплекте с программным обеспечением и внешним звуковым интерфейсом USB
Behringer SRC2496 конвертер цифровых сигналов
Behringer FCA202
Behringer PODCASTUDIO USB
Behringer IS202 установочная станция для iPad/iPad2/iPad (3rd generation) с аудио, видео и midi-подключением
 
Ответить
СообщениеВот образец данных.

Behringer U-CONTROL UMX610 Студия в коробке: USB/ MIDI-клавиатура (61 динамическая клавиша, 8 программируемых регуляторов, 10 назначаемых кнопок, колёса модуляции и высоты тона, MIDI выход) в комплекте с программным обеспечением и внешним звуковым интерфейсом USB
Behringer U-CONTROL UCA222 Внешний интерфейс USB для записи и воспроизведения звука на компьютере (PC/ MAC) с функцией контроля через наушники (2 аналоговых входа, 2 аналоговых выхода, цифровой оптический выход S/PDIF) и расширенным комплектом программного обеспечения (включая energyXT2.5 compact BEHRINGER edition)
Behringer U-CONTROL UCA202 Внешний интерфейс USB для записи и воспроизведения звука на компьютере (PC/ MAC) с функцией контроля через наушники (2 аналоговых входа, 2 аналоговых выхода, цифровой оптический выход S/PDIF)
Behringer U-PHONO UFO202 Внешний интерфейс USB для записи и воспроизведения звука на компьютере (PC/ MAC) со встроенным отключаемым усилителем-корректором (phono) под проигрыватели виниловых дисков, функцией контроля через наушники и расширенным комплектом программного обеспечения (включая energyXT2.5 compact BEHRINGER edition); 2 аналоговых входа, 2 аналоговых выхода
Behringer GUITAR LINK UCG102 Внешний интерфейс USB для подключения электрогитары к компьютеру (PC/ MAC) с функцией контроля через наушники и пакетом программного обеспечения для репетиций и записи музыки
Behringer U-CONTROL UMX250 Студия в коробке: USB/ MIDI-клавиатура (25 динамических клавиш, 8 программируемых регуляторов, 10 назначаемых кнопок, колёса модуляции и высоты тона, MIDI выход) в комплекте с программным обеспечением и внешним звуковым интерфейсом USB
Behringer U-CONTROL UMX490 Студия в коробке: USB/ MIDI-клавиатура (49 динамических клавиш, 8 программируемых регуляторов, 10 назначаемых кнопок, колёса модуляции и высоты тона, MIDI выход) в комплекте с программным обеспечением и внешним звуковым интерфейсом USB
Behringer SRC2496 конвертер цифровых сигналов
Behringer FCA202
Behringer PODCASTUDIO USB
Behringer IS202 установочная станция для iPad/iPad2/iPad (3rd generation) с аудио, видео и midi-подключением
Автор - Андрей
Дата добавления - 09.08.2013 в 11:52
ShAM Дата: Пятница, 09.08.2013, 11:56 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата (Андрей, 09.08.2013 в 11:52, в сообщении №4)
Вот образец данных.

Не-е-е, так не пойдет!
Цитата (_Boroda_, 08.08.2013 в 19:53, в сообщении №2)
в файле


ЗЫ: А что, моя формула не подходит?
 
Ответить
Сообщение
Цитата (Андрей, 09.08.2013 в 11:52, в сообщении №4)
Вот образец данных.

Не-е-е, так не пойдет!
Цитата (_Boroda_, 08.08.2013 в 19:53, в сообщении №2)
в файле


ЗЫ: А что, моя формула не подходит?
Автор - ShAM
Дата добавления - 09.08.2013 в 11:56
Андрей Дата: Пятница, 09.08.2013, 11:59 | Сообщение № 5
Группа: Гости
Цитата (ShAM, 09.08.2013 в 04:02, в сообщении №3)
Будет Вам цикл
При попытке применить пишет #Н/Д.
 
Ответить
Сообщение
Цитата (ShAM, 09.08.2013 в 04:02, в сообщении №3)
Будет Вам цикл
При попытке применить пишет #Н/Д.
Автор - Андрей
Дата добавления - 09.08.2013 в 11:59
ShAM Дата: Пятница, 09.08.2013, 12:05 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Вы как применяете?
Цитата (ShAM, 09.08.2013 в 04:02, в сообщении №3)
формула массива (вводится одновременным нажатием Ctrl/Shift/Enter

Если никак, то (в 3-й раз уже говорится) зарегистрируйтесь и приложите файл.
 
Ответить
СообщениеВы как применяете?
Цитата (ShAM, 09.08.2013 в 04:02, в сообщении №3)
формула массива (вводится одновременным нажатием Ctrl/Shift/Enter

Если никак, то (в 3-й раз уже говорится) зарегистрируйтесь и приложите файл.
Автор - ShAM
Дата добавления - 09.08.2013 в 12:05
gibirt Дата: Пятница, 09.08.2013, 12:27 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ShAM, зарегистрировался.
Файл приложен.
у меня комбинация Ctrl/Shift/Enter никакого результата не дает.
К сообщению приложен файл: test.xlsx (10.9 Kb)
 
Ответить
СообщениеShAM, зарегистрировался.
Файл приложен.
у меня комбинация Ctrl/Shift/Enter никакого результата не дает.
Автор - gibirt
Дата добавления - 09.08.2013 в 12:27
Serge_007 Дата: Пятница, 09.08.2013, 12:33 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
А если попробовать применить?
К сообщению приложен файл: gibirt.xls (36.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеА если попробовать применить?
Автор - Serge_007
Дата добавления - 09.08.2013 в 12:33
M73568 Дата: Пятница, 09.08.2013, 12:43 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 46 ±
Замечаний: 0% ±

2007-2013
ShAM, А если строка больше 100 символов? ;)
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))>223)*(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))<256)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))=184);)
 
Ответить
Сообщение ShAM, А если строка больше 100 символов? ;)
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))>223)*(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))<256)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))=184);)
Автор - M73568
Дата добавления - 09.08.2013 в 12:43
ShAM Дата: Пятница, 09.08.2013, 12:48 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата (M73568, 09.08.2013 в 12:43, в сообщении №10)
ShAM, А если строка больше 100 символов?

Ну, можно три девятки поставить. ;)
По-моему, для ТС главное, чтобы цикл был (видимо, ошибся я) :)
 
Ответить
Сообщение
Цитата (M73568, 09.08.2013 в 12:43, в сообщении №10)
ShAM, А если строка больше 100 символов?

Ну, можно три девятки поставить. ;)
По-моему, для ТС главное, чтобы цикл был (видимо, ошибся я) :)
Автор - ShAM
Дата добавления - 09.08.2013 в 12:48
gibirt Дата: Пятница, 09.08.2013, 12:55 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ShAM, ну почему , задача перебирать все буквы от начала и остановиться на первой русской.
Принципиальность нужно выделить из описания товара английское название которое может быть разной длинны.
 
Ответить
СообщениеShAM, ну почему , задача перебирать все буквы от начала и остановиться на первой русской.
Принципиальность нужно выделить из описания товара английское название которое может быть разной длинны.
Автор - gibirt
Дата добавления - 09.08.2013 в 12:55
_Boroda_ Дата: Пятница, 09.08.2013, 12:58 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16772
Репутация: 6551 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Я вот только одного не понимаю - а зачем писать блок, в котором <256. =СИМВОЛ(256) дает ошибку. Такого символа ANSI просто нет.
Т.о., достаточно
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(A1;СТРОКА(1:999);1))>191)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:999);1))=184);)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ вот только одного не понимаю - а зачем писать блок, в котором <256. =СИМВОЛ(256) дает ошибку. Такого символа ANSI просто нет.
Т.о., достаточно
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(A1;СТРОКА(1:999);1))>191)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:999);1))=184);)
Автор - _Boroda_
Дата добавления - 09.08.2013 в 12:58
M73568 Дата: Пятница, 09.08.2013, 13:17 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 46 ±
Замечаний: 0% ±

2007-2013
Ну тогда уж писать по максимуму СТРОКА(1:65536) ;)

Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(A1;СТРОКА(1:65536);1))>191)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:65536);1))=184);)

или ровно столько, сколько символов в данной ячейке
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))>223)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))=184);)
 
Ответить
СообщениеНу тогда уж писать по максимуму СТРОКА(1:65536) ;)

Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(A1;СТРОКА(1:65536);1))>191)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(1:65536);1))=184);)

или ровно столько, сколько символов в данной ячейке
Код
=ПОИСКПОЗ(1;(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))>223)+(КОДСИМВ(ПСТР(СТРОЧН(A1);СТРОКА(СМЕЩ(A1;;;ДЛСТР(A1)));1))=184);)
Автор - M73568
Дата добавления - 09.08.2013 в 13:17
ShAM Дата: Пятница, 09.08.2013, 13:53 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Цитата (gibirt, 09.08.2013 в 12:55, в сообщении №12)
ShAM, ну почему , задача перебирать все буквы от начала и остановиться на первой русской.
Принципиальность нужно выделить из описания товара английское название которое может быть разной длинны.

Я ориентировался на вот это (файла же изначально не было):
Цитата (Андрей, 08.08.2013 в 19:49, в сообщении №1)
Пытался реализовать через код символа но не хватает цикла )))

-------------------------------------------------------------
Цитата (_Boroda_, 09.08.2013 в 12:58, в сообщении №13)
Я вот только одного не понимаю - а зачем писать блок, в котором <256. =СИМВОЛ(256) дает ошибку. Такого символа ANSI просто нет.

Да, Саша, что-то перемудрил я. :)
 
Ответить
Сообщение
Цитата (gibirt, 09.08.2013 в 12:55, в сообщении №12)
ShAM, ну почему , задача перебирать все буквы от начала и остановиться на первой русской.
Принципиальность нужно выделить из описания товара английское название которое может быть разной длинны.

Я ориентировался на вот это (файла же изначально не было):
Цитата (Андрей, 08.08.2013 в 19:49, в сообщении №1)
Пытался реализовать через код символа но не хватает цикла )))

-------------------------------------------------------------
Цитата (_Boroda_, 09.08.2013 в 12:58, в сообщении №13)
Я вот только одного не понимаю - а зачем писать блок, в котором <256. =СИМВОЛ(256) дает ошибку. Такого символа ANSI просто нет.

Да, Саша, что-то перемудрил я. :)
Автор - ShAM
Дата добавления - 09.08.2013 в 13:53
gibirt Дата: Пятница, 09.08.2013, 14:15 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ShAM, спасибо , почитал про работу с массивами и все вышло.
Теперь более - менее все понятно.
 
Ответить
СообщениеShAM, спасибо , почитал про работу с массивами и все вышло.
Теперь более - менее все понятно.
Автор - gibirt
Дата добавления - 09.08.2013 в 14:15
_Boroda_ Дата: Пятница, 09.08.2013, 14:15 | Сообщение № 16
Группа: Админы
Ранг: Местный житель
Сообщений: 16772
Репутация: 6551 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата (gibirt, 09.08.2013 в 12:55, в сообщении №12)
Принципиальность нужно выделить из описания товара английское название которое может быть разной длинны.

предлагаю так:
Код
=ЛЕВБ(A1;ПОИСКПОЗ(;-(КОДСИМВ(ПСТР(A1&" А";СТРОКА($1:$999);1))<192);)-2)
К сообщению приложен файл: 45896521_1.xls (28.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата (gibirt, 09.08.2013 в 12:55, в сообщении №12)
Принципиальность нужно выделить из описания товара английское название которое может быть разной длинны.

предлагаю так:
Код
=ЛЕВБ(A1;ПОИСКПОЗ(;-(КОДСИМВ(ПСТР(A1&" А";СТРОКА($1:$999);1))<192);)-2)
Автор - _Boroda_
Дата добавления - 09.08.2013 в 14:15
Michael_S Дата: Пятница, 09.08.2013, 14:16 | Сообщение № 17
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата (gibirt, 09.08.2013 в 12:55, в сообщении №12)
выделить из описания товара английское название

Код
=ПОИСКПОЗ(0=0;(КОДСИМВ(ПСТР(A1;СТРОКА(1:999);1))>127);0)

Начиная со 128 символа латиница и все остальные скобки-кавычки заканчиваются.
Вся формула
Код
=СЖПРОБЕЛЫ(ПСТР(A1;1;ПОИСКПОЗ(1=1;(КОДСИМВ(ПСТР(A1;СТРОКА(1:999);1))>127);0)-1))
 
Ответить
Сообщение
Цитата (gibirt, 09.08.2013 в 12:55, в сообщении №12)
выделить из описания товара английское название

Код
=ПОИСКПОЗ(0=0;(КОДСИМВ(ПСТР(A1;СТРОКА(1:999);1))>127);0)

Начиная со 128 символа латиница и все остальные скобки-кавычки заканчиваются.
Вся формула
Код
=СЖПРОБЕЛЫ(ПСТР(A1;1;ПОИСКПОЗ(1=1;(КОДСИМВ(ПСТР(A1;СТРОКА(1:999);1))>127);0)-1))
Автор - Michael_S
Дата добавления - 09.08.2013 в 14:16
gibirt Дата: Пятница, 09.08.2013, 14:28 | Сообщение № 18
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Мои познания во вложенности формул Excel повержены ....
Пойду читать форум и просвещаться !
 
Ответить
СообщениеМои познания во вложенности формул Excel повержены ....
Пойду читать форум и просвещаться !
Автор - gibirt
Дата добавления - 09.08.2013 в 14:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Найти первый символ на русском языке и отдать его позицию (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!