Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Здравствуйте.
Для Вашей задачи нужно поменять буквально чуточку - ВЕСЬ МАКРОС.
Этот макрос не делает никаких уникальных и никаких сумм не подсчитывает. Он работает с объектами на листе.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
переделать с делфи код в СИ 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