Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Макросы в Exel, Проблема 
:(
    Опции темы
andersan2000
Дата 27.2.2009, 00:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.2.2009

Репутация: нет
Всего: нет



Добрый вечер форумчане! На форуме я новенький - но у меня к Вам есть вопрос.

Можно ли с помощью макроса в Exel задать такое условие:

Например: 

Есть текстовый файл с  данными типа   79876 и его количество 5 шт.

еще одни данные 45648 и 34 шт.

И если данные типа 79876 повторяются далее в текстовом файле, что бы Exel в отдельной ячейке выводил 

сумму по данным типа 79876. Т.е суммировал количество по повторяющемуся номеру и в тоже время выводил инфу типа:

79876 - 5шт
45648 - 34шт

и т.д.

Заранее благодарен.  smile 


PM MAIL   Вверх
Naghual
Дата 27.2.2009, 00:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49



Можно.
Даже без VBA


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
andersan2000
Дата 27.2.2009, 01:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.2.2009

Репутация: нет
Всего: нет



подскажи как? очень надо smile
PM MAIL   Вверх
RockClimber
Дата 27.2.2009, 09:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Цитата(andersan2000 @  27.2.2009,  00:23 Найти цитируемый пост)
Есть текстовый файл с  данными типа   79876 и его количество 5 шт.
еще одни данные 45648 и 34 шт.

Непонятно условие.
В некоторых ячейках стоит "79876", а в других - "45648"?
Тогда: формула СЧЁТЕСЛИ()
На VBA - WorksheetFunction.SumIf()
Цитата(andersan2000 @  27.2.2009,  00:23 Найти цитируемый пост)
Можно ли с помощью макроса в Exel 

На вопрос "можно" - ответ "да"
На вопрос "как" - ответ, как...  smile 


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
andersan2000
Дата 27.2.2009, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.2.2009

Репутация: нет
Всего: нет



первое число -это данные по условию, второе его количество.Вопрос в следующем:

Как сделать так, что бы при повторении первого числа в текстовом файле - суммировалось его количество и выводилось 

в отдельную ячейку, типа 

79876 - 5шт
45648 - 34шт

Например

Данные

234423 -23
5646 -34
546547 -12
756756 -56
5646 -3
756756 -20

Что бы в итоге было: 5646=37
                                    756756 =76
PM MAIL   Вверх
Staruha
Дата 2.3.2009, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



1.Сортируешь.
2.Обрабатываешь каждую строку как массив.Разделитель "-"
3.Присваиваешь переменной Str значение первого элемента массива первой строки.
4.Идешь по строкам и суммируешь второй элемент массива (If Str=cells(i,1) then ...суммируешь else Str=cells(i,1) (присваиваешь новое значение).
5.rezultat=cells(k,2)


--------------------
Возмездие настигнет
PM MAIL   Вверх
RockClimber
Дата 2.3.2009, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Цитата(RockClimber @  27.2.2009,  09:12 Найти цитируемый пост)
Тогда: формула СЧЁТЕСЛИ()
На VBA - WorksheetFunction.SumIf()

В прошлый раз я имел ввиду не SumIf(), а CountIf().
Сейчас, с учетом уточнения, как раз понадобится функция WorksheetFunction.SumIf() для VBA или ее аналог СУММЕСЛИ() (если без макроса).

Это сообщение отредактировал(а) RockClimber - 2.3.2009, 13:00

Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  1.zip 1,38 Kb


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
andersan2000
  Дата 5.3.2009, 00:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.2.2009

Репутация: нет
Всего: нет



ООоО  спасибо за прикрепленный файл - а можно его немного усовершенствовать?
Что бы при повторе значения столбца "А" в столбце "С" не выводилась сумма повторяющегося данного - 
а сама сумма прибавлялась автоматом в данные  которые уже были. Просто немного не удобно - когда человек будет 
смотреть в цифры - количество по данным будет повторяться - что еще больше запутает. Если можно?? smile 
PM MAIL   Вверх
RockClimber
Дата 5.3.2009, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Честно говоря, не совсем понял... Вот два варианта, как я понял вопрос...
А еще можно сводную таблицу сделать...

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  2.zip 1,52 Kb


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
andersan2000
Дата 6.3.2009, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.2.2009

Репутация: нет
Всего: нет



Смотри я тебя в принципе понял, в прикрепленном файле я поставил примечания, что бы хотелось видеть

в итоге. Так я думаю будет намного нагляднее. Спасибо за помощь! smile 

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  2.rar 4,49 Kb
PM MAIL   Вверх
RockClimber
Дата 9.3.2009, 03:06 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15



Оно?

Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  1.zip 5,37 Kb


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
andersan2000
Дата 10.3.2009, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 27.2.2009

Репутация: нет
Всего: нет



Да это оно - спасибо тебе огромное!Выручил
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0986 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.