поиск подстроки / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / поиск подстроки

9 сообщений из 9, страница 1 из 1

поиск подстроки

#36364945

Nomad87

Гость

доброго времени суток.
друзья, задача простая довольно, макрос в эксель.
в столбце допустим "А" хранится ФИО, например - Иванов Иван Иванович,
нужно чтобы стало Иванов И И
заранее благодарен.

...

Рейтинг:

0 / 0

14.12.2009, 13:53

| Ответить | Цитировать | Написать

поиск подстроки

#36364966

Вопрощатель

Гость

Nomad87, именно макрос или формулу создать?

...

Рейтинг:

0 / 0

14.12.2009, 13:58

| Ответить | Цитировать | Написать

поиск подстроки

#36365023

Вопрощатель

Гость

вот формула

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Function GetIFO(InputText As String) As String

GetIFO = Left(InputText, InStr( 1 , InputText, " ", vbTextCompare))
GetIFO = GetIFO & Mid(InputText, InStr( 1 , InputText, " ", vbTextCompare) +  1 ,  1 )
GetIFO = GetIFO & " " & Mid(InputText, InStr(InStr( 1 , InputText, " ", vbTextCompare) +  1 , InputText, " ", vbTextCompare) +  1 ,  1 )

End Function

...

Рейтинг:

0 / 0

14.12.2009, 14:17

| Ответить | Цитировать | Написать

поиск подстроки

#36365102

_Boroda_

Гость

формула стандартными функциями

=ЛЕВСИМВ(A2;ПОИСК(" ";A2)+1)&ПСТР(A2;ПОИСК(" ";A2;ПОИСК(" ";A2)+1);2)

Макросом

Sub yyy()
Dim ar_ As Variant
n = [a1].End(xlDown).Row
ReDim ar_(1 To n)
ar_ = WorksheetFunction.Transpose(Range("a2:a" & n))
For i = 1 To n - 1
m = WorksheetFunction.Search(" ", ar_(i)) + 1
ar_(i) = Left(ar_(i), m) & Mid(ar_(i), WorksheetFunction.Search(" ", ar_(i), m), 2)
Next i
Range("a2:a" & n) = WorksheetFunction.Transpose(ar_)
End Sub

...

Рейтинг:

0 / 0

14.12.2009, 14:48

| Ответить | Цитировать | Написать

поиск подстроки

#36365180

Hugo121

Гость

_Boroda_ , в этой строке ошибку выкидывает:

Код: plaintext

ar_(i) = Left(ar_(i), m) & Mid(ar_(i), WorksheetFunction.Search(" ", ar_(i), m),  2 )

может так надо?

Код: plaintext

ar_(i) = Left(ar_(i), m) & Mid(ar_(i), WorksheetFunction.Search(" ", ar_(i)),  2 )

...

Рейтинг:

0 / 0

14.12.2009, 15:16

| Ответить | Цитировать | Написать

поиск подстроки

#36365322

_Boroda_

Гость

Hugo121,

Обрати внимание, что в формуле
=ЛЕВСИМВ(A2;ПОИСК(" ";A2)+1)&ПСТР(A2;ПОИСК(" ";A2;ПОИСК(" ";A2)+1);2)
два вложенных поиска. Это они и есть.
А ошибку может выкидывать если в ячейке нет двух пробелов не подряд.

...

Рейтинг:

0 / 0

14.12.2009, 16:01

| Ответить | Цитировать | Написать

поиск подстроки

#36365366

Hugo121

Гость

Да, наверное из-за одного пробела ошибка была... спасибо.

...

Рейтинг:

0 / 0

14.12.2009, 16:13

| Ответить | Цитировать | Написать

поиск подстроки

#36365993

.Михаил.

Участник

Откуда: Екатеринбург

Сообщения: 172

Рейтинг: 0 / 0

Nomad87, Вопрощатель
вот еще формула

Код: plaintext

1.
2.
3.
4.
5.

Function GetIFO(InputText As String) As String
Dim str() As String
str = Split(InputText, " ")
GetIFO = Trim(str( 0 )) & Mid(Trim(str( 1 )), 1 , 1 ) & Mid(Trim(str( 2 )), 1 , 1 )
End Function

...

Рейтинг:

0 / 0

14.12.2009, 22:05

| Ответить | Цитировать | Написать

поиск подстроки

#36366185

Nomad87

Гость

спасибо вам огромное друзья.

...

Рейтинг:

0 / 0

15.12.2009, 05:36

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / поиск подстроки

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=141&tid=2160302]:	0ms
get settings:	8ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	44ms
get topic data:	15ms
get forum data:	3ms
get page messages:	45ms
get tp. blocked users:	2ms
others:	201ms

total:	341ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы