Поиск
Автор: 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
Читать сообщение на форуме или сайте.Автор: amarok36. Добрый день! Подскажите, как средствами VBA сделать следующие действия.
- Фильтровать уникальные значения по столбцу L и добавлять их в любой условный столбец на втором листе, к примеру в столбец A.
- Для каждого уникального значения из столбца L выбирать соответствующие ему значения из столбца K (строк может получиться несколько) и добавлять эти значения в столбец B на втором листе.
Для других столбцов нужно делать примерно то же самое, но я уже сориентируюсь по аналогии этих ...
Изменен: 11.03.2025
Читать сообщение на форуме или сайте.Автор: nomad404. Задача следующая:
Есть табличный массив, названия колонок упрощу для понимания - 1 колонка "Место хранения", 2 колонка продукт.
Строки первой колонки: Магазин, Стеллаж, Склад, Виртуальный склад, Шкаф, Другой магазин и тд. Строки второй колонки: Молоко, Банан, Шоколад, Печенье, Яблоки, Чай, Кофе (в каждой ячейке строки перечислены продукты в произвольном порядке через запятую без пробела). Количество строк произвольное.
Как с помощью формулы вывести массив содержащий ...
Изменен: 28.01.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
Читать сообщение на форуме или сайте.Автор: Art Key. Здравствуйте. Может у меня и странный вопрос, но ответ не могу найти. Надо сравнить два списка. В одном списке словосочетания "кабинки делаю в москве", "мороженное кушаю в москве", "катаюсь на катере в питере" и прочее, а второй список из просто слов "москва", "москве" и пр.. Так вот не могу найти формулу по которой для первого списка будет ясно, что во втором списке есть слово, котрое входит в первый список. Подскажите пожалуйста ...
Изменен: 20.11.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
Читать сообщение на форуме или сайте.Автор: Yoomi. Добрый день.
Я хочу чтобы в моей ячейке, где я использую формулу отображалось значение из первого столба - порядковый номер.
Формула и таблицы эксель на скриншоте.
Интервальный просмотр пробовал ставить на 0 или на 1, ситуация не меняется. пробовал без него.
Подскажите, что я делаю не так, спасибо!
Изменен: 14.08.2024
Читать сообщение на форуме или сайте.Автор: Ivaroms. Добрый день!
Искал по Форуму, пробовал прописать самостоятельно, но как-то криво выходит...
У нас есть книга, в которой может быть сотни листов, на каждом листе таблица, таблицы имеют разное количество строк, но одинаковую структуру.
Нам необходимо прописать в столбце Q начиная с 9-ой строки на каждом листе формулу до конца таблицы( грубо говоря протянуть).
Помогите, пожалуйста, с написанием кода!
=IF(RC[-13]>0,IF(OR(AND(NOT(RC[-8]=0),RC[-8]'0'!R1C3),& ...
Изменен: 12.08.2024
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: greenking. Добрый день! Такая беда - в магазине позиция с комбинированным артикулом, а у поставщика эта позиция различается по цвету. Соответственно один цвет может быть в наличии, другой нет. Нужно, чтобы магазинный артикул искало в прайсе поставщика, выводило цену(она одинаковая для всех цветов) и остатки по приоритету(Заканчивается-В наличии-Нет в наличии). Сложно словами объяснить - в примере табличка
Изменен: 04.09.2017
Читать сообщение на форуме или сайте.Автор: Blecc21. Доброго здравия. Прошу помочь знатоков так как сам я пока что не нашёл решения этого вопроса. Есть вот такая вот таблица
http://s016.radikal.ru/i335/1708/60/072dec98f63c.png
Мне необходимо сделать формулу которая будет сама смотреть на значение в А и вставлять в С, но есть нет значение в А , то брать его из В.
Получается мы видим в А2 весь этот текст, и главные в нём слова "Поток" и "RA.RU.21АБ59" и чтобы при этом в С2 тогда выдавал ...
Изменен: 02.08.2017
Читать сообщение на форуме или сайте.Автор: artemn. Здравствуйте!
Даны данные в стоблце А и В и F. В столбце А одно значение, в стобце B много значений через запятую, среди которых есть и значение из столбца А.
Задача найти значение F в столбце А и вставить при совпадении значение из столбца B.
Функция видит в области поиска значение из столбца F в нескольких столбцах, соответственно и данные проставляет везде одинаковые.
Подскажите, пожалуйста, как мне сделать так, чтобы в поиске не учитывался факт наличия одинаковых ...
Изменен: 24.07.2017
Читать сообщение на форуме или сайте.Автор: nsidarenka. Добрый день!
не получается создать формулу. Судя по тому что я прочитала на сайте я- молодо -зелено
лист сроки. на данном листе указаны примерные сроки планируемых действий
лист календарь.хочется получить по итогу
1) календарь
2)наименование действия
определенный номер партии( если он совпадает с числом, указанным в календаре)
пример на фото
Изменен: 18.07.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
Читать сообщение на форуме или сайте.Автор: greenking. Добрый день! Сижу, ломаю голову. В таблице есть пример. Тоесть у поставщика один артикул, который в себя включает сразу несколько позиций, различаемых по цвету. Всё это необходимо для функции ВПР, чтобы подтягивать цены и наличие из прайса поставщика в прайс магазина. Есть возможность "объяснить" Екселю, что это один и тот же товар?
Изменен: 18.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
Читать сообщение на форуме или сайте.