Поиск
Автор: 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 = ...
Изменен: 24.04.2025
Читать сообщение на форуме или сайте.Автор: Сергей. Здравствуйте.
В процессе процедуры формирую 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
Читать сообщение на форуме или сайте.Автор: kapsula. Всем привет.
Имеется много листов с идентичными таблицами займов/кредитов и начисленными процентами по ним. Каждый лист - отдельная организация.
На одном листе займы по различным контрагентам и договорам. Контрагенты иногда повторяются, т.к. могут выдать несколько займов.
Необходимо со всех этих листов собрать сводную таблицу с данными с возможность формирования промежуточных итогов в разрезе по:
Организации (сортировка в алфавитном порядке)
Контрагенту (сортировка в ...
Изменен: 19.03.2025
Читать сообщение на форуме или сайте.Автор: amarok36. Добрый день! Подскажите, как средствами VBA сделать следующие действия.
- Фильтровать уникальные значения по столбцу L и добавлять их в любой условный столбец на втором листе, к примеру в столбец A.
- Для каждого уникального значения из столбца L выбирать соответствующие ему значения из столбца K (строк может получиться несколько) и добавлять эти значения в столбец B на втором листе.
Для других столбцов нужно делать примерно то же самое, но я уже сориентируюсь по аналогии этих ...
Изменен: 11.03.2025
Читать сообщение на форуме или сайте.Автор: Georgiy19. Добрый день!
Я понимаю, что вопрос примитивный, но я не могу для такой примитивной задачи найти простое решение.
В общем, исходные данные: несколько книг Excel, в каждой книге один лист, на листе одна умная таблица (которая Ctrl + T делается). Шапка у каждой таблицы одинаковая, разным является только содержимое.
Мне нужно, чтобы в отдельной книге при ее запуске появлялась одна умная таблица, которая складывается из нескольких таблиц, указанных выше.
Насколько я понял, это можно ...
Изменен: 17.12.2024
Читать сообщение на форуме или сайте.Автор: Kukr47. Нужно чтобы при открытии любой книги excel у меня раскрывались листы снизу, а точнее ползунок этот уменьшался. Нашел такой код и он рабочий, но как я понимаю не в надстройке...
я создал надстройку и прописал там вот так
Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.TabRatio = 0.7
End Sub
он ругается на ActiveWindow потому что он пустой, вопрос, можно ли как-то осуществить то что мне нужно? мне нужно TabRatio =0.6, нужно для выгруженных из ...
Изменен: 17.12.2024
Читать сообщение на форуме или сайте.Автор: huizz. Добрый вечер!
Необходима помощь опытных форумчан. Написал маленький код VBA (файл пример во вложении). Столкнулся с проблемой вывода корректных значений.
Данный код должен собирать информацию со всех таблиц и вставлять "друг под другом" на отдельном листе. Однако, на выходе я получаю задвоенный результат (строка копируется два раза). Буду рад любой помощи
Изменен: 16.10.2024
Читать сообщение на форуме или сайте.Автор: Дорожный. Может кто-нибудь решил задачу всплывающих подсказок у кнопки с макросом. Если кнопки миниатюрны и на них невозможно разместить поясняющий текст, то пользователю проекта могла бы помочь всплывающая подсказка при наведении курсора на кнопку, как это есть даже в самом Excel в меню. Если, к примеру, использовать гиперссылку, которая создает подсказку у кнопки, то назначенный кнопке макрос слетает. Можно еще попытаться создавать примечания у ячеек где расположена кнопка, но и это не ...
Изменен: 04.10.2024
Читать сообщение на форуме или сайте.Автор: Никита Митрофанов. Здравствуйте!
У меня такая проблема: нужно с помощью макроса сделать подтягивание значений из двух таблиц в третью по уникальным значениям в одном столбце (все остальные пустые). Значения из других таблиц могут быть в случайном порядке. Знаю, что есть ВПР() в функциях, но он не подойдет, потому что таблиц больше, да и это нужно делать будет много раз.
Тест - таблица в которую заливать
1 и 2 - таблицы со значениями
безымянный рисунок - примерно что должно быть перенесено ...
Изменен: 21.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),& ...
Изменен: 12.08.2024
Читать сообщение на форуме или сайте.Автор: yarssa. Для использования функции подсчёта количества уникальных элементов использую при создании сводной таблицы "добавить в модель данных", но тогда при попытке добавить итогов по сумме выводится сообщение: "Мы не можем создать сводку по этому полю данными "Сумма", так как они не поддерживаются для расчета типов данных Текст". При создании обычной сводной такой ошибки не выдаётся. Можно ли это поправить или необходимо создавать несколько сводных и потом ...
Изменен: 02.09.2019
Читать сообщение на форуме или сайте.Автор: kare. Здравствуйте , подскажите пожалуйста как подсчитать сумму 7 столбца в vba?
Dim s As Long
s = Cells(Rows.Count, 7).End(xlUp).Row + 1пытаюсь определить последнюю запуленною ячейку и добавить строчку для итога но дальше дело не идет(
Изменен: 21.12.2017
Читать сообщение на форуме или сайте.Автор: Dost1369. Добрый день, уважаемые форумчане!
Суть проблемы: Есть сводный перечень, в котором наименования (столбец C) принадлежат разным объектам (столбец B), необходимо сделать так, чтобы в Combobox1 для выбора выдавался перечень объектов (сейчас я это сделал при помощи AddItem), а в Combobox2 перечень наименований, соответсвующий выбранному объекту.
Для понимания работы желаемого - сделал табличку в фиолетовой рамке на листе "Выбор".
Для вызова формы - добавил ...
Изменен: 13.09.2017
Читать сообщение на форуме или сайте.Автор: RazorBaze. Стандартная функция Excel "Заполнить" > "Выровнять" (она же в VBA: "Selection.Justify") работает только с первыми 255 символами в ячейке, как и множество других подлых функций (например, "СЧЁТЕСЛИ").
Возможно ли обойти это ограничение?
Возможно ли написать пользовательскую функцию?
Может есть вообще другой способ?
Задача: преобразовать текст в ячейке таким образом, чтобы рядом с ним создалось ...
Изменен: 09.09.2017
Читать сообщение на форуме или сайте.Автор: RazorBaze. Все знают, что если начать ячейку с "=",
а следом ввести букву (например, "Е") - появится список функций,
начинающихся на эту букву:
- ЕОШИБКА
- ЕСЛИ
- ЕСЛИПУСТО
- ЕССЫЛКА
- ЕТЕКСТ
- ЕЧИСЛО, и т.д.
При этом, если после "Е" поставить букву "С" - все несовпадения отсеются,
и останутся только:
- ЕСЛИ
- ЕСЛИПУСТО
- ЕССЫЛКА, и т.д.
Такой же список, только с другими вариантами выбора, выпадает в ...
Изменен: 15.07.2017
Читать сообщение на форуме или сайте.Автор: tmash. Внезапно появляются два заполненных массива м01 и м02.Чтобы не упутать, попробую объяснить на примере диапазонов.Количество столбцов (измерения) в массивах обычно разное.
Нужен код VВA собирающий новый массив из этих двух.
По рабоче-крестьянски:
Если название столбца из м02 есть в м01, то добавить содержимое этого столбца под столбец тёзку.
Если названия столбца из м02 нет в м01, то добавить название столбца к названиям столбцов, а
данные добавить в новый столбец, ниже ...
Изменен: 17.06.2017
Читать сообщение на форуме или сайте.Автор: Леонид Коршак. Добрый вечер всем!
Наверное глупый вопрос, но как посчитать количество календарных дней между двумя датами в коде VBA без учета празничных?
Пример между датами 01.06.2017 и 30.06.2017 - должно быть не 30, а 29 дней (так как 12.06.2017 - праздник)
Изменен: 16.06.2017
Читать сообщение на форуме или сайте.Автор: Paul_Pavel. Доброго времени суток, уважаемые знатоки VBA и Exel!
В ходе работы столкнулся с непростой (для меня - но,уверен, не для вас ;) ) задачей.
Имеется таблица Exel со списком записей. В конце списка - строка "Проверил". Необходимо создать кнопку которая добавляла бы новую запись с автоматическим присваиванием номера при этом сохраняя строку "Проверил". Далее эта же кнопка вызывает UserForm с TextBox-ами в которые вручную вводятся данные, после ...
Изменен: 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
Нужно сделать так, чтобы он срабатывал каждый раз, когда ...
Изменен: 21.05.2017
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: 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 записываются все даты в выбранном ранее ...
Изменен: 03.05.2017
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: 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. Но этот способ кажется несколько трудоёмким. Возможно я изобретаю велосипед и есть более простой способ узнать первую и последнюю строчку?
Изменен: 22.03.2017
Читать сообщение на форуме или сайте.Автор: fixxxer91. Приветствую всех!
Есть задача - необходимо прописать код в макросе чтобы сохранение файла велось по умолчанию на рабочий стол пользователя вне зависимости от имени его учетной записи Windows (т.е. на любом другом компьютере).
На данный момент код уже готов и он работает, но в названии пути упоминается именно мой пользователь.
Что необходимо вставить, чтобы макрос сам подставлял в путь имя пользователя, на чьем компьютере он запускается?
ChDir "C:\Users\Fixxxer91\ ...
Изменен: 14.02.2017
Читать сообщение на форуме или сайте.Автор: КостЛакост. Добрый ночи всем! У меня вопрос. На листе есть "умная таблица" для ввода данных с помощью кнопки ввода. Данные для этой таблицы и сама кнопка расположены в правой части листа из-за того, что третий столбец с наименованием будет заполняться после самой последней заполненной строки данного столбца, грубо говоря если я сделаю внизу актам проработки "шапку" с подписью директора и шеф-повара, то при нажатии кнопки "ввод" новая ...
Изменен: 24.01.2017
Читать сообщение на форуме или сайте.Автор: slavik.bovkun. Здравствуйте!
Есть файл, в нём будут создаваться ценники.
Есть следующие задачи:
1) Выбор модели холодильника из списка (выполнено)
2) Написания цены (возникли некоторые трудности)
Вопрос касается именно второго пункта:
Как видно из примера сама цена должна располагаться поверх синей фигуры.
Суть в следующем - возможно ли реализовать запись данного значения в надпись или фигуру через всплывающий UserForm с элементом TextBox и подтверждением кнопкой OK?
Нигде ...
Изменен: 22.01.2017
Читать сообщение на форуме или сайте.