|
|
Другие темы раздела | ||||||||||||||||||
VBA Сохранить макрос
https://www.cyberforum.ru/ vba/ thread1676323.html Здравствуйте! Я написал свой макрос с GUI для Excel. Когда нажимаешь на элемент GUI, то не открывается код самой формы, а открывается только тело выделенного элемента. В чём собстевнно проблема: мне надо сохранить всю форму, чтобы потом в дальнейшем я мог ею пользоваться в других документа. В идеальной варианте, хорошо бы сохранить GUI+макрос в такое место, чтобы он автоматически подгружался... |
Программа по блок схеме VBA Помогите пожалуйста, срочно надо написать по блок схеме программу | |||||||||||||||||
VBA Выделение ячейки по условиям Доброго дня. Встал в тупик логического характера. Нужно произвести заливку ячейки H(i) по условию того, что J(i)=I(i) и H(i)=H(i+1). Вроде ничего сложного, а туплю. Sub curvesel() Dim r As Integer For r = 17 To 50 Step 1 If Worksheets("Лист1").Range("J" & r - 1).Value = Worksheets("Лист1").Range("I" & r).Value And Worksheets("Лист1").Range("H" & r - 1).Value = Worksheets("Лист1").Range("H"... https://www.cyberforum.ru/ vba/ thread1676268.html |
VBA Посчитать количество чисел в столбце и вывести в свободную ячейку
https://www.cyberforum.ru/ vba/ thread1676247.html Здравствуйте, нужен макрос, который по первому столбцу посчитает кол-во товара, затем найдет последнее число и после него через пять строк напишет ответ (кол-во цифр). Оба варианта не работают. Вот код: Sub kol() Application.Worksheets("Ëèñò3").Activate Dim iLastRow As Long, c As Integer, i As Long iLastRow = Cells(Rows.Count, 1).End(xlUp).Row c = 0 For i = 20 To... | |||||||||||||||||
VBA Процедура зависает Написал вот такую процедуру для разделения строки в ячейке на отдельные слова. MsgBox правильно отображает все слова, а перед отображением последнего слова процедура виснет. Sub make_words_from_str() Dim str_line As String Dim word As String str_line = Worksheets("Лист1").Cells(2, 1).Value Do While str_line <> "" For i = 1 To Len(str_line) char_i = Mid(str_line, i, 1) |
VBA Сумма диапазона ячеек в столбце и запись итога в последнюю свободную строку
https://www.cyberforum.ru/ vba/ thread1676113.html Здравствуйте, скажите как посчитать сумму в столбце (Лист 3, столбец F), если в нем уже есть данные, нужно найти первую свободную ячейку в этом же столбце и внести туда итог суммы. Все макросы записаны в "Эта книга" (Там 2 варианта, ни один не работает)) На всякий случай код, если кому-то лень скачивать файл: 1) вариант Dim r As Long, iLastRow As Long, S As Integer iLastRow =... | |||||||||||||||||
VBA Обработка множества документов word/pdf и последующий семантический анализ их содержимого
https://www.cyberforum.ru/ vba/ thread1676099.html Добрый день, уважаемые форумчане. Подскажите, каким образом корректней решать следующую задачу: Есть множество документов в форматах PDF/Word (Можно всё конвертировать в pdf). Документы представляют собой технические описания, Госты и.т.д., следовательно, их содержание не имеет одинаковой формы, имеет различную структуру, могут встречаться многомерные таблицы, рисунки и.т.д. Каким образом... |
VBA Вывод текста из файла Привет всем Изучаю программирование на языке Basic Возник вопрос. Как реализовать вывод текста и как задать границы вставки из текстового файла в ворд, exel, весь форум облазал толком не понял, объясните, пожалуйста, 2 дня мучаюсь Заранее спасибо) | |||||||||||||||||
VBA Настройка значений диаграммы Добрый день, уважаемые коллеги Нубский вопрос... :) Перечитал главы книги по VBA о построении диаграмм, искал в гугле, искал на нашем форуме, ни где не нашел ответа. Подскажите пожалуйста, кто знает, как вывести значения ряда на диаграмму (наверное какое свойство объекта Chart)? https://www.cyberforum.ru/ vba/ thread1676042.html |
VBA Разделение по строкам и исходному коду
https://www.cyberforum.ru/ vba/ thread1676037.html Есть код, который отвечает за то чтобы в диапазоне не повторялось слово: Set Rng = Worksheets("Лист1").Range("B4:M27").Find(What:=ComboBox2.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not Rng Is Nothing Then MsgBox "Это имя уже есть, введите другое" Exit Sub End If В этом коде, если во всем диапазон повторяется это слово, до ввод невозможен. Как можно сделать так, чтобы ввод... | |||||||||||||||||
VBA Перемножение столбцов и запись произведения в третий столбец Здравствуйте, запарилась на простом макросе)) В файле есть 2 столбца, которые нужно перемножить, но начинаются они не с 1 строки, а с 20, т.е. С20 и D20, произведение нужно записать в столбец F20. Пока значения в столбце С20 больше нуля, то перемножать... Я сделала как-то так, но не работает: Dim lLastRow As Long, i As Long lLastRow = Cells(Rows.Count, 3).End(xlUp).Row For i = 20 To... |
VBA Автоматическое изменение дат
Добрый день, ребята. Столкнулся со следующей проблемой: нужно привести даты к одному виду (то есть один массив данных введён корректно (в формате xx.xx.xxxx), а другой - нет (в формате xx.xx.xx), пример представлен на скриншоте во вложении.
Так вот, знаю, что проблема решается сложением пустой строки с всем массивом дат (тогда формат xx.xx.xx приводится к корректно
Наверх
|