|
|
Другие темы раздела | ||||||||||||||||||
VBA Очистка последней заполненной строки в диапазоне таблицы Очистка последней заполненной строки в диапазоне таблицы. Подскажите пожалуйста макрос для данного действия, пробовал "Rows(Cells(Rows.Count, 1).End(xlUp).Row).ClearContents" очистка происходит всей строки, а мне надо только от A до G столбца пример в файлике. https://www.cyberforum.ru/ vba/ thread1239388.html |
Ошибка при выполнении ThisWorkbook.Sheets.Visible = -1 VBA Проблема такая есть скрипт, он работает, ну почти работает, он как и надо, при верном вводе пароля ведает видимой определенную страницу, но при этом зависает и выдает ошибку на строке 16 - ThisWorkbook.Sheets(q).Visible = -1 Private Sub CommandButton1_Click() UserForm1.Hide End Sub Private Sub CommandButton2_Click() Dim b, q, w As String Dim i, a As Integer a = ComboBox1.ListIndex | |||||||||||||||||
VBA Организовать поиск введённого кода по таблице
https://www.cyberforum.ru/ vba/ thread1239349.html 1. Есть код, организовать поиск введённого кода по таблице 2. Сначала: на полное совпадение затем на совпадение первых 4-х символов на совпадение последних 4-х символов далее поиск с заменой схожих символом : B - 8, D - 0, g - 9, G - 6 , I - 1, i -1, l - 1, O - 0, s - 5, S - 5, поиск производиться с постепенной подменой символов(лестницей) + коминация этих символов сам код находиться в... |
VBA Application.SendKeys "не видит" подчинённую форму Всем доброго времени суток! Прошу помощи в такой ситуации: есть главная форма в excel, она запускается с помощью макроса. На этой главной форме есть кнопка, которая запускает подчинённую форму, предварительно скрывая главную. Я пытаюсь с помощью Application.SendKeys отправить команду нажатия клавиш Alt+Print Screen подчинённой форме при активации этой самой подчинённой формы (при инициализации... https://www.cyberforum.ru/ vba/ thread1239242.html | |||||||||||||||||
Как обновить значение функции, берущей время с сервера, при каждом открытии книги? VBA Добрый день, есть функция вставки времени с сервера: Private Function GetRealTime(Optional ByVal GMT& = 4) As Date On Error Resume Next: Err.Clear: Dim http As Object, URL$, GMT_Time$, m$, mv$ 'GetRealTime = Now 'значение по-умолчанию Set http = CreateObject("Microsoft.XMLHTTP") URL$ = "http://rbc.ru/" ' можно указать практически любой сайт ... |
VBA Установка автофильтра в листе Excel при выгрузке данных из Access
https://www.cyberforum.ru/ vba/ thread1239147.html Здравствуйте. Делаю выгрузку данных из формы аксесса в excel. Вот код выгрузки: Dim PrintRep As Object Dim ExportData As DAO.Recordset Dim LastRow As Integer Set PrintRep = CreateObject("Excel.Application") Set WB = PrintRep.Workbooks.Add Set WS = WB.Worksheets(1) Set ExportData = Me.FactOfJobsForPeriod.Form.Recordset WS.Range("A1:H1").Merge WS.Rows(1).Font.Bold = True | |||||||||||||||||
VBA Скопировать определенные данные с одного листа на другой Здравствуйте,давно читаю и впервые понадобилась помощь,нужно чтобы с одного листа с определенного человека с определеной даты копировались данные на другой лист,к примеру к менеджеру Моткиной 5 августа пришло два клиента,в два разных офиса,на листе "группы" я вручную пишу суммы полученные от клиентов к примеру отрадное - 4700 Щелковская - 7600,Нужно чтобы сумма за день уходила на лист "полная... https://www.cyberforum.ru/ vba/ thread1239102.html |
Запись данных из одного массива в другой, ошибка "Subscript out of range" VBA Друзья, помогите разобрать в причине ошибки, которую выдает компилятор при попытке записать в один массив данные из другого: Sub slovosoch() n = 1 Worksheets(1).Activate Dim Arr() Dim Str Str = Split(Cells(2, 4)) For k = LBound(Str) To UBound(Str) | |||||||||||||||||
VBA Как сделать так, чтобы работу макроса нельзя было прервать с помощью Ctrl+Break и других комбинаций? Добрый день, известно, что работу мкроса можно остановить, например, ctrl+break/pause. Возможно и ещё другими комбинациями.. Что нужно вписать в тело макроса, чтобы он никогда не реагировал на возможные прерывания выполнения? Иными словами, как можно сделать так, чтобы макросы до конца выолнил задачу без возможности остановки его работы пользователем? https://www.cyberforum.ru/ vba/ thread1239032.html |
VBA Сравнение столбцов открытых книг
https://www.cyberforum.ru/ vba/ thread1238987.html у меня есть открытые книги и надо сравнить столбцы "Е" в этих книгах, названия книг неизвестны, известно только одно слово "Москва". т.е. например открыты у нас две книги и в названии этих книг присутствует слово "Москва". | |||||||||||||||||
Как нарисовать граф по матрице ребер и их весов? VBA получив необходимые исходные данные, ставится вторая задача. Как между ними нарисовать граф? В прикрепленном файле есть пары совстречающихся фраз и расстояние между ними. от 1 до 34. Можно ли связи изобразить графически как на рисунке. и можно сделать, чтобы линии автоматически подбирались исходя из своей длины, например 1 условная единица =линии 3 см. 2 условная единица линия 4 см, 3 условная... |
VBA Макрос для скачивания курсов, выполняющийся только в пустых ячейках
Здравствуйте! У меня след. проблема: Есть макрос для скачивания валютных ку
Наверх
|