|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2010, 19:38 | #1 |
Регистрация: 03.11.2007
Сообщений: 5
|
как переделать код макроса
Добрый день! нужна подсказка. есть макрос который удаляет дубль значения суммируя количество.
тоесть : столбец (А) разбор уникальных. столбец (В) суммирет КОЛИЧЕСТВО. а надо что бы и столбец (С) суммировал. тоесть ЦЕНА. и еще, параметр какой строки я должен поменять, что бы, скажем поменять столбцы местами по желанию(А)на (E),(B)на (D)и тд заранее спасибо! Sub Poiskkartinki() ' ' Ìàêðîñ1 Ìàêðîñ ' Ìàêðîñ çàïèñàí 15.05.2010 (Dell) ' ' Ñî÷åòàíèå êëàâèø: Ctrl+z ' 'Sub redUALING() 'If Not Application.Intersect(Target, Range("b1:b6000")) Is Nothing Then 'ctobi srabotala_ 'Dim poza As Object Dim sh As Shapes, s As Shape poz = ActiveCell.Value 'qwet = MsgBox("Âû èùèòå êàðòèíêó - " & poz, vbYesNo) 'If qwet = vbNo Then Exit Sub ActiveCell.Copy Cells(65536, 256) ActiveSheet.Pictures.Delete On Error GoTo Findler Range("m1").Select ActiveSheet.Pictures.Insert("F:\BYH GALTERIYA\Foto\" & Cells(65536, 256).Value & ".jpg").Select 'ActiveSheet.Pictures.Insert("C:\FO TO_JEL\" & ActiveCell.Value & ".jpg").Select Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft 'razmer Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft 'razmer Exit Sub Findler: 'MsgBox "Ôîòî âûäåëåííîãî Àðòèêóëà1 - ÍÅÒ â ÁÀÇÅ Äàííûõ!" _ '& vbCrLf & " Îáðàòèòåñü ê Àäìèíèñòðàòîðó.", vbInformation, "Îøèáêà ïîèñêà êàðòèíêè !?!" End Sub |
25.05.2010, 20:57 | #2 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Здравствуйте.
Для Вашей задачи нужно поменять буквально чуточку - ВЕСЬ МАКРОС. Этот макрос не делает никаких уникальных и никаких сумм не подсчитывает. Он работает с объектами на листе.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
переделать с делфи код в СИ | Dezolyator | Фриланс | 7 | 24.05.2010 23:19 |
Как переделать код? | P®o©omp@s | Помощь студентам | 2 | 26.10.2009 19:21 |
Переделать код | Hepri | Работа с сетью в Delphi | 3 | 20.08.2009 20:28 |
код для макроса | oboevrulon | Microsoft Office Excel | 7 | 10.06.2009 10:39 |
Помогите переделать код | stayer | Общие вопросы Delphi | 3 | 25.10.2008 21:09 |