ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разделение текста в ячейках Exel
7 сообщений из 7, страница 1 из 1
Разделение текста в ячейках Exel
    #38923272
Маринка1987
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Маринка1987
Гость
Доброе утро! Не знаю как создать макрос для автоматического разделения "двухэтажных числовых значений". Конкретно эта таблица экспортирована из ПК Гранд Смета. И в таблице имеется столбец с этими "двухэтажными цифрами" которые отображают норму расхода учитываемых ресурсов и произведение нормы на количество выполненных работ. Важны оба значения, чтобы "верхний этаж значений" был в одном столбце, а "нижний этаж значений", например, в соседнем столбце. Как записать такой макрос???
...
Рейтинг: 0 / 0
01.04.2015, 05:44
| Ответить | Цитировать | Написать  
Разделение текста в ячейках Exel
    #38923307
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
приложите небольшой фрагмент файла для обработки и с образцом желаемого результата
...
Рейтинг: 0 / 0
01.04.2015, 08:22
| Ответить | Цитировать | Написать  
Разделение текста в ячейках Exel
    #38923309
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Или вот с этим поэкспериментируйте
http://office-menu.ru/index.php/uroki-excel/12-osnovy-excel/59-razdelit-tekst-po-stolbtsam-v-excel
...
Рейтинг: 0 / 0
01.04.2015, 08:26
| Ответить | Цитировать | Написать  
Разделение текста в ячейках Exel
    #38923330
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Начните со СМЫСЛА этих "двухэтажных" чисел. Тогда станет понятно, что необходимо - либо добавить колонку и "второй этаж" перенести в неё, оставив в той же строке, либо добавить строку и перенести данные в неё, не меняя количество колонок.
...
Рейтинг: 0 / 0
01.04.2015, 09:12
| Ответить | Цитировать | Написать  
Разделение текста в ячейках Exel
    #38923772
Maxim12345678
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Maxim12345678
Гость
Маринка1987, Данные -> Текст по столбцам -> С разделителем (разделитель: Ctrl+J) -> OK. Работает?
...
Рейтинг: 0 / 0
01.04.2015, 13:24
| Ответить | Цитировать | Написать  
Разделение текста в ячейках Exel
    #38925953
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
авторКак записать такой макрос???
Боюсь, что запись в этом случае не прможет.
Даже если записать, то разобраться в записанном будет сложно.
А вот написать, думаю, намного проще.
Но не с картики!
С картинки можно тоже. Просто в Paint
...
Рейтинг: 0 / 0
03.04.2015, 10:29
| Ответить | Цитировать | Написать  
Разделение текста в ячейках Exel
    #38927205
uux
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
uux
Гость
Маринка1987Доброе утро! Не знаю как создать макрос для автоматического разделения "двухэтажных числовых значений". Конкретно эта таблица экспортирована из ПК Гранд Смета. И в таблице имеется столбец с этими "двухэтажными цифрами" которые отображают норму расхода учитываемых ресурсов и произведение нормы на количество выполненных работ. Важны оба значения, чтобы "верхний этаж значений" был в одном столбце, а "нижний этаж значений", например, в соседнем столбце. Как записать такой макрос???

Как бы делал я.

Сначала запустил бы тестовый макрос по какой-нибудь ячейке с "двухэтажным" числом для того, чтобы выявить символ-разделитель:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim I AS Long, TestStr as String
TestStr=Cells(здесь номера строки и колонки "двухэтажной" ячейки через запятую).Value
I=1
Do While I<=Len(TestStr)
    MsgBox Mid(TestStr, I, 1)+" "+Str(Asc(Mid(TestStr, I, 1))) ' Выводим содержимое ячейки посимвольно с кодом
    I=I+1
Loop



А потом применил бы к ячейкам с двухэтажными цифрами следующую формулу (естественно, в цикле):

Код: vbnet
1.
2.
3.
4.
5.
Dim TwoStoreyNumber(0 To 1) As String
' Здесь организуем цикл по ячейкам...
 TwoStoreyNumber=Split(Trim(Cells(I, J).Value), Chr([код символа-разделителя]), -1)   ' Разделяем числа до и после разделителя
' Trim здесь просто на всякий случай
' А потом в одну ячейку записываем CSng(TwoStorey(0)), а в другую - CSng(TwoStorey(1))
...
Рейтинг: 0 / 0
04.04.2015, 23:17
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Разделение текста в ячейках Exel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38923307&tid=2155987]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 13ms
total:  133ms
созд. / загр.: 133ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]