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

Вход

Регистрация

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

 

= Мир MS Excel/"Сумма" части значения строки в отдельную ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » "Сумма" части значения строки в отдельную ячейку (Макросы/Sub)
"Сумма" части значения строки в отдельную ячейку
ovechkin1973 Дата: Вторник, 30.01.2018, 19:31 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Господа модераторы, если тему не правильно назвал, то прошу переименовать.
Для возможности сравнение двух больших таблиц есть макрос, которые сравнивает одно значение в одной таблице со значением другой по содержимому ячейки определенного столбца. Данные в эти ячейки вношу немного вручную с помощью формулы
Код
=СЦЕПИТЬ(A3;"_";G3;"_";H3;"_";J3;"_";K3;"_";L3;"_";M3;"_";N3;"_";O3;"_";P3;"_";Q3;"_";R3;"_";S3;"_";T3;"_";U3)

Потом эту формулу растягиваю до низа таблицы - копирую этот столбец и вставляю его в другой как значения.
Как можно заменить формулу макросом? Попробую макрос сделать..
Забыл сказать, что форматы разные могут быть в ячейках... а вот записывать в общую ячейку надо в общем формате. То, что там будет "белиберда" не важно, главное иметь значение

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Сообщение отредактировал ovechkin1973 - Вторник, 30.01.2018, 19:39
 
Ответить
СообщениеГоспода модераторы, если тему не правильно назвал, то прошу переименовать.
Для возможности сравнение двух больших таблиц есть макрос, которые сравнивает одно значение в одной таблице со значением другой по содержимому ячейки определенного столбца. Данные в эти ячейки вношу немного вручную с помощью формулы
Код
=СЦЕПИТЬ(A3;"_";G3;"_";H3;"_";J3;"_";K3;"_";L3;"_";M3;"_";N3;"_";O3;"_";P3;"_";Q3;"_";R3;"_";S3;"_";T3;"_";U3)

Потом эту формулу растягиваю до низа таблицы - копирую этот столбец и вставляю его в другой как значения.
Как можно заменить формулу макросом? Попробую макрос сделать..
Забыл сказать, что форматы разные могут быть в ячейках... а вот записывать в общую ячейку надо в общем формате. То, что там будет "белиберда" не важно, главное иметь значение
Автор - ovechkin1973
Дата добавления - 30.01.2018 в 19:31
bmv98rus Дата: Вторник, 30.01.2018, 19:44 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4149
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
ovechkin1973, ну сумма это к числам, а к строкам всеж слияние, объединения..... и не частея строки, а значений в ячейках, но не суть.

Вам сие чудо ведь нужно для анализа скриптом из прошлой темы, так зачем файл данным лишними перегружать? Надо то всего при загрузки в словать грузить не столбец отдельный, а сделать это слияние, а потом, когда по второму массиву идти, то тоже брать не одно значение, а несколько. Ну будет чуть дольше, но и файл компактнее, да и все в одном скрипт.

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Вторник, 30.01.2018, 20:29
 
Ответить
Сообщениеovechkin1973, ну сумма это к числам, а к строкам всеж слияние, объединения..... и не частея строки, а значений в ячейках, но не суть.

Вам сие чудо ведь нужно для анализа скриптом из прошлой темы, так зачем файл данным лишними перегружать? Надо то всего при загрузки в словать грузить не столбец отдельный, а сделать это слияние, а потом, когда по второму массиву идти, то тоже брать не одно значение, а несколько. Ну будет чуть дольше, но и файл компактнее, да и все в одном скрипт.
Автор - bmv98rus
Дата добавления - 30.01.2018 в 19:44
ovechkin1973 Дата: Вторник, 30.01.2018, 19:57 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 30.01.2018 в 19:44, в сообщении № 2 ()
а к строкам всеж слияние, объединения

Вы правы Уважаемый bmv98rus, я напишу вопрос в той же теме. Хотя если кто то про слияние напишет - мне будет очень полезно. В прошлой теме с массивами или библиотеками мне совершенно ни чего не понятно - не мой уровень. Хотя решение сделали с реактивной скоростью работающие.

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщение
Цитата bmv98rus, 30.01.2018 в 19:44, в сообщении № 2 ()
а к строкам всеж слияние, объединения

Вы правы Уважаемый bmv98rus, я напишу вопрос в той же теме. Хотя если кто то про слияние напишет - мне будет очень полезно. В прошлой теме с массивами или библиотеками мне совершенно ни чего не понятно - не мой уровень. Хотя решение сделали с реактивной скоростью работающие.
Автор - ovechkin1973
Дата добавления - 30.01.2018 в 19:57
Pelena Дата: Вторник, 30.01.2018, 20:03 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата ovechkin1973, 30.01.2018 в 19:57, в сообщении № 3 ()
напишу вопрос в той же теме

Это неправильное решение, та тема была про ускорение макроса, слияние к ней не имеет отношения

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата ovechkin1973, 30.01.2018 в 19:57, в сообщении № 3 ()
напишу вопрос в той же теме

Это неправильное решение, та тема была про ускорение макроса, слияние к ней не имеет отношения
Автор - Pelena
Дата добавления - 30.01.2018 в 20:03
bmv98rus Дата: Вторник, 30.01.2018, 20:29 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4149
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
[offtop]
Цитата Pelena, 30.01.2018 в 20:03, в сообщении № 4 ()
Это неправильное решение

