Поиск
Автор: Mira868. Есть таблица с оборудованием. Там прописаны разные модели с характеристиками. Нужно сделать поисковую систему, чтобы по выбранным характеристикам подбиралась модель оборудования. Можете пожалуйста помочь.
Необходимо сделать маленькую табличку, в которой можно будет выбрать характеристики и она подберет модель. Часть характеристик будет выбираться из выпадающего списка, а другая часть будет отмечаться галочкой. С макросами имела дела давно в Access, сейчас уже подзабылась ...
Изменен: 15.05.2025
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: tmcm-public. Итак, суть такова. Я хочу внести в сводные таблицы некоторую легкость сравнения плана / факта.
Есть некоторое количество датасетов, в широком смысле устроенных похоже.
В них есть:
* даты (которые должны разворачиваться / схлопываться)
* разные *измерения* - платформы, регионы, каналы (по которым нужно группировать в разных комбинациях)
* измерение исходных данных pf: plan | fact
* абсолютные показатели - суммы - расходы, доходы, разные тематические количественные показатели. ...
Изменен: 18.02.2025
Читать сообщение на форуме или сайте.Автор: dogreeduma. Здравствуйте!
Начну с того что я новичок в Excel. И если кто-то вызовется помочь, прошу объяснить прям дословно. Либо скинуть ссылку на статью где это объясняется/показывается. Так как я даже не понимаю как это правильно сформулировать в google.
Есть режимы тренировок. Каждый режим прокачивает несколько умений. Нужно чтобы при выборе режима тренировки, в поле «прокачка» всё считалось автоматически(те умения что даёт тренировка). Я это отобразил в ручную(для примера). Т.е. « ...
Изменен: 24.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
Читать сообщение на форуме или сайте.Автор: muller228. Приветствую!
Столкнулся с проблемой: если нажать ПКМ на ячейку в Excel - Формат ячеек - (все форматы) и тут формат в виде "dd.mm.yyyy",
но при этом у моего коллеги формат в нормальном виде:
Переустанавливал офис, игрался с регионом, язык в настройках стоит русский, уже не знаю, что ещё пробовать.
Прошу, подскажите, пожалуйста, как можно устранить эту проблему.
Заранее благодарю!
Изменен: 18.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
Читать сообщение на форуме или сайте.Автор: 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
Читать сообщение на форуме или сайте.Автор: BladzheR. Добрый день!
Необходимо сделать выпадающий список с данными в одной ячейке, но этот список должен автоматически меняться в зависимости от значения в определенной ячейке.
Пример в файле прилагаю...
Изменен: 28.08.2017
Читать сообщение на форуме или сайте.Автор: Mansso. Добрый день, знатоки. Просьба подсказать,т.к. я плохо разбираюсь в макросах.
Суть такая.
Есть запрос.
Сделал из него обновляемый файл.Подключение--Источник SQL.
Появилось желание вывести параметры запроса в виде дат set @datestart='2017-07-19 15:36:46.947',set @dateend='2017-07-20 15:36:46.947' в сам файл эксель посредством кнопки.
Подскажите, будьте добры, как это сделать?
Изменен: 01.08.2017
Читать сообщение на форуме или сайте.Автор: lanalina. Добрый день уважаемые форумчане,
очень нужна ваша помощь (для наглядного примера прилагаю файл с 2-мя листами 1 и 2)
имеется таблица 1 (лист 1) с именами агентов, которые взяли со склада определеное количество продуктов.
И есть таблица 2 (лист 2), в которой указано сколько продуктов эти же агенты развезли по магазинам.
В таблице 2, в строке ITOG otgrujeno magaziny, при фильтрации по каждому агенту, просчитываются промежуточные итоги. Как сделать так, чтобы при подсчете ...
Изменен: 19.07.2017
Читать сообщение на форуме или сайте.Автор: RazorBaze. Все знают, что если начать ячейку с "=",
а следом ввести букву (например, "Е") - появится список функций,
начинающихся на эту букву:
- ЕОШИБКА
- ЕСЛИ
- ЕСЛИПУСТО
- ЕССЫЛКА
- ЕТЕКСТ
- ЕЧИСЛО, и т.д.
При этом, если после "Е" поставить букву "С" - все несовпадения отсеются,
и останутся только:
- ЕСЛИ
- ЕСЛИПУСТО
- ЕССЫЛКА, и т.д.
Такой же список, только с другими вариантами выбора, выпадает в ...
Изменен: 15.07.2017
Читать сообщение на форуме или сайте.Автор: Jugg. В прикрепленном файле формулы представлены в математической записи, не знаю как их записать в Excel(((
Помогите пожалуйста
Изменен: 01.07.2017
Читать сообщение на форуме или сайте.Автор: wirstein. Всем привет. Написал отдельный модуль (класс), вроде работает. Прикладываю в спойлер.
Ну и пример использования. Если кто найдет ошибку, с радостью приму комментарииSet act = New WordGenerator
With act
.template_add "\court\иск.docx" 'Добавили шаблон в папке \templates\ проекта
.template_add "С:\претензия.docx" 'добавили шаблон абсолютного пути
.dialog = True 'И этого нам мало, мы спрашиваем юзера, чтобы тоже указал шаблоны
.multiselect = True 'да ...
Изменен: 28.06.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
Читать сообщение на форуме или сайте.Автор: g.blitz. Добрый день!
Столкнулся с интересным файлом, не понимаю, как убрать надпись на заднем плане и что это вообще такое, Видна только при уменьшении формата до 25%
Изменен: 19.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
Читать сообщение на форуме или сайте.Автор: anvostok. Форумчане, доброго времени суток!
Перепробовал кучу софта. Но так и не смог восстановить поврежденный файл MS Excel.
Максимум прогресса - в некоторых программах он был видел на предпросмотре - но дальше все равно открыть не мог через эксель после восстановления.
Может кто-то сможет помочь.
Заранее благодарен.
Изменен: 15.05.2017
Читать сообщение на форуме или сайте.