|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.01.2012, 14:28 | #1 |
Пользователь
Регистрация: 18.01.2011
Сообщений: 45
|
Макрос разбивки на отдельные ячейки
Здравствуйте, есть у меня макрос, который разбивает содержимое одной ячейки на отдельные ячейки. То есть, если например в одной ячейке стоит цифра 1 и 2, макрос разбивает на 1 в одну ячейку, 2 в другую. Макрос работает с масивом до 5 цифр в одной ячейке включительно. То есть, если в ячейке, скажем 7 цифр - макрос разбивает на 5 ячеек, в пятую же помещает все остальные цифры.
Подскажите, как исправить, чтобы макрос работал на 10 цифр? Код:
|
09.01.2012, 14:48 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Приведенный Вами фрагмент кода делает не совсем то, что Вы описали.
А разбить до 10-ти знаков может вот такая строка Код:
Может кто напишет короче
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
09.01.2012, 17:00 | #3 |
Пользователь
Регистрация: 18.01.2011
Сообщений: 45
|
Спасибо, но что-то не так, разбивает по два столбика через 1, а в десятый вбивает все отсальные цифры
|
09.01.2012, 19:43 | #4 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Прикольно Вить, получается. Столкнулся с таким вопросом - как объявить массив массивов в ВБА? Похоже никак:-( в vb.net можно, а в VB - нет. Ну, или я чего-нить не знаю. Получить например, с помощью словаря, легко. Я тут поизгалялся... Делим текст по буквам, длина текста <= 256 символов:
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
09.01.2012, 19:56 | #5 |
Форумчанин
Регистрация: 02.02.2009
Сообщений: 842
|
Эти функции помогут просто и без проблем разобрать любую строковую переменную, без каких либо ограничений.
Код:
С уважением, Алексей.
|
09.01.2012, 20:06 | #6 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Попробуйте с их помощью разбить строку по ячейкам. Строка - "1234567890". Или это мы с Виктором неверно поняли вопрос?
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
09.01.2012, 20:18 | #7 | |
Форумчанин
Регистрация: 02.02.2009
Сообщений: 842
|
Цитата:
Если считать это текстовой строкой, то состоящей из одного слова. Разбор элементарный. А разбор слова на символы, в условии задачи не значился. Для этой задачи я бы использовал mid() и len(). Где то так, на вскидку. Код:
С уважением, Алексей.
Последний раз редактировалось tae1980; 09.01.2012 в 20:31. |
|
09.01.2012, 20:31 | #8 | |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Цитата:
Кто не дает? Может у Вас получится короче:-) И быстрей.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
09.01.2012, 20:36 | #9 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Можно использовать не массив массивов, а обычный двумерный массив:
Код:
При большом желании двумерный массив можно сформировать формулой. Для 2007: Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Последний раз редактировалось Казанский; 09.01.2012 в 20:49. |
09.01.2012, 20:41 | #10 | |
Форумчанин
Регистрация: 02.02.2009
Сообщений: 842
|
Цитата:
"" - пустая строковая переменная. " " - пустая строковая переменная, содержит один разделитель. "мама мыла..." - строковая переменная содержит два слова, разделитель пробел. Можно применить более глубокий разбор, определить и убрать многоточие. Краткость не главный критерий. ИМХО гораздо важнее читаемость, понимаемость, простота модернизации и "красота" листинга (при ~равной производительности кода).
С уважением, Алексей.
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как разбить числовой ряд на отдельные ячейки | jhenya-d | Microsoft Office Excel | 17 | 10.11.2011 13:43 |
макрос для разбивки текста на ячейки | Ksiaze | Microsoft Office Excel | 2 | 24.05.2011 00:49 |
Макрос разбивки текста | rubbi | Microsoft Office Word | 1 | 08.11.2010 23:40 |
Разбить дату на отдельные ячейки ДД ММ ГГ | Александр25 | Microsoft Office Excel | 5 | 04.03.2010 19:07 |
как разбить текстовую ячейку на отдельные ячейки? | zetrix | Microsoft Office Excel | 0 | 31.10.2006 07:46 |