поздно :-) И заметьте, я этого не советовал. Хотя помнится кто-то, не будем показывать пальцем, писал, что если помогающий хочет, то может до полного удовлетворения ТС в пределах одной темы работать :-) [/offtop]

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение[offtop]
Цитата Pelena, 30.01.2018 в 20:03, в сообщении № 4 ()
Это неправильное решение

поздно :-) И заметьте, я этого не советовал. Хотя помнится кто-то, не будем показывать пальцем, писал, что если помогающий хочет, то может до полного удовлетворения ТС в пределах одной темы работать :-) [/offtop]
Автор - bmv98rus
Дата добавления - 30.01.2018 в 20:29
nilem Дата: Вторник, 30.01.2018, 20:31 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Можно прямо в массиве объединять строку, типа
[vba]
Код
OutputArr(i,1)=InputArr(i,1) & InputArr(i,2) & InputArr(i,3) & InputArr(i,4) & InputArr(i,5) 'etc.
[/vba]
Наверное, скажут, что конкатенация, мол, медленно. Но если 3 и 4 сек для вас небольшая разница, то вполне норм. вариант
И еще здесь (см. "извлекаем только одну строку (10-ю)")
added
еще некоторые пишут так
[vba]
Код
OutputArr(i, 1) = Join(Array(InputArr(i, 1), InputArr(i, 2), InputArr(i, 3), InputArr(i, 4), InputArr(i, 5)), "|") 'etc.
[/vba]
разницы - практически никакой.

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 30.01.2018, 20:35
 
Ответить
СообщениеМожно прямо в массиве объединять строку, типа
[vba]
Код
OutputArr(i,1)=InputArr(i,1) & InputArr(i,2) & InputArr(i,3) & InputArr(i,4) & InputArr(i,5) 'etc.
[/vba]
Наверное, скажут, что конкатенация, мол, медленно. Но если 3 и 4 сек для вас небольшая разница, то вполне норм. вариант
И еще здесь (см. "извлекаем только одну строку (10-ю)")
added
еще некоторые пишут так
[vba]
Код
OutputArr(i, 1) = Join(Array(InputArr(i, 1), InputArr(i, 2), InputArr(i, 3), InputArr(i, 4), InputArr(i, 5)), "|") 'etc.
[/vba]
разницы - практически никакой.
Автор - nilem
Дата добавления - 30.01.2018 в 20:31
bmv98rus Дата: Вторник, 30.01.2018, 20:40 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4149
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
nilem, тут правда есть опасность . 26000x15 приличный массив и одна только первичная загрузка будет не мгновенной, но в целом я о том и говорил в #2

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеnilem, тут правда есть опасность . 26000x15 приличный массив и одна только первичная загрузка будет не мгновенной, но в целом я о том и говорил в #2
Автор - bmv98rus
Дата добавления - 30.01.2018 в 20:40
bmv98rus Дата: Вторник, 30.01.2018, 21:08 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4149
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
Цитата nilem, 30.01.2018 в 20:47, в сообщении № 8 ()
26000*15 - порядка 6 Мб опер. памяти

там же текст, но не суть. У меня есть это файл, сейчас просто загружу в массив посмотрим.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Цитата nilem, 30.01.2018 в 20:47, в сообщении № 8 ()
26000*15 - порядка 6 Мб опер. памяти

там же текст, но не суть. У меня есть это файл, сейчас просто загружу в массив посмотрим.
Автор - bmv98rus
Дата добавления - 30.01.2018 в 21:08
ovechkin1973 Дата: Вторник, 30.01.2018, 21:08 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Цитата nilem, 30.01.2018 в 20:47, в сообщении № 8 ()
пробуйте, не сомневайтесь.

буду, когда с этим разберусь.. ни когда с массивами не работал. Но думаю завтра мне подскажут на работе что и как..

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщение
Цитата nilem, 30.01.2018 в 20:47, в сообщении № 8 ()
пробуйте, не сомневайтесь.

буду, когда с этим разберусь.. ни когда с массивами не работал. Но думаю завтра мне подскажут на работе что и как..
Автор - ovechkin1973
Дата добавления - 30.01.2018 в 21:08
bmv98rus Дата: Вторник, 30.01.2018, 21:46 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4149
Репутация: 772 ±
Замечаний: 0% ±

Excel 2013/2016
Подтверждаю загрузку даже незаметил
[vba]
Код
    With Worksheets("НКУ")
    arr1 = Range("A3:A25718")
    arr2 = Range("G3:H25718")
    arr3 = Range("J3:U25718")
    End With
[/vba]
дальше все просто.

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Вторник, 30.01.2018, 21:47
 
Ответить
СообщениеПодтверждаю загрузку даже незаметил
[vba]
Код
    With Worksheets("НКУ")
    arr1 = Range("A3:A25718")
    arr2 = Range("G3:H25718")
    arr3 = Range("J3:U25718")
    End With
[/vba]
дальше все просто.
Автор - bmv98rus
Дата добавления - 30.01.2018 в 21:46
ovechkin1973 Дата: Среда, 31.01.2018, 19:19 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 30.01.2018 в 21:46, в сообщении № 11 ()
дальше все просто

Кому как.. должно выглядеть для дальнейшего использования так?
Perem= arr1 & arr2 & arr3

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщение
Цитата bmv98rus, 30.01.2018 в 21:46, в сообщении № 11 ()
дальше все просто

Кому как.. должно выглядеть для дальнейшего использования так?
Perem= arr1 & arr2 & arr3
Автор - ovechkin1973
Дата добавления - 31.01.2018 в 19:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » "Сумма" части значения строки в отдельную ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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