Страницы: 1 2 3 4 5 6 След.
Поиск
Удаление дубликатов строки.
Автор: 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 = ...
Теги: VBA, Excel, Макрос
Изменен: 24.04.2025
Читать сообщение на форуме или сайте.
Изменение массива, являющегося значением Dictionary, Правильный способ изменить значение Dictionary, которое является динамическим массивом
Автор: Сергей. Здравствуйте. В процессе процедуры формирую Dictionary, в котором текстовым ключам соответствуют наборы данных. Эти наборы надо изменять, и наиболее логичным представляется динамический массив. Примерный код, который я хотел бы видеть:Sub test()     Dim test_dict As Object     Set test_dict = CreateObject("Scripting.Dictionary")     Dim start_vals_arr() As Single     ReDim start_vals_arr(0)     start_vals_arr(0) = 15.87     test_dict.Add "Test_key", ...
Изменен: 30.03.2025
Читать сообщение на форуме или сайте.
Как с помощью VBA фильтровать уникальные значения по столбцу L и добавлять их в столбец A на втором листе?
Автор: amarok36. Добрый день! Подскажите, как средствами VBA сделать следующие действия. - Фильтровать уникальные значения по столбцу L и добавлять их в любой условный столбец на втором листе, к примеру в столбец A. - Для каждого уникального значения из столбца L выбирать соответствующие ему значения из столбца K (строк может получиться несколько) и добавлять эти значения в столбец B на втором листе. Для других столбцов нужно делать примерно то же самое, но я уже сориентируюсь по аналогии этих ...
Изменен: 11.03.2025
Читать сообщение на форуме или сайте.
Нахождение суммы произведений итоговых строк, минуя скрытые., Формула Excel
Автор: KrutojBep. Добрый день. Прошу помочь с формулой, которая бы выполняла бы ту же работу, что и СУММПРОИЗВ, только для итоговых строк, не обращая внимание на скрытые, как показано в файле на примере. Странно что в промежуточных итогах нет для этого отдельной функции, как для многих других операций.
Теги: формула
Изменен: 18.12.2024
Читать сообщение на форуме или сайте.
Сделать вертикальное объединение нескольких умных таблиц из разных книг
Автор: Georgiy19. Добрый день! Я понимаю, что вопрос примитивный, но я не могу для такой примитивной задачи найти простое решение. В общем, исходные данные: несколько книг Excel, в каждой книге один лист, на листе одна умная таблица (которая Ctrl + T делается). Шапка у каждой таблицы одинаковая, разным является только содержимое. Мне нужно, чтобы в отдельной книге при ее запуске появлялась одна умная таблица, которая складывается из нескольких таблиц, указанных выше. Насколько я понял, это можно ...
Изменен: 17.12.2024
Читать сообщение на форуме или сайте.
Как мне раскрывать все листы при открытии любой книги excel? а точнее присвоить tabratio = 0.6?
Автор: Kukr47. Нужно чтобы при открытии любой книги excel у меня раскрывались листы снизу, а точнее ползунок этот уменьшался. Нашел такой код и он рабочий, но как я понимаю не в надстройке... я создал надстройку и прописал там вот так Private Sub Workbook_Open()    ActiveWindow.DisplayWorkbookTabs = True    ActiveWindow.TabRatio = 0.7 End Sub он ругается на ActiveWindow  потому что он пустой, вопрос, можно ли как-то осуществить то что мне нужно? мне нужно TabRatio =0.6, нужно для выгруженных из ...
Изменен: 17.12.2024
Читать сообщение на форуме или сайте.
Вывод "задвоенных" значений на новом листе (VBA), Дублирование результата
Автор: huizz. Добрый вечер! Необходима помощь опытных форумчан. Написал маленький код VBA (файл пример во вложении). Столкнулся с проблемой вывода корректных значений. Данный код должен собирать информацию со всех таблиц и вставлять "друг под другом" на отдельном листе. Однако, на выходе я получаю задвоенный результат (строка копируется два раза). Буду рад любой помощи
Теги: VBA
Изменен: 16.10.2024
Читать сообщение на форуме или сайте.
Всплывающая подсказка для кнопки с макросом
Автор: Дорожный. Может кто-нибудь решил задачу всплывающих подсказок у кнопки с макросом. Если кнопки миниатюрны и на них невозможно разместить поясняющий текст, то пользователю проекта могла бы помочь всплывающая подсказка при наведении курсора на кнопку, как это есть даже в самом Excel в меню. Если, к примеру, использовать гиперссылку, которая создает подсказку у кнопки, то назначенный кнопке макрос слетает. Можно еще попытаться создавать примечания у ячеек где расположена кнопка, но и это не ...
Теги: VBA
Изменен: 04.10.2024
Читать сообщение на форуме или сайте.
Сохранение связанного файла в формате pdf используя данные из поля слияния MERGEFIELD в имени файла, слияние, сохранение в pdf, макрос, MERGEFIELD
Автор: afonason. Есть таблица с данными Excel "export (19)" и связанный файл Word "Ответ об отказе срок_"  который автоматически заполняется через поле слияния (MERGEFIELD) Задача с помощью макроса сохранить Word файл в формате .pdf с определённым именем (добавить к имени файла № претензии который подгружается в поле слияния { MERGEFIELD Номер_претензии }) Нашел макрос похожего действия, но он добавляет текст к названию из поля со списком. Как сделать ссылку на поле слияния ( ...
Изменен: 22.08.2024
Читать сообщение на форуме или сайте.
Подтягивание данных из нескольких таблиц (VBA), Нужно подтянуть данные на основе списка
Автор: Никита Митрофанов. Здравствуйте! У меня такая проблема: нужно с помощью макроса сделать подтягивание значений из двух таблиц в третью по уникальным значениям в одном столбце (все остальные пустые). Значения из других таблиц могут быть в случайном порядке. Знаю, что есть ВПР() в функциях, но он не подойдет, потому что таблиц больше, да и это нужно делать будет много раз. Тест - таблица в которую заливать 1 и 2 - таблицы со значениями безымянный рисунок - примерно что должно быть перенесено ...
Теги: VBA
Изменен: 21.08.2024
Читать сообщение на форуме или сайте.
Не срабатывают несколько условий ЕПУСТО
Автор: Verticalx. Добрый день, В ячейке записана следующая формула: =ЕСЛИМН(D290;"";ЕПУСТО(D29)*ЕПУСТО(D12);C12;ЕПУСТО(D29)*ЕПУСТО(С12);D12) Но почему-то условие ЕПУСТО для C12 и D29 не срабатывают, выходит ошибка #Н/Д Не подскажите почему и как это исправить? Во вложении таблица с этой формулой для проверки. Если удалить значение из ячейки D29, то в результирующей ячейке C29 будет ошибка Спасибо заранее.
Изменен: 18.08.2024
Читать сообщение на форуме или сайте.
Не работает макрос фильтрующий столбец при переходе с гиперссылки , При переходе с гиперссылки фильтрует не то значение
Автор: anna_bella_valentina. Добрый день! Есть отчет на 3 листа, один из них сводный. На первом и втором листе сделаны гиперссылки на итоговую таблицу и зашит простой макрос на фильрацию: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)     ActiveSheet.Range("ФП").AutoFilter 16, Target.TextToDisplay End Sub Но макрос отрабатывает криво. При переходе с гиперссылки всегда фильтрует по первому значению с листа, а не по тому значению с которого переходим. Подскажите, ...
Изменен: 18.08.2024
Читать сообщение на форуме или сайте.
Как с помощью макроса протянуть формулу до конца таблицы на каждом листе
Автор: Ivaroms. Добрый день! Искал по Форуму, пробовал прописать самостоятельно, но как-то криво выходит... У нас есть книга, в которой может быть сотни листов, на каждом листе таблица, таблицы имеют разное количество строк, но одинаковую структуру. Нам необходимо прописать в столбце Q начиная с 9-ой строки на каждом листе формулу до конца таблицы( грубо говоря протянуть). Помогите, пожалуйста, с написанием кода! =IF(RC[-13]>0,IF(OR(AND(NOT(RC[-8]=0),RC[-8]'0'!R1C3),& ...
Теги: VBA
Изменен: 12.08.2024
Читать сообщение на форуме или сайте.
Сумма столбца в VBA
Автор: kare. Здравствуйте , подскажите пожалуйста как подсчитать сумму 7 столбца в vba? Dim s As Long s = Cells(Rows.Count, 7).End(xlUp).Row + 1пытаюсь определить последнюю запуленною ячейку и добавить строчку для итога но дальше дело не идет(
Теги: VBA
Изменен: 21.12.2017
Читать сообщение на форуме или сайте.
Зависимые списки в Combobox (VBA)
Автор: Dost1369. Добрый день, уважаемые форумчане! Суть проблемы: Есть сводный перечень, в котором наименования (столбец C) принадлежат разным объектам (столбец B), необходимо сделать так, чтобы в Combobox1 для выбора выдавался перечень объектов (сейчас я это сделал  при помощи AddItem), а в Combobox2 перечень наименований, соответсвующий выбранному объекту. Для понимания работы желаемого - сделал табличку в фиолетовой рамке на листе "Выбор". Для вызова формы - добавил ...
Теги: VBA
Изменен: 13.09.2017
Читать сообщение на форуме или сайте.
Обход ограничения \\ Каждое слово в отдельной СТРОКЕ
Автор: RazorBaze. Стандартная функция Excel "Заполнить" > "Выровнять" (она же в VBA: "Selection.Justify") работает только с первыми 255 символами в ячейке, как и множество других подлых функций (например, "СЧЁТЕСЛИ"). Возможно ли обойти это ограничение? Возможно ли написать пользовательскую функцию? Может есть вообще другой способ? Задача: преобразовать текст в ячейке таким образом, чтобы рядом с ним создалось ...
Теги: VBA
Изменен: 09.09.2017
Читать сообщение на форуме или сайте.
Формирование и вывод списка по значению в ячейке
Автор: BladzheR. Добрый день! Необходимо сделать выпадающий список с данными в одной ячейке, но этот список должен автоматически меняться в зависимости от значения в определенной ячейке. Пример в файле прилагаю...
Изменен: 28.08.2017
Читать сообщение на форуме или сайте.
Выпадающий список во время редактирования ячейки
Автор: RazorBaze. Все знают, что если начать ячейку с "=", а следом ввести букву (например, "Е") - появится список функций, начинающихся на эту букву: - ЕОШИБКА - ЕСЛИ - ЕСЛИПУСТО - ЕССЫЛКА - ЕТЕКСТ - ЕЧИСЛО, и т.д. При этом, если после "Е" поставить букву "С" - все несовпадения отсеются, и останутся только: - ЕСЛИ - ЕСЛИПУСТО - ЕССЫЛКА, и т.д. Такой же список, только с другими вариантами выбора, выпадает в ...
Изменен: 15.07.2017
Читать сообщение на форуме или сайте.
IF THEN: 5 условий и 5 аргументов, Вопрос по макросу или формуле для нескольких условий и аргументов
Автор: elina.goroshkova. Подскажите, пожалуйста, как можно с помощью формулы или макроса сделать так, чтобы соблюдалось в одной этой ячейке столбца (Q или соответственно затем в S/U/W) совокупность условий:  Для столбца Q такая совокупность: если O2:O2233=1, то в ячейку попадает только значение из столбца С (Box 1) если O2:O2233=2, то в ячейку попадает только значение из столбца D (Box 2) если O2:O2233=3, то в ячейку попадает только значение из столбца E (Box 3) если O2:O2233=4, то в ...
Изменен: 11.07.2017
Читать сообщение на форуме или сайте.
Один массив из двух, Нужен код VВA собирающий новый массив из этих двух.
Автор: tmash. Внезапно появляются два заполненных массива м01 и м02.Чтобы не упутать, попробую объяснить на примере диапазонов.Количество столбцов (измерения) в массивах обычно разное. Нужен код VВA собирающий новый массив из этих двух. По рабоче-крестьянски: Если название столбца из м02 есть в м01, то добавить содержимое этого столбца под столбец тёзку. Если названия столбца из м02 нет в м01, то добавить название столбца к названиям столбцов, а данные добавить в новый столбец, ниже ...
Теги: массив, VBA
Изменен: 17.06.2017
Читать сообщение на форуме или сайте.
VBA Количество дней между двумя датами в Excel без учета празников, VBA Количество дней между двумя датами в Excel без учета празников
Автор: Леонид Коршак. Добрый вечер всем! Наверное глупый вопрос, но как посчитать количество календарных дней между двумя датами в коде VBA без учета празничных? Пример между датами 01.06.2017 и 30.06.2017 - должно быть не 30, а 29 дней (так как 12.06.2017 - праздник)
Теги: VBA
Изменен: 16.06.2017
Читать сообщение на форуме или сайте.
Добавление информации через VBA в таблицу Exel, Добавление информации из UserForm в ячейки Exel
Автор: Paul_Pavel. Доброго времени суток, уважаемые знатоки VBA и Exel! В ходе работы столкнулся с непростой (для меня - но,уверен, не для вас ;) ) задачей. Имеется таблица Exel со списком записей. В конце списка - строка "Проверил". Необходимо создать кнопку которая добавляла бы новую запись с автоматическим присваиванием номера при этом сохраняя строку "Проверил". Далее эта же кнопка вызывает UserForm с TextBox-ами в которые вручную вводятся данные, после ...
Теги: VBA
Изменен: 29.05.2017
Читать сообщение на форуме или сайте.
Автоматизация Макроса с условием, Нужно настроить автоматизацию макроса, при изменении ячеек
Автор: kek. Добрый день!  Имеется макрос:  Sub info1()  Dim info1 As String  If Application.ThisWorkbook.Sheets(1).Cells(29, 16) > Application.ThisWorkbook.Sheets(1).Cells(28, 16) Then  Sheets(8).Cells(73, 82) = "Используется первый вид транспорта до пункта назначения"  Else  Sheets(8).Cells(73, 82) = "Первый вид транспорта до пункта назначения не используется"  End If  End Sub  Нужно сделать так, чтобы он срабатывал каждый раз, когда ...
Теги: VBA
Изменен: 21.05.2017
Читать сообщение на форуме или сайте.
сводная таблица (PivotTable) - VBA, Программно разбить на несколько таблиц
Автор: Maniac Rabbit. Подскажите пожалуйста как в сводной таблице можно программно скопировать отдельно каждое поле и все элементы в нем? разбить на несколько таблиц... Вот пример самой сводной таблицы: http://i11.pixs.ru/storage/6/6/2/Skrinshot1_3414632_26214662.png То есть мне нужно скопировать отдельно в данном примере по полю квартал : 266 и выдел: 21 31 38. Вот мой код, понимаю что нужно как-то циклом сделать, но как лучше?Sub TestPivotTable() Dim shName$ Dim wbname$ Dim pt As ...
Изменен: 18.05.2017
Читать сообщение на форуме или сайте.
VBA два массива в автофильтр умной таблицы, задаю 2 критерия, массивами, получаю ошибку 1004
Автор: Chimichangi. Привет всем кодоводам! Есть умная таблица (не однородная) с заголовками внутри. Создаю форму с 2 Mountview в которых выбираю даты и записываю их в ячейки К2,К3Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Range("k2").Select Selection.NumberFormat = "mm\/dd\/yyyy" ActiveCell.FormulaR1C1 = MonthView1.Value End Sub, а в ячейке К4 вычисляю интервал между ними. (K3-K2) В ячейки L1:L100 записываются все даты в выбранном ранее ...
Теги: VBA, #Excel2010
Изменен: 03.05.2017
Читать сообщение на форуме или сайте.
Сбор данных в Excel ячейку через SNMP
Автор: FiataliS. Привет вам всем. Помогите!!,  кто может разбирается. Требуется получать показания с устройства по SNMP в ячейку Excel.   Немного порыв, наткнулся на такой код, но не понимаю как его применить.  Интересует что значит эта строка  :sceptic:  Set S = S.Exec("C:\usr\bin\snmpwalk -mALL -v1 -cpublic 10.68.110.05 .1.3.6.1.4.1.3") Текст на странице кода был такой: "Has anyone ever collected data using SNMPWALK on excel? Have a little bit of trouble trying to find a ...
Изменен: 28.04.2017
Читать сообщение на форуме или сайте.
Создание надстроек, ф-ций, Необходимость разобраться в создании надстроек для екселя
Автор: Vovchik22. Добрый день, Для работы необходимо научиться создавать надстройки для екселя.  Подскажите с чего начать ? Нужны практические советы. на данный момент, надстройка нужна , чтобы возвращать данные в ексель через ф-ции. Данные забирать буду через API Спасибо 
Изменен: 14.04.2017
Читать сообщение на форуме или сайте.
Формула подсчета очков игроков в футбольный тотализатор
Автор: serfill92. Здравствуйте. Чтобы интереснее было смотреть Лигу чемпионов, делаем с друзьями ставки на игры (не в конторах, а друг с другом, на небольшую сумму ;)). Веду в Excel таблицу, но очки проставляю вручную. Пытался сделать автоматическое проставление очков по формуле, но не хватило соображалки сделать рабочую формулу. Условия: Точно угаданный победитель матча и окончательный счет - приносит 3 очка игроку. Угаданный победитель матча и разница мячей в его пользу - приносит 2 ...
Теги: формула
Изменен: 04.04.2017
Читать сообщение на форуме или сайте.
Создание условного форматирования, Через VBA
Автор: Kuvon. Доброго всем дня! Возник такой вопрос. Как с помощью VBA создавать свои правила "условного форматирования". Авторекодер молчит.
Теги: VBA
Изменен: 03.04.2017
Читать сообщение на форуме или сайте.
Как узнать номер первой и последней строки для несмежных диапазонов?
Автор: deesa. В Range.Address диапазоны хранятся в порядке их выделения пользователем (например, $F$11:$H$14,$J$7:$L$11,$B$16:$D$20,$H$24:$I$29,$C$4:$D$7), поэтому просто взять первую и последнюю цифру не сработает. Пока есть идея разобрать содержимое Range.Address на отдельные адреса, сохранить в массиве и дальше найти Min и Max. Но этот способ кажется несколько трудоёмким. Возможно я изобретаю велосипед и есть более простой способ узнать первую и последнюю строчку?
Теги: VBA
Изменен: 22.03.2017
Читать сообщение на форуме или сайте.
Страницы: 1 2 3 4 5 6 След.
Наверх