|
|
| Другие темы раздела | ||||||||||||||||||
|
VBA Excel создание собственной функции для выделения части текста в ячейки
https://www.cyberforum.ru/ vba/ thread2332471.html Доброго дня всем. Прошу помощи в разрешении следующей задачи: Формирую много отчетов и для упрощения процесса часто использую команду сцепить, но при этом теряются данные по форматированию соединяемого текста и нет стандартной возможности это сделать только для части текста... к примеру: =сцепить("Вася ";A1;"Пупкин ";B1;" Любит") Желаемый результат: Вася Петров Пупкин сильно Любит То... |
Нужен макрос для Outlook VBA Здравствуйте! Помогите разобраться. C vba работаю первый раз, нужен макрос для Outlook, чтобы он при открытии программы отправлял на определенную почту ПОСЛЕДНИЙ созданный файл из определенной папки. Вот что у меня получилось, но имеется ошибка(ругается на выделенную строку). Функция скопирована с интернета(в exel работает). Как мне найденное имя подставить в прикрепляемый файл? Public Sub... | |||||||||||||||||
|
VBA Запись формулы , содержащей значение переменной
https://www.cyberforum.ru/ vba/ thread2332397.html Dim v As Integer Dim pro As Range For i = 1 To UBound(part) ' цикл по всему количеству заменяемых рационов Set NAH = Range("B57:B6000").Find(what:=part(i).ima, LookAt:=xlWhole) 'поиск метки заменяемого рациона NAH.Rows.Offset(1).EntireRow.Insert ' ВСТАВКА ПУСТОЙ СТРОКИ ПОСЛЕ МЕТКИ ' ... |
VBA Управление несколькими различными приложениями MS Office из одного макроса
https://www.cyberforum.ru/ vba/ thread2332289.html Всем доброго времени суток! Заранее извиняюсь за нубский вопрос. В VB/VBS/VBA новичок. Подскажите, пожалуйста, возможно ли сделать что-то подобное: Sub test() If Application.Documents.Count >= 1 Then For Each oDocs In Application.Documents Select Case Application.Name Case "Microsoft Word" MsgBox ("I'm from MS Word") ... | |||||||||||||||||
|
Автоформатирование VBA Ребят, не придумаю условие и код, чтобы после 2 заглавных букв, шли заглавные до пробела.....типа "Член КГБ". Спасибо по задумке юрер может абривиатуры сам с большой писать....а чтобы макрос в таком случае отключался Первое слово с большой буквы: Target = UCase(Left(Target, 1)) & LCase(Mid(Target, 2)) |
VBA Заполнение Combo Box Здравствуйте! Подскажите пожалуйста. Есть два combo box на одной форме. Как при выборе значения с combo box 1, заполнить значения в Combo box 2, исходя из того, что выбрано в combo box 1 https://www.cyberforum.ru/ vba/ thread2332256.html | |||||||||||||||||
| VBA Копирование ячеек с листа на лист по условию одной ячейки Уважаемые специалисты Excel, прошу Вашей помощи в написании макроса. Сам на просторах интернета найти не смог. В чем собственно задача: --На листе "ремонты" есть список техники принятой в ремонт, на этом же листе есть кнопка "заказ запч". --В столбце I на листе "ремонты" находятся ячейки с выпадающим списком состояния ремонтов. --Задача в том если в ячейке из столбца I стоит... https://www.cyberforum.ru/ vba/ thread2332206.html |
VBA Безопасное извлечение USB накопителя Здравствуйте. Не могли бы помочь. Есть скрипт Set wshShell = WScript.CreateObject ("WSCript.shell") wshshell.Exec "rundll32.exe %SystemRoot%\System32\shell32.dll,Control_RunDLL hotplug.dll" Можно ли сделать так, чтобы окно "Безопасного извлечения устройства" не выскакивало, а появлялось только стандартное уведомление "устройство может быть извлечено"? Большое спасибо всем кто поможет. | |||||||||||||||||
|
VBA Вставка рисунков в таблицу по центру (по наибольшей стороне)
https://www.cyberforum.ru/ vba/ thread2332169.html Здравствуйте. Подскажите с решением. Есть таблица, в которой (в стобце J) имеются ячейки с разными числами 1,2,3 и т.д. Рядом находится таблица, в которой представлены соответствия чисел - определенным ссылкам на рисунки. Как макросом вставить в столбец J этой таблицы - рисунки по приведенным ссылкам в соответствии с числами (при этом очистив столбец J от других рисунков) ? |
VBA Объединение данных с нескольких листов по ключу Добрый день. Имею 2 таблицы в книге excel, в которых столбцы с ключами не повторяются. И имеют вид 1 таблица |1 | Света |2 | Кирилл 2 таблица |2 | Петрова https://www.cyberforum.ru/ vba/ thread2331968.html | |||||||||||||||||
|
VBA Копирование определенной строки из файлов в папке Добрый день, уважаемые! Подскажите пожалуйста макрос. Есть папка, в которой лежат книги экселя. Нужно перебрать все эти файлы, в каждом найти последнее значение второго столбца(лист1),взять все значения этой строки(начиная с 3-го столбца) и скопировать в активную книгу. Причем строки должны быть вставлены в определенной последовательности, то есть из определенной книги в определенную строку.... |
VBA Замена текста после открытия файла
Здравствуйте! Подскажите, почему, после открытия файла у меня не получается произвести замену в тексте открытого файла?
Sub OpenDocument()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open (&
Наверх
| |||||||||||||||||
