Автор: Hostyle. Всем Доброго, уважаемые форумчане! Помогите, пожалуйста, решить задачу. Суть: Есть 2 столбца, в первом встречаются повторяющиеся значения. Нужно удалить дубли, при этом сложить значения в ячейках этих же строк во втором столбце. Пробовал с помощью словаря решить - не хватило знаний, как результат: дубли просто исчезли из списка совсем. Пример приложил. Sub stringSummary() Dim wb As Workbook Dim ws As Worksheet, wsT As Worksheet Dim arr2, dict Dim i%, elem As Variant, n& Set wb = ...

Автор: R0mi1. Здравствуйте! Имеется таблица с данными в эксель. Нужно установить две кнопки 1) Сохранить в файлы, 2)Отправить адресату 1)Сохранять в файл необходимы следующие данные.       1.1 Первые 4 строки(Шапка) из таблицы(исходник)       1.2 Каждую последующую строку(с шапкой в отдельный файл(xlsx) образец  приложу.       1.3 Файл должен называться 1-й ячейкой  из строки       1.4  Если в 1-й ячейке строки пусто, тогда пропускаем. 2)Отправить адресату     2.1 Отправить по e-mail (список ...

Автор: anna_bella_valentina. Добрый день! Есть отчет на 3 листа, один из них сводный. На первом и втором листе сделаны гиперссылки на итоговую таблицу и зашит простой макрос на фильрацию: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)     ActiveSheet.Range("ФП").AutoFilter 16, Target.TextToDisplay End Sub Но макрос отрабатывает криво. При переходе с гиперссылки всегда фильтрует по первому значению с листа, а не по тому значению с которого переходим. Подскажите, ...

Автор: G_110036246309433414584. Добрый день. Есть столбец в таблице. В этом столбце 1000 ячеек с различными номерами. Мне надо заменить в этом столбце некоторые из них (313, 216, 237, 391, 127, 190, 127, 402, 407) на текст Д/Р. Подскажите пожалуйста макрос для реализации этой задачи. З.Ы. Одно и тоже значение в столбце в таблице может повторяться более 30 раз

Автор: esk_. Здравствуйте!  Подскажите, пожалуйста, как изменить следующий макрос, чтобы можно были добавлять тень не  для исключительно выделенных картинок, но для всех картинок в презентации:  Sub MakeShadow()     Dim i As Integer     With ActiveWindow.Selection.ShapeRange.shadow         For i = 1 To 2             .ForeColor.RGB = RGB(220, 220, 220)             .Transparency = 0.35             .Visible = True             .Blur = 10             .OffsetX = 5             .OffsetY = ...

...  в другую книгу с помощью кнопки, поиск в интернете нечего не ... из-за незнания макросов получался всякий бред.  Код макроса для кнопки на перемещение ...

Автор: SHARP. По отдельности работает и Click и DblClick, а при совмещении перестает выдавать 4 Private Sub Button_Click() If Button.Caption = "1" Then Button.Caption = "2" Else Button.Caption = "1" End If End Sub Private Sub Button_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Button.Caption = "3" Then Button.Caption = "4" Else Button.Caption = "3" End If End ...

Автор: Ferenco. Привет команда "Планеты Эксель". Есть такая задача: Нужно с ексель файла открывать ТХТ файл определенной структуры - каждый столбик разделяется знаком "@". Как открывать текстовый файл с екслель макросом, и разбивать его на столбик? Столбики разделяются знаком "@" В разных случаях кол-во этих столбиков может быть разньім. Нужно чтобы результат этого выносился в определенную вкладку этого же файла. Без макросов не обойтись. Я пробовал, не получилось ...

... кнопкой OK?  Нигде не смог в интернете найти именно добавление надписи макросом ... . Знаю некоторые базовые вещи по макросам, поэтому не ... был создан при записи макроса нажатием соответствующей кнопки :) Вставка синего ценника Sub ... Auto_Open() ' ' Макрос создающий фигуру с ценником ... открытии или при нажатии на кнопку ' Сочетание клавиш: Ctrl+f '     ActiveSheet ...

Автор: tru. Добрый день всем! задаю тему которая не однократно обсуждалась. (пересмотрел все ответы на форуме нужного не нашел) нужно поправить макрос который ищет частичное совпадение выделенных ячеек и окрашивает в цвета но он не видит совпадения такого плана 0604B JF-K0604B подскажите как сделать что бы показывал такие совпадения Public Sub MarkDuplicates() Dim t$ On Error Resume Next Colors = Array(12900829, 15849925, 14408946, 14610923, 15986394, 14281213, 14277081, _ ...

Автор: pnd. Здравствуйте уважаемые! В виду отсутствия опыта работы с VBA прошу помощи, так как срочно стоит задача. Даны строки данных (БД) из которых необходимо выбрать каждую в отдельный  диапазон (0...3,0 с шагом 0,3)  по значению из одного столбца, далее в выбранном диапазоне (например 0..0,3) необходимо по найденным точкам построить график, где y=значение столбца в пределах 0..0,3, а  x=значение другого столбца в диапазоне 0 до 20. столбец с значениями Х редко доходить до 1 и иногда ...

Автор: kabanovga. Здравствуйте. Столкнулся со следующей проблемой. В Exel с помощью макроса выгружаю массив данных - продажи за период (Около 5000 строк). Далее макрос растягивает формулы рядом с этим массивом. Получается довольно тяжеловесный массив. Авто пересчет я отключать не хочу,  поэтому хочу просто по выполнению расчета копировать массив с формулами и вставлять значения (Они мне в дальнейшем не нужны все равно). Все было бы хорошо, но массив не успевает рассчитать значения, а макрос уже ...

Автор: rudolfxcp. Для научной деятельности возникла необходимость написать макрос. Вспомнил университетские годы и написал, но он не считает необходимые данные. Точнее ничего не запускает. Хотя должен! Так что, уважаемые форумчане, прошу помочь найти ошибку. Код корявый до ужаса, сам понимаю, что-то не знал вообще как определить, поэтому вводил жуткие костыли, но пусть даже корявый - должен работать. Excel 2007. По большому счету мне нужно только последнее значение (sum) которое должно ...

Автор: simon100500. Здравствуйте! Делаю макрос, который после запуска позволит выбрать ... выбора диапазона. Повесил на кнопку формы такой макрос. Для связанного диапазона работает ... прилагаю. Подскажите, как сделать, чтобы макрос выполнялся и для несвязанного диапазона ...