Поиск
Автор: 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
Читать сообщение на форуме или сайте. ... лист, на листе одна умная таблица (которая Ctrl + T делается). ... Шапка у каждой таблицы одинаковая, разным является только содержимое ... появлялась одна умная таблица, которая складывается из нескольких таблиц, указанных выше.
... сделать через Power Query или VBA. Я пытался объединять запросы ... путного не вышло. Через VBA я пытался использовать метод Add ... раньше я не использовал умные таблицы и подобное "складывание" ... на умные таблицы и слияние этих таблиц через PQ или VBA.
В примере ...
Изменен: 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
Читать сообщение на форуме или сайте.Автор: Дорожный. Может кто-нибудь решил задачу всплывающих подсказок у кнопки с макросом. Если кнопки миниатюрны и на них невозможно разместить поясняющий текст, то пользователю проекта могла бы помочь всплывающая подсказка при наведении курсора на кнопку, как это есть даже в самом 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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте. ... листе есть "умная таблица" для ввода данных ... кнопки ввода. Данные для этой таблицы и сама кнопка расположены в ... правильно сослаться в VBA на "умную Таблицу", чтобы ... в диапазоне этой таблице? А то получается под таблицей я ничего не ... скажу я мало соображаю в VBA, но пойму как делать, если ...
Изменен: 24.01.2017
Читать сообщение на форуме или сайте.Автор: slavik.bovkun. Здравствуйте!
Есть файл, в нём будут создаваться ценники.
Есть следующие задачи:
1) Выбор модели холодильника из списка (выполнено)
2) Написания цены (возникли некоторые трудности)
Вопрос касается именно второго пункта:
Как видно из примера сама цена должна располагаться поверх синей фигуры.
Суть в следующем - возможно ли реализовать запись данного значения в надпись или фигуру через всплывающий UserForm с элементом TextBox и подтверждением кнопкой OK?
Нигде ...
Изменен: 22.01.2017
Читать сообщение на форуме или сайте.Автор: msm_passau. Всем привет!
Помогите, пожалуйста, справиться с задачкой, вытянуть которую самостоятельно у меня не получается - не хватает квалификацииhttp://www.planetaexcel.ru/bitrix/images/main/smiles/5/icon_cry.gif
Проблема:
Производимые excel рассчеты требуют цикличности вычислений. Например, в приложенном примере цикличность вызывают следующие рассчеты: размер выплачиваемых кредиторам процентов определяется как среднее между размером долга на начало текущего периода и размером ...
Изменен: 22.12.2016
Читать сообщение на форуме или сайте.