|
|
| Другие темы раздела | ||||||||||||||||||
| VBA Присваивание значения ячейки данных из другой книги, если исходная ячейка пуста Добрый день! Помогите разобраться с вопросом. Задача в следующем: Есть формат с 10 листами с разными формами. Часть ячеек заполнена формулами. Есть данные от центров ответственности, представленные в заданном формате. Необходимо скопировать из каждого листа книги центра ответственности только те ячейки, в которых в изначальном формате не было данных. Под это дело пишу макрос, который... https://www.cyberforum.ru/ vba/ thread2274862.html |
Правильное склонение в написании VBA Ребят, как склонять научить приложение....(1-день, 2-дня,5- дней)....Кодом ниже очень же долго же. Все варианты перебирать. можно сказать, что число оканчивается на 1, значит, день..... Как это все прописать Select Case ThisWorkbook.Worksheets("...").Range("L1") Case Is = 20: ThisWorkbook.Worksheets("...").Range("M1") = "дней" End Select | |||||||||||||||||
| VBA Изменение значения ячейки путём её выделения в задаче говорится, что я должен менять значение ячейки с помощью её выделения: если нажать один раз на ячейку, то она окрасится в красный, если нажать снова, то в белый. По возможности использовать именно vba, а не формулы внутри самой таблицы эксель. Возможно, это какое-то событие mouseclick, но ничего по этому поводу не нашёл спасибо откликнувшимся https://www.cyberforum.ru/ vba/ thread2274778.html |
VBA Разбираюсь с outlook. что не так? код не мой но по сути должен делать что мне надо, но он ничего не делает
https://www.cyberforum.ru/ vba/ thread2274679.html Function ListOLInbox() 'спиcок писем в папке "входящие" Dim OL_App As Outlook.Application Dim OL_NameSpace As Outlook.NameSpace Dim OL_FolderMail As Outlook.MAPIFolder Dim OL_ItemMail As Outlook.MailItem Dim OL_Attachment As Outlook.Attachment ' получаем объект Outlook Set OL_App = CreateObject("Outlook.Application") 'получаем Namespace | |||||||||||||||||
|
Задание шрифта, размера шрифта при выводе в колонтитул VBA Добрый день. Нашел макрос который позволяет выводить текст из ячейки в колонтитул, переделал его под вывод из 2х ячеек, но текст выводится в колонтитул с шрифтом calibry и размером 10. В ячейки А1 лежит "СЧЕТА ФАКТУР" , в переименованной ячейке PERIOD лежит текст " с 12 по 34 счет за 2017 год", необходимо выводить: "СЧЕТА ФАКТУР" -жирным, шрифтом : times new roman , размер шрифта 22 " с... |
VBA VBA + нормальный дебаг, реальность или утопия Приветствую всех читающих!) Для людей у которых не хватает терпения либо берегут глаза рекомендую перейти сразу на 4й абзац этого "длиннопоста" Только начиная свое непродолжительное (на данный момент) знакомство с VBA я не мог не отметить ужасного вида стандартный SDK. В те первые дни наполненые суровой реальностью ограниченной длинны строк кода(это когда вставляешь SQL, а среда такая: "а не... https://www.cyberforum.ru/ vba/ thread2274594.html | |||||||||||||||||
|
VBA Активация немодального окна при наведении на него мышкой
https://www.cyberforum.ru/ vba/ thread2274593.html Коллеги, добрый день! Такой вопрос: есть немодальное окно с TextBox-ом и парочкой Label-ов. Пользователь работает, неактивное окно висит рядом и показывают всякую фигню, то есть, инфу. Нужно, чтобы при наведении мышкой на окно, оно сразу же стало активным. В событии UserForm_MouseMove пытался сделать TextBox.SetFocus - окно не делается активным. UserForm.Show или UserForm.Activate - то же... |
Диалоговое окно в excel VBA Коллеги, доброго дня. Подскажите пожалуйста с решением задачи. За время работы в одном файле, было написано достаточно большое количество макросов, которые хочется объединить в одну красивую форму. Форма выглядит следующим образом: TextBox - наиманование валюты, задается автоматически из ячейки. ComboBox - выпадающий список возможных вариантов. TextBox - сюда вводятся цифры... | |||||||||||||||||
| VBA Как скопировать тему и тело письма в текстовый файл? Как скопировать тему и тело письма в текстовый файл https://www.cyberforum.ru/ vba/ thread2274582.html | VBA Разбиение ячейки на несколько Добрый день. Прошу прощения за дурацкий вопрос, но что-то не могу разобраться. В ячейке А1 через запятую, без пробелов есть список чисел. Необходимо в столбце В отдельно в каждой ячейке эти числа поместить. Написал нечто вот такое: Sub Razd() Dim s() As Integer Dim i As Integer s = Split(, ",") For i = 0 To UBound(s) Cells(B, i + 1) = s(i) https://www.cyberforum.ru/ vba/ thread2274576.html | |||||||||||||||||
|
VBA Копировать несколько ячеек предпоследней строки в конец другого листа Здравствуйте! Помогите пожалуйста. Имеется список, который постоянно меняется (Лист1), на другом Листе3 таблица. Нужно скопировать третью снизу строку с Лист1 , ячейки начиная со столбца B до G и вставить в конец таблицы Лист3 в те же столбцы. Цвет ячейки тоже должен копироваться. Заранее благодарен... |
VBA Запуск 10 макросов с 1 файла
Здравствуйте!
Такая ситуация имеется 10 папок, в каждой есть по одному WORD файлу с одинаковым макросом (меняет связи в зависимости от месяца). Для того чтобы поменять связи в десяти файлах приходится открывать каждую папку, затем каждый файл, запускать макрос, и менять с его помощью свя
Наверх
| |||||||||||||||||
