Поиск
Автор: R0mi1. Здравствуйте! Имеется таблица с данными в эксель. Нужно установить две кнопки 1) Сохранить в файлы, 2)Отправить адресату
1)Сохранять в файл необходимы следующие данные.
1.1 Первые 4 строки(Шапка) из таблицы(исходник)
1.2 Каждую последующую строку(с шапкой в отдельный файл(xlsx) образец приложу.
1.3 Файл должен называться 1-й ячейкой из строки
1.4 Если в 1-й ячейке строки пусто, тогда пропускаем.
2)Отправить адресату
2.1 Отправить по e-mail (список ...
Изменен: 28.08.2024
Читать сообщение на форуме или сайте.Автор: afonason. Есть таблица с данными Excel "export (19)" и связанный файл Word "Ответ об отказе срок_" который автоматически заполняется через поле слияния (MERGEFIELD)
Задача с помощью макроса сохранить Word файл в формате .pdf с определённым именем (добавить к имени файла № претензии который подгружается в поле слияния { MERGEFIELD Номер_претензии })
Нашел макрос похожего действия, но он добавляет текст к названию из поля со списком.
Как сделать ссылку на поле слияния ( ...
Изменен: 23.08.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
Читать сообщение на форуме или сайте.Автор: Никита Митрофанов. Добрый вечер, формунчане! Такую закадычную задачу мне дали, никак не могу её решить.
Дано: у нас есть результат и несколько персонажей, который к этому результату старались приблизиться (допустим, подкидывание кубика, а персонажи собирались угадать, что же там выпадет). Побеждали те, кто угадал или же те, кто был максимально близок с значению, при том как в положительную, так и в отрицательную сторону (например, если выпало 3, кот сказал что будет 5, а жук что будет 2, ...
Изменен: 01.08.2024
Читать сообщение на форуме или сайте.Автор: fixboot. Необходимо создать макрос проверки работоспособности гиперссылки на файл (наличие файла по данной гиперссылке).
файлы: pdf, doc, xls, jpeg
таблица и файлы размещены на локальном сервере (если имеет значение)
если можно вывод результата за область сводной таблицы
Изменен: 29.07.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
Читать сообщение на форуме или сайте.Автор: RazorBaze. Все знают, что если начать ячейку с "=",
а следом ввести букву (например, "Е") - появится список функций,
начинающихся на эту букву:
- ЕОШИБКА
- ЕСЛИ
- ЕСЛИПУСТО
- ЕССЫЛКА
- ЕТЕКСТ
- ЕЧИСЛО, и т.д.
При этом, если после "Е" поставить букву "С" - все несовпадения отсеются,
и останутся только:
- ЕСЛИ
- ЕСЛИПУСТО
- ЕССЫЛКА, и т.д.
Такой же список, только с другими вариантами выбора, выпадает в ...
Изменен: 15.07.2017
Читать сообщение на форуме или сайте.Автор: G_110036246309433414584. Добрый день. Есть столбец в таблице. В этом столбце 1000 ячеек с различными номерами. Мне надо заменить в этом столбце некоторые из них (313, 216, 237, 391, 127, 190, 127, 402, 407) на текст Д/Р.
Подскажите пожалуйста макрос для реализации этой задачи.
З.Ы. Одно и тоже значение в столбце в таблице может повторяться более 30 раз
Изменен: 05.07.2017
Читать сообщение на форуме или сайте.Автор: tioko. Добрый день, товарищи!
Есть отчет в таком виде: http://joxi.ru/BA0vvNghJ7edMm
Есть много красивых графиков к этому отчету, примерно десяток (подписи данных удалила): http://joxi.ru/EA4vvjEhwNennm
И этот десяток диаграмм надо скопировать и перестроить для 21 региона.
Можете, плиз, написать мне макрос, который бы сдвигал все ряды диаграммы (а лучше - всех выделенных диаграмм) на определенное число строк или столбцов?
Если можно, со скриншотами, что куда вставлять и ...
Изменен: 29.06.2017
Читать сообщение на форуме или сайте.Автор: esk_. Здравствуйте!
Подскажите, пожалуйста, как изменить следующий макрос, чтобы можно были добавлять тень не для исключительно выделенных картинок, но для всех картинок в презентации:
Sub MakeShadow()
Dim i As Integer
With ActiveWindow.Selection.ShapeRange.shadow
For i = 1 To 2
.ForeColor.RGB = RGB(220, 220, 220)
.Transparency = 0.35
.Visible = True
.Blur = 10
.OffsetX = 5
.OffsetY = ...
Изменен: 23.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
Читать сообщение на форуме или сайте.Автор: dvolkov80. Необходимо создать макрос который бы копировал данные из формы B2:F19 на Листе 1 и вставлял в таблицу на Листе 2. Необходимое условия:1. Вставлялись только значения, а не формулы, форматы и т.д. 2. Вставка на Лист 2 только в пустые строки таблицы накопительно. 3. Пустые строки из формы B2:F19 не вставлялись в таблицу на Листе 2. После вставки форма B2:F19 очищалась.
Изменен: 08.06.2017
Читать сообщение на форуме или сайте.Автор: 000000000. Нужно переместить текст в ячейке в другую книгу с помощью кнопки, поиск в интернете нечего не дал. Находила только перемещение с одного листа на другой, после чего пыталась редактировать, но из-за незнания макросов получался всякий бред.
Код макроса для кнопки на перемещение с одного листа на другой, который я находила, плюс он немного изменен, так как нужно было, чтобы каждая новая информация перемещалась на строчку ниже, а так же работали формулы.
Sub Кнопка2_Щелчок()
...
Изменен: 06.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
Читать сообщение на форуме или сайте.Автор: Mit Boy. Подскажите, как сделать так, чтобы Leader равнялось не трем, а максимальному числу в выделенном столбце (которое выделяется перед выполнением макроса)
Сам алгоритм создает соседний столбец, где пересчитывает все значения выделения как доли от самого большого значения в выделении (которое, соответственно, становится равно единице).
Другая проблема заключается в том, что если выделять снизу вверх, столбец неправильно располагается, но это не так важно.
Sub Макрос()
'
' ...
Изменен: 26.04.2017
Читать сообщение на форуме или сайте.Автор: Vovchik22. Добрый день,
Для работы необходимо научиться создавать надстройки для екселя. Подскажите с чего начать ? Нужны практические советы.
на данный момент, надстройка нужна , чтобы возвращать данные в ексель через ф-ции. Данные забирать буду через API
Спасибо
Изменен: 14.04.2017
Читать сообщение на форуме или сайте.Автор: Kuvon. Доброго всем дня!
Возник такой вопрос. Как с помощью 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. Но этот способ кажется несколько трудоёмким. Возможно я изобретаю велосипед и есть более простой способ узнать первую и последнюю строчку?
Изменен: 22.03.2017
Читать сообщение на форуме или сайте.Автор: SHARP. Доброго времени суток
Как сделать так, чтобы При сохранении книги макрос работал на всех листах где это нужно, а не только на активном?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ЗАКРЫТЬ
End Sub
Sub ЗАКРЫТЬ()
ActiveSheet.КнопкаЗОР.Caption = "ЗАКРЫТО"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Изменен: 10.03.2017
Читать сообщение на форуме или сайте.