|
|
Другие темы раздела | ||||||||||||||||||
VBA Скопировать данные с одного листа на другой с сохранением всего форматирования
https://www.cyberforum.ru/ vba/ thread1265385.html Добрый день, уважаемые форумчане! Прошу вас о помощи. Имеется таблица, и по нажатию на кнопку на одном из листов создается новый лист, а данные с листа "title" копируются на этот новый лист. Важным условием является сохранение полного форматирования: ширина столбцов, высота строк, заливка и шрифты. Использую следующий код для копирования: Sheets.Add(after:=Sheets(Sheets.Count)).Name =... |
Скопировать данные с одного листа на другой с сохранением всего форматирования VBA Всем привет. Есть 2 файла: общий и свод. В файле общий есть следующие листы: макросы, общий1, общий2. В файле свод есть много листов, один из которых называется свод34. Задача: перенести полностью лист свод34 в общий1, при этом должен быть открыт файл общий. С файла свод необходимо забрать данные и закрыть. Кнопка "перенос" находится на листе макросы в файле общий. Мне удалось перенести... | |||||||||||||||||
VBA Исправить ошибку при отправке файла через почтовый клиент Mozilla Thunderbird
https://www.cyberforum.ru/ vba/ thread1265045.html Добрый день! Пытаюсь сделать так, чтобы результаты вычислений отправлялись через почту, но выдает ошибку. Сам код: Sub sen() ActiveWorkbook.SendMail Recipients:="adress@mail.ru", Subject:="makros" End Sub ошибка во вложении. в качестве почтового клиента используется mozilla thunderbird |
VBA Как перевернуть массив названий писем в папке "Входящие" Outlook? Пишу для outlook Скрипт перебирает письма в папке входящие но начинает перебирать с последнего письма поэтому массив начинается с послденей записи надо перевернуть. основная выборка на чем затык: Dim sstr() As String 'Задаю строчный массив. For Each myItem In truFolder ' перебор писем в папке If InStr(myItem.Subject, "какая то хрень") Then 'проверка что заданое... https://www.cyberforum.ru/ vba/ thread1264852.html | |||||||||||||||||
VBA Как сделать так, чтобы макрос удалял данные из строки, начиная со столбца "p" и заканчивая столбцом "y"? Здравствуйте, как сделать так, чтобы макрос удалял данные из строки, начиная со столбца "p" и, заканчивая столбцом "y" включительно? Очищение прерывается на первой пустой ячейке в строке. Sub Ochistit() Dim p As Range Set p = .Find(, , xlValues, xlWhole) Do Until p Is Nothing Range(p, p.End(xlToRight)).ClearContents Set p = .FindNext(p) Loop |
VBA Экспортировать содержимое файла .txt так, чтобы разделенные символом ; данные разносились по разным столбцам
https://www.cyberforum.ru/ vba/ thread1264495.html Подскажите как реализовать так что бы в разные столбцы заносились данные. имеем txt файл с содержимым: - Название 1 - 1 ингредиент; количество; вес; 2 ингредиент; количество; вес; 3 ингредиент; количество; вес; ------------------------------- - Название 2 - 1 ингредиент; количество; вес; | |||||||||||||||||
VBA Аппроксимация линейной функции
https://www.cyberforum.ru/ vba/ thread1264111.html Даны значения x и y ,помогите ,пожалуйста, в vba найти a и b функция линейная |
VBA Найти количество чисел из заданного набора, которые являются степенями пятерки Здравствуйте, форумчане! Помогите пожалуйста решить вот такую замысловатую задачу! Даны натуральное число n и целые числа а1, а2, ..., аn. Найти количество чисел аi (i = 1, 2, ..., n), являющихся степенями пятерки. (Определить процедуру, позволяющую распознавать степени пятерки.). Надеюсь на вашу помощь! Спасибо! | |||||||||||||||||
VBA Как сделать цикл с выбором ячеек? Добрый день! Требуется зациклить такой макрос: ' Range("B1").Select ' Selection.End(xlDown).Select ' Range(Selection, Selection.End(xlDown)).Select ' Selection.Cut ' Range("D2").Select ' ActiveSheet.Paste https://www.cyberforum.ru/ vba/ thread1263898.html |
VBA Ввести массив, удвоить его элементы и обработать их в зависимости от величины элементов
https://www.cyberforum.ru/ vba/ thread1263885.html Реализовать следующий алгоритм: поэлементно с клавиатуры вводится массив S из 7 элементов. Затем каждый элемент удваивается. После этого те элементы, которые больше 10, - обнуляются, а к остальным прибавляется по 2 . После выводится результирующий массив на экран. | |||||||||||||||||
Макрос для проверки на кратность количества при вводе VBA Здравствуйте, уважаемые форумчане! Я недавно начала изучать VBA и столкнулась с такой задачкой: Есть таблица, в которой имеются колонки: Артикул,Номенклатура,Количество,Цена,Сумма,Кратность. Колонка Кратность заполнена цифрами. При вводе количества в каждую строку необходимо сделать проверку на кратность числу из колонки Кратность (если кратность отличается от 0), если пользователь введет... |
VBA Записать в файл содержимое ListBox, в котором не выбран какой-нибудь отдельный элемент
https://www.cyberforum.ru/ vba/ thread1263401.html Здравствуйте, подскажите как правильно нужно написать что бы при нажатии на клавишу содержимое listbox записалось файл. так не работает ( Open "Новый.txt" For Output As #1 Write #1, ListBox
Наверх
|