VBA: команда Loop solver с ячейками «ByChange», меняющимися с каждым циклом

Я пытаюсь выполнить команду solver по определенной строке целевых ячеек с диапазоном ByChange и диапазоном ValueOf, также изменяющимся с каждым циклом. По сути, мне не нужно делать это вручную с помощью таблицы. Пока у меня есть: Sub loop_solver() Dim i As Long For i = 1 To 10 SolverReset SolverOptions precision:=0.001 SolverOk SetCell:=Range("S & i"), […]

Python win32 Worksheet.Copy () иногда работает

Я пытаюсь перебрать кучу файлов excel и скопировать определенный лист из каждого из них в другой файл excel: for ii in ll_files: excel = win32.gencache.EnsureDispatch('Excel.Application') wb_1 = excel.Workbooks.Open(ii) ws_1 = wb_1.Worksheets('Q1') wb_2 = excel.Workbooks.Open(r'filepath') ws_2 = wb_2.Worksheets('answers') ws_1.Copy(ws_2) wb_1.Save() wb_2.Save() wb_1.Close(True) wb_2.Close(True) excel.Application.Quit() print ii time.sleep(1) Работает примерно на половине файлов, которые я прокручиваю, а […]

Перемещение макроса через раскрывающийся список проверки данных

У меня есть список идентификаторов проектов (пример: 225-2646868-2454772), которые объединены в список проверки данных в excel. У меня есть макрос, построенный для выбора данного идентификатора и выполнения для идентификатора проекта. Я написал следующий код вокруг функции Loop. Процесс, по-видимому, «работает», потому что он повторяется несколько раз, однако не проходит через список проверки после первого идентификатора […]

splitStr не создает правильную дату-дату

Я создал макрос в контрольном списке, чтобы добавить простой элемент управления в команду, но теперь он начал вводить дату в формате США вместо формата в Великобритании. Я не понимаю, почему, и я не могу это исправить. Кто-нибудь может помочь? Все это работает независимо от формата даты splitstr = Split(Format(Now, "dd/mm/yyyy"), "/") d = DateSerial(CInt(splitstr(2)), CInt(splitstr(1)), […]

Как отправить объект формы из Excel в тело электронной почты?

Я борюсь с этим (казалось бы) простым шагом в макросе, который я пытаюсь написать. У меня есть объект формы Excel, который я пытаюсь скопировать, затем вставьте в элемент почты Outlook. Объект shape на самом деле является продуктом «инструмента для камеры» Excel. То, что я сделал, было создано диаграммой, которую мне нужно перевернуть на 90 градусов […]

Скопируйте диапазон значений в зависимости от даты в другом столбце

Я пытаюсь написать макрос, который копирует диапазон значений в один столбец на основе соответствующей даты в другом столбце. Например, мне нужно скопировать значения в столбце G, которые соответствуют дате в столбце B. Для 9/18/2015 мне нужно выбрать и скопировать диапазон в столбце G на основе даты 18/18/2015 из столбца B Тогда мне нужно сделать то […]

Формула в Excel для добавления значений на основе объединенной ячейки

У меня проблема: клиент хочет иметь 14 столбцов номеров, добавленных клиентом, но клиент находится на нескольких разных строках, а иногда только на одном. Хуже того, ячейки имени клиента объединены, и VLOOKUP возвращает мне только верхнее значение. Есть ли способ добавить все столбцы под критерии клиента (например, Джон в таблице ниже)? А затем скопируйте эту формулу […]

Добавление сообщения If в текст электронной почты Html в excel VBA

Я пытаюсь добавить в выражении if на полпути через текст текста HTML, который я использую в VBA для отправки электронной почты. Мне нужно выяснить, как получить код для добавления дополнительных гиперссылок, если ячейка на одной из вкладок имеет значение, может потребоваться до пяти, которые могут потребоваться добавить. Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) […]

Как отменить внешние задания печати из Excel VBA?

У меня есть надстройка Excel, в которой я читал имена файлов из столбца, ищет PDF-файлы, соответствующие этому имени, с помощью функции Dir () и использует ShellExecute для их печати (или выбранного подмножества) Я хочу знать, есть ли способ прервать все активные задания печати из Excel VBA. Например, если я понимаю, что я случайно вызвал печать […]

Перенести результаты в Excel из базы данных

Я не могу заставить этот код работать. В первый раз, когда я его запустил, он подсказал мне пароль, и макрос завершается каждый раз, но он не вытягивает результат в sheet1 . Что я могу сделать здесь? Sub Update() ThisWorkbook.Sheets("sheet1").Activate ThisWorkbook.Sheets("sheet1").Range("A1").Select Dim strStDt As String Dim strEnDt As String Dim strSQL As String strStDt = ThisWorkbook.Worksheets("lookup").Range("B6").Value […]

Давайте будем гением компьютера.