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 […]

Interesting Posts

Лучший способ связать два листа в excelba

Формула Excel = ПРОДУКТ (1 + A1: A21) -1

Выделив раскрывающееся окно Excel, не отображается после сохранения и повторного открытия

Найти последнюю ячейку строки в таблицах (CALC, excel) с формулой, основанной на последней записи (текст / номер)

Невыбранные элементы в Combo Box в Excel VBA

Как проверить дубликаты записей в Excel с помощью POI?

Формула для выбора / выбора 1 Значение столбца из 2 столбцов на основе условий (для добавления)

Карты питания и подключение к Интернету

Как использовать определенные данные в качестве оси в excel

Печать в ячейки Excel по столбцу в VBA

Гиперссылки Excel и VBA

Транспортировка ключевого слова с управляемым ключом: печать результатов для Excel

Отображать китайские символы из кодированного CSV

Как вы извлекаете содержимое конкретной ячейки (строки, столбца) документа Microsoft Excel, которое охватывает более 1000 «Таблиц»?

Чтение отрицательного значения из ячеек

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