Из ячеек с многострочным текстом выделить первую строку / Microsoft Office

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Из ячеек с многострочным текстом выделить первую строку

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

Из ячеек с многострочным текстом выделить первую строку

#33735963

БСПО

Гость

Здравствуйте!
Задачка: много ячеек, каждая с текстом из двух строк, в каждой строке по числу. Как выделить число из первой строки из ячейки и записать в ту же ячейку (т.е. фактически уничтожить вторую строку в каждой из выделенных ячеек).
Если выделить столбец с такими ячейками и запустить Данные->Текст по столбцам... , то все чудесно получается, а почему? Перечитал документацию Екселя - пока объяснить не могу. Не подскажите? Может, дадите ссылку в Интернете на решение этого вопроса. Заранее благодарен

...

Рейтинг:

0 / 0

18.05.2006, 15:19:20

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

Из ячеек с многострочным текстом выделить первую строку

#33736076

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Sub ff()
    tmp = ""
    For x =  1  To Len(Cells( 1 ,  10 ))
        If IsNumeric(Mid(Cells( 1 ,  10 ), x,  1 )) = True Then _
                tmp = tmp + Mid(Cells( 1 ,  10 ), x,  1 )
    Next x
    Cells( 1 ,  10 ) = tmp
End Sub
Sub fff()
    v = Split(Cells( 1 ,  10 ), " ")
    For x =  0  To UBound(v)
        If IsNumeric(v(x)) Then tmp = v(x)
    Next x
    Cells( 1 ,  10 ) = tmp
End Sub

...

Рейтинг:

0 / 0

18.05.2006, 15:45:45

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

Из ячеек с многострочным текстом выделить первую строку

#33736079

БСПО

Гость

Это Excel 2003. Что интересно, на 2-ом шаге этого "Мастера текстов" из "Текст по столбцам..." в поле "Ограничитель строк" ставлю "нет" - все равно работает, хотя по логике вроде бы Ексель должен в этом случае ячейку оставлять неизменной.

...

Рейтинг:

0 / 0

18.05.2006, 15:45:56

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

Из ячеек с многострочным текстом выделить первую строку

#33736232

БСПО

Гость

vkodor, в 4-й строке вместо

If IsNumeric(Mid(Cells(1, 10), x, 1)) = True Then _

надо

If IsNumeric(Mid(Cells(1, 10), 1, x)) = True Then _

Функция работает здорово, спасибо

...

Рейтинг:

0 / 0

18.05.2006, 16:26:30

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

Из ячеек с многострочным текстом выделить первую строку

#33736383

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

БСПОvkodor, в 4-й строке вместо

If IsNumeric(Mid(Cells(1, 10), x, 1)) = True Then _

надо

If IsNumeric(Mid(Cells(1, 10), 1, x)) = True Then _

Функция работает здорово, спасибо

...

Рейтинг:

0 / 0

18.05.2006, 16:58:15

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

Из ячеек с многострочным текстом выделить первую строку

#33736394

БСПО

Гость

If IsNumeric(Mid(Cells(1, 10), 1, x)+"1") = True Then _

а то вдруг дроби десятичные попадутся ... :)

...

Рейтинг:

0 / 0

18.05.2006, 17:01:10

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

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

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

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

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

start [/forum/topic.php?fid=61&msg=33735963&tid=2184848]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	61ms
get topic data:	9ms
get forum data:	3ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	223ms

total:	357ms

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