Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Работа с массивами данных
 
#1
11.02.2011 11:38:52
Есть массив данных - см. приложенный файл.    
В столбце С операции в каждой ячейке перечислены  название операции, контрагент, договор, наименование препарата (!), НДС (10%, 18%). В столбце G перечисленны суммы по договорам.  
Глобаьная задача сгруппировать весь массив по препаратам (название препарата выделила красным), и далее сложить выручку по каждому перпарату за год С НДС и без НДС.  
Для решения задачи я, как понимаю, необходимо вытащить из каждой ячейки столбца С в отдельную ячейку название перпарата и в отдельную ячейку НДС (я сделала это вручную - см желтую заливку, но в ручную делать нереально, так как большой массив данных!)  
 
Помогите как нибудь автоматизировать процессс!!!!  
Спасибо!  
Марина.
 
 
 
#2
11.02.2011 12:02:54
{quote}{login=mbobkova83}{date=11.02.2011 11:38}{thema=Работа с массивами данных}{post}Есть массив данных - см. приложенный файл.    
В столбце С операции в каждой ячейке перечислены  название операции, контрагент, договор, наименование препарата (!), НДС (10%, 18%). В столбце G перечисленны суммы по договорам.  
Глобаьная задача сгруппировать весь массив по препаратам (название препарата выделила красным), и далее сложить выручку по каждому перпарату за год С НДС и без НДС.  
Для решения задачи я, как понимаю, необходимо вытащить из каждой ячейки столбца С в отдельную ячейку название перпарата и в отдельную ячейку НДС (я сделала это вручную - см желтую заливку, но в ручную делать нереально, так как большой массив данных!)  
 
Помогите как нибудь автоматизировать процессс!!!!  
Спасибо!  
Марина.{/post}{/quote}  
 
Function sp1s(txt$, numstr&)  
Dim a  
a = Split(txt, ChrW(10))  
sp1s = a(numstr - 1)  
End Function  
 
когда  то для главбуха сделал, вот счастлива была!
Спасибо
 
 
 
#3
11.02.2011 12:04:05
{quote}{login=R Dmitry}{date=11.02.2011 12:02}{thema=Re: Работа с массивами данных}{post}{quote}{login=mbobkova83}{date=11.02.2011 11:38}{thema=Работа с массивами данных}{post}Есть массив данных - см. приложенный файл.    
В столбце С операции в каждой ячейке перечислены  название операции, контрагент, договор, наименование препарата (!), НДС (10%, 18%). В столбце G перечисленны суммы по договорам.  
Глобаьная задача сгруппировать весь массив по препаратам (название препарата выделила красным), и далее сложить выручку по каждому перпарату за год С НДС и без НДС.  
Для решения задачи я, как понимаю, необходимо вытащить из каждой ячейки столбца С в отдельную ячейку название перпарата и в отдельную ячейку НДС (я сделала это вручную - см желтую заливку, но в ручную делать нереально, так как большой массив данных!)  
 
Помогите как нибудь автоматизировать процессс!!!!  
Спасибо!  
Марина.{/post}{/quote}  
 
Function sp1s(txt$, numstr&)  
Dim a  
a = Split(txt, ChrW(10))  
sp1s = a(numstr - 1)  
End Function  
 
когда  то для главбуха сделал, вот счастлива была!{/post}{/quote}  
 
 
сгрупируете уже сами
Спасибо
 
 
 
#4
11.02.2011 12:14:41
{quote}{login=R Dmitry}{date=11.02.2011 12:04}{thema=Re: Re: Работа с массивами данных}{post}{quote}{login=R Dmitry}{date=11.02.2011 12:02}{thema=Re: Работа с массивами данных}{post}{quote}{login=mbobkova83}{date=11.02.2011 11:38}{thema=Работа с массивами данных}{post}Есть массив данных - см. приложенный файл.    
В столбце С операции в каждой ячейке перечислены  название операции, контрагент, договор, наименование препарата (!), НДС (10%, 18%). В столбце G перечисленны суммы по договорам.  
Глобаьная задача сгруппировать весь массив по препаратам (название препарата выделила красным), и далее сложить выручку по каждому перпарату за год С НДС и без НДС.  
Для решения задачи я, как понимаю, необходимо вытащить из каждой ячейки столбца С в отдельную ячейку название перпарата и в отдельную ячейку НДС (я сделала это вручную - см желтую заливку, но в ручную делать нереально, так как большой массив данных!)  
 
