VBA Удалить в Excel текст определенного цветаПодскажите как в Excel удалить текст только определенного цвета (красный: 255). То есть в ячейке может быть целое предложение, но только одно слово будет выделено красным. И именно это слово нужно удалить. Спасибо заранее!https://www.cyberforum.ru/ vba/ thread1493974.html
VBA Object required при сохранении книги Коллеги, добрый день!
Подскажите, пожалуйста, при работе с книгой Excel средствами VBA Access возникает проблема при сохранении документа, а именно не удается приказать конкретной книге (единственная используемая в наст. время) сохраниться с новым именем, ниже сам код (ошибка во второй строке):
Dim Filename As Object
ActiveWorkbook.SaveAs Filename:="\Шаблоны\" & DateField & "Шаблон -...
VBA Как нажать программно кнопку в WebBrowserНа сайте имеются две одинаковых кнопки без id, как нажать вторую кнопку по счету
Первая кнопка
<a href="/search?c=0&c=people&c=-1">Русский</a>
Вторая кнопка
<a class="bnav_lang" onclick="showBox('lang.php', {act: 'lang_dialog'}, {params: {dark: true, bodyStyle: 'padding: 0px'}, noreload: true})">Русский</a>
Через javascript выдает , в обычном браузере (google chrome) все норм работает.
...https://www.cyberforum.ru/ vba/ thread1493670.html
VBA Поиск таблиц на листе ExcelДрузья, кто-нибудь задавался вопросом поиска таблиц на листе Excel?
Под таблицами я подразумеваю те таблицы, которые вручную начерчены с использованием границ – Borders, а не те которые создаются комбинацией клавиш Ctrl+ «T» (Вставка - Таблица).
Т.е. имею в виду макрос, которой находил-бы все адреса диапазонов таблиц (ограниченных замкнутыми границами) на листе при этом на листе может быть...https://www.cyberforum.ru/ vba/ thread1493666.html
VBA Экспорт из Access 10 средствами VBA в файл xlsx и xlsm Коллеги, добрый день!
Подскажите, пожалуйста, в возникшей проблеме при организации экспорта данных из запросов Access в файлы Excel.
Думаю поступательней вопрос задать немного издалека:
1. Что есть: Код VBA + SQL запросы, которые формируют итоговый отчет, который я и переношу в подготовленные шаблоны Excel
2. Что работает: Код открывает книгу эксель, формата xlsx, переходит...
VBA Разбить таблицу ориентируясь на группы в отсортированном столбцеДобрый день,
подскажите с макросом
есть таблица отсортированная по одному из столбцов, нужно разбить таблицу ориентируясь на группы получившиеся в отсортированном столбце.
чтоб было понятнее привел примеры того как есть и что должно получится,
файл там
Добавлено через 1 час 5 минут
забыл уточнить, это в Word.https://www.cyberforum.ru/ vba/ thread1493180.html
VBA SaveCopyAs & hyperlinkЗдравствуйте.
При использовании
ThisWorkbook.SaveCopyAs FileNameXls
все гиперссылки на папки в сетевом окружении в текущем файле изменяют своё значение с
Папка1\Папка2 на ..\Папка1\Папка2
Причем количество "..\" зависит от места копирования, прописанного в FileNameXls (чем глубже папка сохранения относительно текущего файла, тем больше "..\").
Соответственно, все ссылки в текущем файле...https://www.cyberforum.ru/ vba/ thread1492866.html
Очистить поле раскрывающегося списка VBA Всем доброе!
При загрузке формы поле со списком у меня заполняется так:
Private Sub Userform_initialize()
With ComboBox1
.AddItem "Первое значение"
.AddItem "Второе значение"
.AddItem "Третье значение"
VBA Парсинг файлов в каталоге по маскеhttps://www.cyberforum.ru/ vba/ thread1492501.html В документе Excel макросом необходимо реализовать такую фитчу:
В каталоге, прописаном в переменной MyPath нужно отобрать документы по ключу: "символы латиницы" + "-" + "цифры", занести в таблицу название файла + в отдельную ячейку код по ключу.
Например если файл называется:"КрЛ_Приложение_SUPP-1660497_ФФСТ(OETS)" в таблицу заносится:
| Наименование файла | №...
VBA Сделать выборку значений из массива типа RangeЗдравствсуйте! Помогите доделать функцию, которая принимает массив ячеек, выбирает из него только непустые ячейки и возвращает их.
Пробовал так:
Private Function IgnorEmptyCell(a As Range) As Range
Dim j As Integer, aa As Range
For i = 1 To a.Count
If IsEmpty(a(i)) Then GoTo end1
j = j + 1
Set aa(j) = a(i)https://www.cyberforum.ru/ vba/ thread1492436.html
VBA Как передать "" через formulalocal? Добрый день! мне нужно записать в ячейку ЕСЛИ(A1<>"";A1*2;#Н/Д), записываю через макрос
ActiveCell.FormulaLocal= "=ЕСЛИ(A1<>"";A1*2;#Н/Д)"
Возникает ошибка, из-за того, что нельзя передавать "" через FormulaLocal. Как тогда проверить, если ли данные в A1?
VBA Как проверить результат фильтрации данных на <пусто>Фильтрую количество строк N по столбцу IDcol (номер столбца) ,используя массив аргументов отбора Array(pol2)
ActiveSheet.Range("$A$1:$w$" & CStr(N)).AutoFilter Field:=IDcol, Criteria1:=Array(pol2), Operator:=xlFilterValues
Фильтрация дает пустышку (как вариант отб
KoGG, Это понятно.
Программа пишется на делфи, в целях универсальности кода MS Office & OO ответьте на выше заданный вопрос возможно или нет.
Кусок кода реализации задуманного в ОО
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Doc.CurrentController.Select(Doc.getText);
ooContent := Doc.CurrentController.getTransferable;// создается КОПИЯ содержимого в ooContent
ooCursor := Doc.CurrentController.getViewCursor;
ooCursor.gotoEnd(false);//------------------------- // здесь происходят некоторые манипуляции с частью документа с которой совпадает ooContent//--------------------------
ooCursor.collapseToEnd;//gotoEnd(false);
ooCursor.BreakType:=5;// Page Break
Doc.GetText.insertControlCharacter(ooCursor,0,false);//PARA_BREAK
Doc.currentController.insertTransferable(ooContent);// самое примечательное, что вставленная копия содержимого в // ooContent осталась без изменений
Добавлено через 4 минуты Казанский, наоборот нужно вставлять ранее скопированный "чистый" шаблон в конец документа. Решение конечно есть наделать кучу экземпляров Documents, но хотелось бы как в ОО.
