Вопросы с тегом «vba»

Я хочу добавить сообщение и дату, когда я открою шаблон электронной почты, который я сохранил. Мне удалось только добраться до кода ниже: Private Sub adddate() .Item.Subject = "Prep Status Report " & Format(Date, "dd/MM/yyyy") End Sub Как я могу улучшить это, чтобы он работал как задумано. Тема письма должна гласить: …

microsoft-outlook  vba 

проблема : При копировании ячейки, содержащей «скрипт» из Excel, в другую программу, двойные кавычки ( "" ) добавляются автоматически вместо одинарных кавычек ( " ). Кроме того, в начале и конце сценариев " автоматически добавляется. Вот мой сценарий, и выделенные цитаты являются посторонними: " // скрипт для изменения бюджета по …

microsoft-excel  vba 

У меня есть лист Excel с данными. Я хочу получить данные с одного листа на другой на основе условия. -------------------------------------------- | Cell A | Cell B | | |------------------------------------------| | TS11 | yes | | |------------------------------------------| | TW22 | yes | | |------------------------------------------| | TS44 | yes | | |------------------------------------------| …

microsoft-excel  worksheet-function  vba  microsoft-excel-2007 

По какой-то причине Excel заставляет меня использовать мой регион для нижних колонтитулов, когда я вставляю дату. Тем не менее, он также не обновляется автоматически при открытии листа. Без форматирования это довольно тривиальная проблема, однако форматирование текста проблематично, и я не уверен, как это исправить со всеми кавычками, которые, казалось бы, …

microsoft-excel  vba  macros  microsoft-excel-2013 

Я пытаюсь переместить все наши ежедневные файлы из списка в Excel. Столбец D имеет источник, D:\Hard drive\Lee’s Hard Drive\My Documents\WBD052U_PRINT01*.txt Столбец E имеет пункт назначения, C:\Users\Lee\Documents\Work\01. WBD52U Когда я запускаю макрос, я получаю следующую ошибку Ошибка времени выполнения 13. Несоответствие типов. Если я просто сделаю 1 строку, т.е. FromPath Range(D5:D5) …

microsoft-excel  vba 

У меня есть куча (14) сводных таблиц на двух листах (по 7 на каждом листе). У меня есть кнопка обновления на листе, которая обновляет все сводные таблицы, используя следующий код: Sub Refresh_Pivots() Dim pt As PivotTable Dim WS As Worksheet For Each WS In ThisWorkbook.Worksheets For Each pt In WS.PivotTables …

microsoft-excel-2010  vba  pivot-table 

Sub invoicepdf() Sheet2.Range("a1:j53").ExportAsFixedFormat xlTypePdf,Filename:="C:\Invoice data\" & Sheet2.Range("j12").Value, OpenAfterPublish:=true End Sub Я использую это в Excel vba для преобразования Excel в PDF, но я вижу синтаксическую ошибку. Может кто-нибудь, пожалуйста, помогите, где я делаю ошибку.

windows-10  microsoft-excel  vba 

У меня есть два листа exel, и мне нужно объединить эти листы, но в листах 1 я имею 800 записей на листе 2, у меня есть 20 записей, и некоторые значения из листов 2 дублируются на листе 1. Я хочу обновить запись дублированных значений на листе 1 Пример листа 1: …

vba  merge  vlookup 

Я пытаюсь распечатать макрос на общий принтер на компьютере коллеги. Я пробовал следующее, но безрезультатно Sub Tag() ActiveCell.Resize(1, 1).Copy Worksheets("Sheet1").Range("A1") ActiveCell.Offset(, 1).Resize(1, 1).Copy Worksheets("Sheet1").Range("A2") 'Worksheet("Sheet1").Range("A1:A2").Borders.LineStyle = xlNone Sheets("Sheet1").Select Range("A1:A2").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone …

microsoft-excel  vba  macros 

На этот вопрос уже есть ответ здесь: Как я могу определить, существует ли лист a в рабочей книге? 4 ответа У меня есть следующий код: If Sheets("EstimateTemplate").Visible Then Sheets("EstimateTemplate").Select ActiveWindow.SelectedSheets.Visible = False Sheets("Navigation").Select Else Sheets("EstimateTemplate").Visible = True Sheets("Navigation").Select End If как я могу обернуть его с предложением «ЕСЛИ ЛИСТ СУЩЕСТВУЕТ» …

microsoft-excel  vba  macros 

Я создаю функции VBA в Excel 2007. У одного есть прототип: Function ToLevelCode_Range(val As Double, ByRef R As Range) Я могу назвать это так хорошо, и он получает правильный результат: =ToLevelCode_Range(B2, Categories!D1:D4) Есть экземпляр, где я хочу, чтобы вторым параметром был определенный набор значений: =ToLevelCode_Range(B2, { 0.38, 0.78, 1.18, 1.58 …

microsoft-excel  microsoft-excel-2007  worksheet-function  vba 

Я пытаюсь создать макрос, который будет автоматизировать отчет. Проблема в том, что исходные данные приносят нам ненужные данные, а сам отчет выполняет множество вычислений на основе всей таблицы. На основе таблицы выполняются сотни вычислений, поэтому добавление параметра включения к каждой формуле в отчете займет непомерно много времени. Это легко обойти …

microsoft-excel  vba 

В моем макросе есть строка: Selection.AutoFill Destination:=Range("A2:A86893") но окончательный номер ячейки (86893), то есть общее количество строк в моих данных, должен изменяться при каждом запуске макроса. Мне нужен этот макрос, так как мой объем данных увеличивается с каждым разом, но до сих пор мне приходилось менять адрес вручную. Можно ли …

microsoft-excel  vba 

У меня Mac и я запускаю Excel 2016. У меня есть лист Excel, который автоматически фильтруется по дате. До недавнего времени у меня сохранялся макрос, который позволял мне нажимать Ctrl + Option + n, и он повторно применял фильтр без необходимости переходить домой -> Сортировать и фильтровать -> Повторно применить …

vba  macros  microsoft-excel-2016 

Я хотел бы определить в VBA, какой столбец отображается непосредственно справа от замороженной панели, в примере изображения это будет столбец G. Смотрите картинку для справки. Есть идеи?

microsoft-excel  vba