|
|
Другие темы раздела | |
VBA Поиск ячейки с Лист 1, копирование на Лист 2 Доброго времени суток! Не силен в VBA, поэтому прошу помощи. Имеется файл, в котором есть чередующиеся столбцы: время, значение. Необходимо находить время (с погрешностью в минуту и с шагом в 10 минут, допустим 00:00:, следующее 00:10: и т.д. до 23:50:), а соответствующее ему значение в соседнем справа столбце копировать на лист 2. Так с каждым столбцом со временем (A,C,E,G,I,K,M,O,Q,S,U,W,Y),... https://www.cyberforum.ru/ vba/ thread1969012.html |
VBA При создании сводной таблицы теряется формат Дата Почему-то при создании Сводной таблицы средствами VBA столбцы с датами переносятся как-то не так, как ручками, теряет формат даты. И в результате я потом не могу сгруппировать их по годам. Ругается: "Выделенные объекты нельзя объединить в группы" |
VBA Импорт нескольких txt файлов
https://www.cyberforum.ru/ vba/ thread1968931.html Добрий день! Возможно сделать импорт нескольких txt файлов с папки, используя параметри With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;D:\reestr\reestr_1.txt", Destination:=Range("$A$1")) .Name = "reestr_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False |
VBA Количество значений в строке
https://www.cyberforum.ru/ vba/ thread1968897.html Доброго дня, использую функцию Dim AdrMail As String Dim a As Double Dim b As Double a = 1 b = 5 AdrMail = ActiveDocument.Range(a, b) берутся из строки значения с 1-го по 5-е, подскажите плиз как сделать, что бы брались от 1-го до последнего в строке? |
Работа с диапазоном ячеек в VBA VBA Выручайте. Имеется диапазон из десяти ячеек, в которые программным способом вносятся числовые значения. Требуется, чтобы в случае, если хотя бы одно из десяти значений не превышает определённый порог (вносится через ComboBox), то в одиннадцатую ячейку вносится фраза "СООТВ.", в противном случае "НЕ СООТВ". Бьюсь уже который день. Спасибо заранее. |
VBA Поиск в тексте вложенного файла
https://www.cyberforum.ru/ vba/ thread1968825.html Доброго времени суток. С VBA вообще не знаком по этому прошу помощи. Написал скрипт который по правилу сохраняет файлы из приходящей почты все работает, но не как не могу написать что бы он смотрел в файл и находил нужный текст и через условие хотя бы выдавал его как msgbox. Файлы приходят как текстовые документы, но в них есть разделители что дает корректно открыть его любой версией... |
VBA Макрос для вложения файла в письмо Доброго дня, поставлена была задача: сделать кнопку в МС Word, после нажатия на которую, документ будет формироваться в пдф и вкладываться в электронное письмо в Оутлуке. по отдельности две функции работают. Функция письма: ActiveDocument.SendForReview _ Recipients:="alexei@mail.ru", _ Subject:="Test Environment Data Load Request", _ ShowMessage:=True, _ IncludeAttachment:=False ... https://www.cyberforum.ru/ vba/ thread1968780.html |
Доступность переменных VBA Всем привет. Есть Excel файл с макросами (Условно назовем "Книга1.xlsm"). Добавил в "ЭтаКнига" код для создания переменной Option Explicit Const ExtWb As String = "\\server\test\Книга2.XLSX" Public obExtWb As Object Sub WorkBook_Open() Set obExtWb = GetObject(ExtWb) End Sub |
VBA Сколькими способами можно разложить на равные кучки 36 орехов?
https://www.cyberforum.ru/ vba/ thread1968719.html ...Вот только в 6 классе нам не впаривали VBA и не заставляли решать задачи с его помощью. Задача: сколькими способами можно разложить на равные кучки 36 орехов? Описать способы разложения на равные кучки. |
VBA Вывод по последнюю строку Всем привет. Скажите как сделать, чтобы вывод осуществлялся по последнюю строчку. Имеется ввиду, что список будет пополняться, а вывод идет по конкретную строку. Тут надо счетчик или что там надо поставить, в этом у меня беда. :( Sub proba100() Dim i As Byte Dim d As Byte Dim ar() Worksheets(1).Activate ReDim ar(4 To 27, 1 To 9) For i = 4 To 27 https://www.cyberforum.ru/ vba/ thread1968676.html |
VBA Долго делает макрос: поля выкрашеные не в синий цвет меняем на белый цвет 'перед печатью поля выкрашеные не в синий цвет меняем на белый цвет, чтобы они не были видны For i = 1 To ActiveDocument.Fields.Count '"-16777216" = wdColorBlack = чёрный цвет '"16711680" = wdColorBlue = синий цвет '"16777215" = wdColorWhite = белый цвет If ActiveDocument.Fields(i).Type = 51 And _ ... |
VBA Исправьте мои ошибки, где вычисляю сумму ряда и факториал Здравствуйте! Прошу помощи. Не знаю, как правильно написать код, чтобы определить значения функций и сумму на всех четырёх этапах. Пояснение по этапу, к примеру: 1-й этап: i = 0 и n! = 1. 2-й этап: i = 1 и n! = 24. 3-й этап: i = 2 и n! = 40320. 4-й этап: i = 3 и n! = 479001600. Все этапы должны быть показаны в ячейках Эксель. Пытаюсь вычислить сумму ряда вручную https://www.cyberforum.ru/ vba/ thread1968642.html |
185 / 183 / 31
Регистрация: 11.10.2016
Сообщений: 599
|
|
26.04.2017, 17:27 | 0 |
Изменить имя эскиза в Solid Works - VBA - Ответ 1037425326.04.2017, 17:27. Показов 980. Ответов 2
Метки (Все метки)
Ответ
возможно, там есть что-то, типа, ActiveDocument.Name
Вернуться к обсуждению: Изменить имя эскиза в Solid Works VBA
0
|
26.04.2017, 17:27 | |
Готовые ответы и решения:
2
Есть ли другие форумы на которых обсуждаются вопросы по VBA под AutoCAD, Solid Works? Solid Works Api и C# Solid Works Api Системник для Solid Works |
26.04.2017, 17:27 | |
26.04.2017, 17:27 | |
Помогаю со студенческими работами здесь
0
Solid Works виснет при команде на печать Что делать с ошибкой "Создание сетки не удалось. Прерывание анализа" в Solid Works XAMPP Apache что за "It works!? Как изменить? Импортирование эскиза |