Помогите как нибудь автоматизировать процессс!!!!  
Спасибо!  
Марина.{/post}{/quote}  
 
Function sp1s(txt$, numstr&)  
Dim a  
a = Split(txt, ChrW(10))  
sp1s = a(numstr - 1)  
End Function  
 
когда  то для главбуха сделал, вот счастлива была!{/post}{/quote}  
 
 
сгрупируете уже сами{/post}{/quote}  
 
Дмитрий!!!!!!  
Спасибо за ответ!!!!!  
сгруппирую конечно же сама, НО  
 
подскажите тугодуму куда вставить    
эту штуку    
Function sp1s(txt$, numstr&)  
Dim a  
a = Split(txt, ChrW(10))  
sp1s = a(numstr - 1)  
End Function  
 
постадийно. я так понимаю это в Visual basic надо вставить?????  
Подскажите!!!!!
 
 
 
#5
11.02.2011 12:30:56
{quote}{login=R Dmitry}{date=11.02.2011 12:04}{thema=Re: Re: Работа с массивами данных}{post}{quote}{login=R Dmitry}{date=11.02.2011 12:02}{thema=Re: Работа с массивами данных}{post}{quote}{login=mbobkova83}{date=11.02.2011 11:38}{thema=Работа с массивами данных}{post}Есть массив данных - см. приложенный файл.    
В столбце С операции в каждой ячейке перечислены  название операции, контрагент, договор, наименование препарата (!), НДС (10%, 18%). В столбце G перечисленны суммы по договорам.  
Глобаьная задача сгруппировать весь массив по препаратам (название препарата выделила красным), и далее сложить выручку по каждому перпарату за год С НДС и без НДС.  
Для решения задачи я, как понимаю, необходимо вытащить из каждой ячейки столбца С в отдельную ячейку название перпарата и в отдельную ячейку НДС (я сделала это вручную - см желтую заливку, но в ручную делать нереально, так как большой массив данных!)  
 
Помогите как нибудь автоматизировать процессс!!!!  
Спасибо!  
Марина.{/post}{/quote}  
 
Function sp1s(txt$, numstr&)  
Dim a  
a = Split(txt, ChrW(10))  
sp1s = a(numstr - 1)  
End Function  
 
когда  то для главбуха сделал, вот счастлива была!{/post}{/quote}  
 
 
сгрупируете уже сами{/post}{/quote}  
 
Дмитрий!!!!!  
 
ой, я заметила, что вы прикрепили файлик мой назад и там все работает!  
вот я тетеря - сразу не увидела))))))  
 
 
Спасибо огромное!!!!!
 
 
 
#6
11.02.2011 12:37:54
{quote}{login=R Dmitry}{date=11.02.2011 12:04}{thema=Re: Re: Работа с массивами данных}{post}{quote}{login=R Dmitry}{date=11.02.2011 12:02}{thema=Re: Работа с массивами данных}{post}{quote}{login=mbobkova83}{date=11.02.2011 11:38}{thema=Работа с массивами данных}{post}Есть массив данных - см. приложенный файл.    
В столбце С операции в каждой ячейке перечислены  название операции, контрагент, договор, наименование препарата (!), НДС (10%, 18%). В столбце G перечисленны суммы по договорам.  
Глобаьная задача сгруппировать весь массив по препаратам (название препарата выделила красным), и далее сложить выручку по каждому перпарату за год С НДС и без НДС.  
Для решения задачи я, как понимаю, необходимо вытащить из каждой ячейки столбца С в отдельную ячейку название перпарата и в отдельную ячейку НДС (я сделала это вручную - см желтую заливку, но в ручную делать нереально, так как большой массив данных!)  
 
Помогите как нибудь автоматизировать процессс!!!!  
Спасибо!  
Марина.{/post}{/quote}  
 
Function sp1s(txt$, numstr&)  
Dim a  
a = Split(txt, ChrW(10))  
sp1s = a(numstr - 1)  
End Function  
 
