Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / нужен код / 9 сообщений из 9, страница 1 из 1
20.05.2010, 11:38
    #36638486
breddred
breddred
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
Добрый всем день!
Какой макрос следует прописать(и как), чтобы выполнить следующую задачу.

Эксель -файл данных из 5 столбцов A B C D E

Самые важные столбцы A , D( номер ID -код) и E(сумма в рублях и долларах)

В столбце D существует два вида кода: те, что начинаются с "RUB"( например RUB0000) и те, что начинаются с "USD" (Пример USD100).

В столбце A находится личный код компании( не ID!) и он в столбце часто удваивается, иногда утраивается, иначе говоря может повторяться.

ЧТО НУЖНО:
Нужно, чтобы макрос делал следующее:
1) сортировал D только по RUB, а DOL удалял(DOL они вообще не нужны, не используются и мозолят глаза)
2) Все что дублируется в A оставлять только в одной строке и показывать в E сразу сумму в рубл по дублируемым строкам.

Обычно приходится это делать вручную.
Я бы с удовольствием прислал файл, его набросок, но нет доступа на работе и возможности выложить.
Надеюсь понятно объяснил. Как решить эту задачу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2010, 13:28
    #36638922
breddred
breddred
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
сразу скажу, что вариант использовать Сводную таблицу не подходит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2010, 14:02
    #36639036
breddred
breddred
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
то что сейчас

CODE NAME ID CASH
11111 РОМАН RUB0695 13
11111 РОМАН RUB0695 10
11111 РОМАН RUB0695 20
212 ПЕТР DOL8999 4
212 ПЕТР DOL8999 8
58900 ПАВЕЛ RUB7591 15
3970 ОЛЕГ RUB1313 3
3970 ОЛЕГ RUB1313 11



то что нужно чтобы было


CODE NAME ID CASH
11111 РОМАН RUB0695 43
58900 ПАВЕЛ RUB7591 15
3970 ОЛЕГ RUB1313 14
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2010, 15:08
    #36639262
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
breddredсразу скажу, что вариант использовать Сводную таблицу не подходит.
А формулы?
Если да, рисуйте пример.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.05.2010, 15:11
    #36639274
breddred
breddred
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
Товарищи-Программисты, у кого какие идеи?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2010, 10:21
    #36640800
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
breddred,


Если для вас удаление не критично, то сводная таблица.
Кстати, почему она вам не подходит ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2010, 16:10
    #36641987
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
Книга с данными должна быть закрыта.
Результаты запроса к ней помещаем в книгу, содержащую эту процедуру:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim cn As Object, rs As Object, fld As Object, i As Integer
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\путь_к_файлу\breddred.xls;Extended Properties=Excel 8.0"
Set rs = cn.Execute("SELECT CODE,NAME,ID,SUM(CASH) AS CASH FROM [лист1$] WHERE ID LIKE 'RUB%' GROUP BY NAME,CODE,ID")
With ThisWorkbook.Worksheets("Лист1")
    For i =  0  To rs.Fields.Count -  1 
        .Cells( 1 , i +  1 ) = rs.Fields(i).Name
    Next i
    .Cells( 2 ,  1 ).CopyFromRecordset rs
End With
cn.Close
Set rs = Nothing: Set cn = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2010, 16:12
    #36641996
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
Объявление 'Dim fld As Object' - лишнее (можно удалить).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2010, 16:47
    #36642112
Cyberbob
Cyberbob
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нужен код
Сначала попробйте SUMIF (СУМЕСЛИ), а как это деляется смотрите в www.planetaexcel.ru -> примеры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / нужен код / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 346ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178092]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 18ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 243ms
total:  346ms
x
x
Закрыть


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