Подборка 2543 вопроса с тегом «vba» на WikiRoot: ответы IT-специалистов по Windows, Linux, Excel, сетям и программированию.
2543 вопроса
Ответ: Это, вероятно, не решит вашу проблему, но это сделает ваш код намного более ремонтопригодно. Public Sub PrintReportGroup(ByVal groupID As Long, ByVal startReport As Long, ByVal end...
Ответ: Проблема с вашим кодом лежит внутри SearchRange(FoundPos). Это работает только в этом приложении, если SearchRangeдиапазон начинается в строке 1. Изменяя диапазон на A21:A32, ваша...
Я работаю над проектом, который требует заблокированных ячеек на основе того, как ячейки условно отформатированы. В этом случае условно отформатированные ячейки имеют внутренний цв...
Ответ: Извлечение данных из других таблиц возможно с помощью специальных формул, таких как приведенная ниже: ='\\srv-file1.redacted\example share\[Time Sheet.xls]Sheet1'!$K$14 Эта формула...
Ответ: Функция, которую вы определили, является рекурсивной, вызывая себя безоговорочно, пока стек не будет заполнен всеми вызовами. Вы должны изменить название вашей подпрограммы, наприм...
Ответ: Просто предположение: fname = "S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx" MsgBox fname ActiveWorkbook.SaveAs Fi...
Ответ: Чтобы решить эту проблему, вы можете использовать приведенный ниже код VBA. Private Sub TextBox1_Change() Dim Ray As Variant If Len(TextBox1.Value) = 0 Then Sheet1.AutoFilterMode =...
Этот веб-сайт был неоценимым для меня на протяжении многих лет, и я, как правило, смог найти ответы на свои вопросы, просто выполнив поиск, однако я столкнулся с задачей, которая п...
Ответ: Я построил это решение на основе примера, показанного на прилагаемом снимке экрана. В вашей формуле, которую =INDEX(B6:B25,MATCH(B50,B4:AP4,0))вы пытаетесь сопоставить, месяцы нахо...
Вариация по разделению / извлечению данных из одной строки в тему из нескольких строк; Однако с разницей и хотел бы некоторый вклад. Этот сценарий включает чтение данных из одного...
Я пытаюсь получить текст в формате .txt с FTP, который я хочу в Excel, вот что я получил от поддержки наших поставщиков: Создайте файл с именем GetFromFTP.bat с этим в нем. echo of...
Ответ: Есть несколько способов, которыми вы можете достичь этого. Следующие примеры предполагают, что ваша таблица с именем, table1и что ваши поля id, class, versionи fruit(не fruit?) - и...
Я написал приведенный ниже код в VBA для удаления полных строк, если в столбце U Sheet21 (на самом деле называется «Регистрация ROG»), если появляются «Self Cancelled» или «Waitlis...
У меня есть кусок кода, и я хотел бы улучшить его, добавив критерии к моим счетчикам. Текущий код работает так: У меня есть целевая книга, куда я вставляю другие книги, в которые я...
В приведенном ниже коде песня воспроизводится первой, после чего отображается сообщение. Как отобразить окно сообщений и Sound Play одновременно в приведенном ниже коде? Private De...
Я борюсь, так как я не самый лучший в разработке наиболее эффективного способа сделать это. Проверьте следующее: Msgstr "Первая строка с данными: 10". Рассчитывается по формуле, ко...
Я не уверен, что название ясно, но по сути, мне нужно автоматизировать назначение сайтов. Количество строк обычно составляет около 60, но может доходить до 200. Назначение номера с...
Ответ: Не нужно беспокоиться об этом сейчас. Я подозревал это. Это может быть не так элегантно, как некоторые могли бы создать, но это выглядит так - C2 и N2 используются для проверки дан...
Ответ: Вам нужно будет вернуть значение в виде строки, по крайней мере, если результат имеет точность более 15 цифр. например: Option Explicit ' Convert hex to decimal ' In: Hex in string...
У меня есть строка подключения, которая загружает диапазон ячеек в мой список sharepoint. Сегодня кто-то не смог использовать эту функцию и получил ошибку при запуске макроса. Ошиб...
Ответ: Ваш CSV-файл должен быть отформатирован с соответствующим заголовком. В простом тексте это будет выглядеть так: lookup1,lookup2 2,3 Прокомментировал бы, но пока не получил достаточ...
Ответ: Чтобы убедиться, что произошло истинное изменение, мы сначала сохраняем значение выбранной ячейки в качестве публичной переменной. Поскольку вы можете выбрать более одной ячейки од...
Ответ: EDIT: A better solution that doesn't require an extra column You can use the functionCOUNTIFS to check if your first range is equal to something and if your second range is equal t...
Мне удалось создать сводную таблицу с использованием VBA, но теперь я не уверен, как отсортировать столбец «Общий итог» справа от Наибольший к наименьшему, используя VBA, который г...
Ответ: Попробуйте дополнительные кавычки: "=TEXT(F2,(""MMM-dd""))" Вот официальная помощь, кавычки в строковых выражениях .
Ответ: Вы правы в том, что существует много способов перемещения данных. Формула может делать то, что вы хотите. Сводная таблица - это еще один способ перемещения значений в одну и ту же...
Ответ: Это довольно легко, приятель, попробуйте: Sub apply_autofilter_across_worksheets() ' Updateby Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksh...
Как отфильтровать диаграммы на приборной панели для отображения диаграмм, находящихся на других листах в той же книге? Я знаю, что вы можете создавать диаграммы друг за другом и пе...
Ответ: С данными в столбце A, в B1 введите: =IF(ROW()>COUNTA(A:A)*12,"",INDEX(A:A,MOD(ROW()-1,COUNTA(A:A))+1)) и скопировать вниз: Столбец B будет автоматически корректироваться, если...
Ответ: Сохраните копию файла перед началом удаления. Затем вы можете использовать код VBA, который удаляет строку, когда ячейка ( rngCell) имеет значение, отличное от 001 или B_Code или п...
Ctrl+K или / — быстрый поиск Начните вводить запрос для поиска по сайту