когда  то для главбуха сделал, вот счастлива была!{/post}{/quote}  
 
 
сгрупируете уже сами{/post}{/quote}  
 
Дмиртий,  
простите еще раз, за то что развела тут свою активность, но я копирую вашу ЧУДО ФУНКЦИЮ в другой документ и мне вместо необходимых данных в ячейке пишется #ИМЯ?. справка по этой функции недоступна.  
Я что то не так делаю в экселе.  
 
 
Сижу грущу.......  
Помогите плиз!
 
 
 
#7
11.02.2011 12:48:00
В другой документ нужно копировать не только то, что написано в строке формул, но  и то, что написано в модуле, вернее весь модуль.  
А точнее вот: http://www.planetaexcel.ru/forum.php?thread_id=24235
 
 
 
#8
11.02.2011 12:48:44
1. Функция должна быть в файле, в котором работаете, или в файле personal.xls.  
Как сделать:  
Вариант 1 Открыть файл, в котором будете работать, надавить Alt+F11 - откроется редактор VBA. П.Меню Insert - Module. В большом окне справа вверху вставляете текст функции. И так для каждого файла, где она нужна. :)  
Вариант 2 Открыть файл в котором функция уже есть, открыть файл, где ее еще нету и через мастер функций в разделе "определенные пользователем" находите функцию и работаете.  
Вариант 3. Октрыть файл personal.xls, который лежит, как правило в C:\Documents and Settings\Имя_пользователя\Application Data\Microsoft\Excel\XLSTART    
вставить туда код функции (как в варианте 1). Сохранить. Данная функция будет доступна во всех файлах при работе на ЭТОЙ машине.
 
 
 
#9
11.02.2011 13:05:04
{quote}{login=}{date=11.02.2011 12:48}{thema=}{post}1. Функция должна быть в файле, в котором работаете, или в файле personal.xls.  
Как сделать:  
Вариант 1 Открыть файл, в котором будете работать, надавить Alt+F11 - откроется редактор VBA. П.Меню Insert - Module. В большом окне справа вверху вставляете текст функции. И так для каждого файла, где она нужна. :)  
Вариант 2 Открыть файл в котором функция уже есть, открыть файл, где ее еще нету и через мастер функций в разделе "определенные пользователем" находите функцию и работаете.  
Вариант 3. Октрыть файл personal.xls, который лежит, как правило в C:\Documents and Settings\Имя_пользователя\Application Data\Microsoft\Excel\XLSTART    
вставить туда код функции (как в варианте 1). Сохранить. Данная функция будет доступна во всех файлах при работе на ЭТОЙ машине.{/post}{/quote}  
 
УРА!!!!!!!  
теперь работает!
 
 
 
#10
11.02.2011 13:24:08
{quote}{login=Hugo}{date=11.02.2011 12:48}{thema=}{post}В другой документ нужно копировать не только то, что написано в строке формул, но  и то, что написано в модуле, вернее весь модуль.  
А точнее вот: http://www.planetaexcel.ru/forum.php?thread_id=24235{/post}{/quote}  
 
 
Все больше и больше ВЛЮБЛЯЮСЬ в этот сайт и в людей, которые здесь тусят!
 
 
 
#11
11.02.2011 13:30:00
Рад был помочь  
Я думаю Вы разобрались, что можно  и контрагента получить
Спасибо
 
 
 
#12
11.02.2011 14:08:35
"Все больше и больше ВЛЮБЛЯЮСЬ в этот сайт и в людей, которые здесь тусят!"  
 
Ошибаетесь - здесь не "тусят"  
P.S. И не увлекайтесь цитированием.
 
 
 
#13
11.02.2011 14:48:19
Оффтоп.  
 
А между "Тыц-Тыц" трясут своими "булками" под "Баден-Баден" Excel'я...  
 
P.S. Не здержался :)
<FONT COLOR="CadetBlue">
 
 
 
#14
11.02.2011 15:45:47
{quote}{login=R Dmitry}{date=11.02.2011 01:30}{thema=}{post}Рад был помочь  
Я думаю Вы разобрались, что можно  и контрагента получить{/post}{/quote}  
 
Да, Дмитрий, разобралась!!!!  
Спасибо и низкий поклон:)
 
 
 
Страницы: 1
Читают тему
Loading...