Этот вопрос имеет свои корни здесь: Как я могу записать переход от 0 до 1 в столбце в Excel? Но вместо нулей и единиц я бы хотел использовать On / Off в качестве параметра переключения. Код должен сканировать столбец. Каждый раз, когда он видит «Выкл.», Немедленно следует «Вкл.», Считайте его. Я...
Пользователь отправил это в другом вопросе : Вот некоторый код, который будет следить за диапазоном A1:G12на любом листе с кодом. Если rстрока была изменена, то код скопирует все из Ar: Gr в лист с кодовым именем shtLog. (Кодовое имя - это имя, отображаемое в VBA, а не имя на вкладке, которую вы...
В настоящее время у меня есть код VBA, который автоматически снимает защиту всех листов в моем файле Excel 2016 по имени пользователя. В настоящее время, когда я открываю файл, он запрашивает пароль. Я не хочу, чтобы это запрашивало пароль, я просто хочу снять защиту с ВСЕХ листов, если имя...
У меня установлено четыре разных документа Word 2003, все с использованием одного источника данных Excel, но документы имеют разные логотипы, текст, термины и макеты столбчатого содержимого. В настоящее время remLetter1.doc remLetter2.doc remLetter_c1.doc remLetter_c2.doc каждый открывается,...
У меня есть книга Excel с около 150 флажками ActiveX. Все эти элементы управления Active X приводят к длительному времени загрузки при открытии книги (около 20 секунд на моем компьютере). Есть ли способ ускорить время загрузки рабочей книги (не переходя на элементы управления...
У меня есть куча (14) сводных таблиц на двух листах (по 7 на каждом листе). У меня есть кнопка обновления на листе, которая обновляет все сводные таблицы, используя следующий код: Sub Refresh_Pivots() Dim pt As PivotTable Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets For Each pt In...
У меня есть два листа exel, и мне нужно объединить эти листы, но в листах 1 я имею 800 записей на листе 2, у меня есть 20 записей, и некоторые значения из листов 2 дублируются на листе 1. Я хочу обновить запись дублированных значений на листе 1 Пример листа 1: Пример листа 2:...
Я хотел бы определить в VBA, какой столбец отображается непосредственно справа от замороженной панели, в примере изображения это будет столбец G. Смотрите картинку для справки. Есть идеи?...
У меня есть несколько книг Excel, которые были изначально созданы в версии 2007 года. Они являются общими рабочими книгами, содержат некоторый код VBA и защищены от изменения пользователем определенного содержимого. При их открытии в Excel 2010 ни одна из кнопок изображений больше не работает. При...
Обе машины работают под управлением 64-разрядных версий Windows 7. Проект мучительно сложен, я не программист. Функция проекта состоит в том, чтобы автоматически искать в письмах вложения по напоминанию, которое срабатывает каждую ночь, и загружать вложения только по указанному пути, строка...
Здесь новичок VBA, и я очень старался найти макросы, которые я могу настроить и объединить, чтобы сделать это, но не смог этого сделать. Я вставил некоторые из моих данных в конце этого поста. Я хотел бы пройти через столбец 1 (ID_Num) и найти все строки с одинаковым ID_Num (они должны быть рядом...
Я пытаюсь распечатать макрос на общий принтер на компьютере коллеги. Я пробовал следующее, но безрезультатно 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") Что я делаю неправильно? у меня есть листы,...
Я пытаюсь переместить все наши ежедневные файлы из списка в 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...
Я создал макрос Excel VBA и форму, которая фильтрует по конкретному столбцу и экспортирует фильтрацию этого конкретного столбца в PDF. Форма выглядит как на картинке ниже: ниже код: Private Sub ExportBtn_Click() On Error GoTo errHandler 'remove previous autofilter If ActiveSheet.AutoFilterMode Then...
Ячейка 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/ вручную, скопируйте и вставьте его обратно в мою таблицу. Можно ли как-нибудь...