Я пытаюсь распечатать макрос на общий принтер на компьютере коллеги. Я пробовал следующее, но безрезультатно Sub Tag() ActiveCell.Resize(1, 1).Copy Worksheets("Sheet1").Range("A1") ActiveCell.Offset(, 1).Resize(1, 1).Copy Worksheets("Sheet1").Range("A2")...
Пока что одна строка не работает, когда я пытаюсь выделить макрос, который отлично работает как макрос, но не удается, когда я копирую код в нажатие кнопки команды ... Sheets(c.Value).Range("a1:i330").Copy Destination:=Sheets("estimating1").Range("a1") Что я делаю неправильно? у меня есть листы,...
Я действительно хочу изменить каталог этого кода, Application.ActiveWorkbook.Pathно я не знаю, где его разместить. Public Sub CharacterSV() Const DELIMITER As String = "|" Dim myRecord As Range Dim myField As Range Dim nFileNum As Long Dim sOut As String nFileNum = FreeFile Open ActiveWorkbook.Name...
Я пытаюсь переместить все наши ежедневные файлы из списка в Excel. Столбец D имеет источник, D:\Hard drive\Lee’s Hard Drive\My Documents\WBD052U_PRINT01*.txt Столбец E имеет пункт назначения, C:\Users\Lee\Documents\Work\01. WBD52U Когда я запускаю макрос, я получаю следующую ошибку Ошибка времени...
Я создал функцию макроса как: Sub updateFontCC() Dim doc As Document Set doc = ActiveDocument Dim i As Integer For i = 1 To doc.Range.Characters.Count If IsNumeric(doc.Range.Characters(i)) Then doc.Range.Characters(i).Font.Name = "Cambria" Else doc.Range.Characters(i).Font.Name = "Candara" End If...
У меня есть небольшой проект VBA (в Powerpoint), в котором мне нужно создать и сохранить файл, защищенный от записи (любого рода, первоначальная мысль - текстовый файл). Каков наилучший подход для этого? Я могу писать текстовые файлы, но я не знаю, как их защитить с помощью VBA (независимо от...
Ячейка C13 автоматически увеличивается на 1 при печати. Я использую только ячейку C13 для автоматического приращения, но у меня ячейка E13 = имеет связанное значение из Листа 3. Я хотел бы установить значение E13 в качестве МАКС. Приращения для C13 в следующем VBA: Private Sub...
У меня есть сценарий для правила Outlook, который удаляет из сообщения тело письма, а затем пересылает это новое письмо на номер мобильного телефона с неповрежденной темой. Сценарий VBA выглядит следующим образом: Public Sub SMS(msg As MailItem) Dim olMailFwd As MailItem Set olMailFwd =...
У меня есть лист Excel с данными. Я хочу получить данные с одного листа на другой на основе условия. -------------------------------------------- | Cell A | Cell B | | |------------------------------------------| | TS11 | yes | | |------------------------------------------| | TW22 | yes | |...
Я пытаюсь создать макрос для запуска файлового менеджера «Изменить изображение». По сути, я просто хочу макрос, который будет делать то же самое, что щелкнуть правой кнопкой мыши на выбранном изображении и затем щелкнуть по нему: Я не хочу менять картинку на что-то конкретное. Я просто хочу, чтобы...
У меня есть список слов ложбана в электронной таблице Excel: (Цифры слева - их частота в ложбанском корпусе, но это не должно быть важным.) Я вручную просматривал каждое слово на сайте http://jbovlaste.lojban.org/ вручную, скопируйте и вставьте его обратно в мою таблицу. Можно ли как-нибудь...
Код находит ячейку с балансом в ней и сохраняет ячейку в переменную foundcell, чтобы найти столбец баланса в электронной таблице. Есть несколько столбцов баланса. Я проверил это с помощью только что, FINDи это сработало, найдя первый столбец с «Баланс» в D8. Как только я добавил цикл для findnext,...
Я пытаюсь сохранить вложение электронной таблицы в формате CSV. Я могу инициировать процесс, когда вложение электронной таблицы найдено, но мне сложно совместить его со скриптом преобразования, который принимает два аргумента. сохранение вложения Public Sub saveAttachToDiskcvs(itm As...
Здесь новичок VBA, и я очень старался найти макросы, которые я могу настроить и объединить, чтобы сделать это, но не смог этого сделать. Я вставил некоторые из моих данных в конце этого поста. Я хотел бы пройти через столбец 1 (ID_Num) и найти все строки с одинаковым ID_Num (они должны быть рядом...
Я создал макрос Excel VBA и форму, которая фильтрует по конкретному столбцу и экспортирует фильтрацию этого конкретного столбца в PDF. Форма выглядит как на картинке ниже: ниже код: Private Sub ExportBtn_Click() On Error GoTo errHandler 'remove previous autofilter If ActiveSheet.AutoFilterMode Then...
Я хочу принудительно вводить значения в определенном столбце, вплоть до точки, в которой есть значения в соседнем левом столбце A. Было бы идеально избегать всплывающих окон, но вместо этого, чтобы границы ячеек указывали, что значение должно быть...
У меня есть книга Excel с около 150 флажками ActiveX. Все эти элементы управления Active X приводят к длительному времени загрузки при открытии книги (около 20 секунд на моем компьютере). Есть ли способ ускорить время загрузки рабочей книги (не переходя на элементы управления...
Я пишу скрипт на VBScript, который просматривает коллекцию из 2000 файлов Word и ищет те, которые содержат хотя бы абзац, используя нежелательный стиль. Итак, ядро моего скрипта: Set objDoc = objWord.Documents.Open(objFile.Path) With objDoc.Range.Find .Style = objDoc.Styles("Unwanted")...
Я работаю над документом, похожим на базу данных, для хранения предметов и их информации. У меня возникли некоторые проблемы, когда я думаю о том, как создать отчет для них, используя VBA. В настоящее время у меня есть пользовательская форма, которая имеет многостраничные вкладки для каждой строки...
Привет я хотел бы знать, как я могу захватить одну строку и разбить ее на две разные строки. Ячейка А1 имеет: Cat Dog В той же ячейке с помощью Alt + Enter Я пытаюсь создать массив большего размера, чем мой пример. Было бы: arr(0) = Cat arr(1) = Dog Sub CatchTwoString() Range("A1").Select Dim...