vba- все статьи тега ➜ страница 2
Функция циклического сопоставления слов в Excel VBA
У меня есть список ключевых слов, и я хочу посмотреть, содержит ли одна ячейка какое-либо из этих слов. Например, если мой список ключевых слов (кошка, собака, черепаха) функция будет ответный матч, если он смотрит внутрь "Мистер собак Волшебная страна". Я нашел хороший UDF онлайн, чтобы использовать в качестве функции, но когда я пытаюсь зациклить его, чтобы он проверял каждое слово в моем списке ключевых слов, я получаю #VALUE!. Первая функция - это мой цикл, а вторая-функция соответствия U ...
Несоответствие типа аргумента VBA ByRef
Первоначально в моем основном разделе кода у меня был уродливый оператор if - хотя уродливый он будет работать. Я решил сделать его функцией, которую я буду вызывать, это вызвало у меня ошибку "Compile error: byref argument type mismatch". Я предполагаю, что на функцию нужно ссылаться правильно, хотя я читал документацию и не могу понять, почему >. Объявление переменной ShiftValue: Dim ShiftValue As String ShiftValue = LCase(Sheets("Raw_Rota").Cells(Counter, "C").Value) Содержание функци ...
Получить список подкаталогов в VBA
я хочу получить список всех подкаталогов внутри каталога. Если это работает, я хочу расширить его до рекурсивной функции. Однако мой первоначальный подход к получению субдиров терпит неудачу. Он просто показывает все, включая файлы: sDir = Dir(sPath, vbDirectory) Do Until LenB(sDir) = 0 Debug.Print sDir sDir = Dir Loop Список начинается с '.."и несколько папок и заканчивается на ".файлы txt. Редактировать: Я должен добавить, что это должно выполняться в Word, а не Excel (многи ...
VBScript-как заставить программу ждать завершения процесса?
У меня есть проблема в VBScript, который я использую с макросом VBA/Excel и HTA. Проблема только в VBScript, у меня есть два других компонента, то есть макрос VBA и HTA front-end работают отлично. Но прежде чем я объясню проблему, я думаю, что для того, чтобы вы помогли мне, я должен помочь вам понять контекст VBScript. Таким образом, в основном все компоненты (VBScript, VBA macro и HTA) являются частями инструмента, который я создаю для автоматизации некоторых ручных работ. Это в значительной ...
Как скрыть столбцы в выпадающем списке ComboBox?
Я создаю ComboBox в форме пользователя Excel, которая получает свои строки из таблицы доступа. Я хочу отобразить несколько текстовых полей для пользователя в выпадающем списке, но значение, возвращаемое из ComboBox, должно быть ID-номером, связанным со строкой, которую выбирает пользователь (т. е. столбец ID-это связанный столбец). Но я не хочу показывать этот идентификационный номер пользователю. Есть ли способ скрыть столбец в выпадающем списке ComboBox, но все же привязать этот столбец? ...
Использование VBA для подсчета количества незакрытых (видимых) листов слева от активного листа (excel)?
Я создаю анкету в excel, и меня попросили включить индикатор типа "Вы находитесь на листе X из Y" на каждой странице. Количество видимых листов варьируется в зависимости от ответа на некоторые из ранних вопросов (нерелевантные наборы вопросов скрыты и т. д.), поэтому и числитель, и знаменатель в этом утверждении являются переменными. У меня есть метка (Label1) на каждой странице, на которой я могу написать подпись, мне удалось подсчитать общее количество видимых листы и привязать надпись надпи ...
в VBA powerpoint как добавить новый слайд в пустую презентацию
Я хочу добавить новый слайд к пустой презентации. Я борюсь с макетом. Я использую следующее: Set pptLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1) Set sld = ActivePresentation.Slides.AddSlide(1, pptLayout) sld.Design = ActivePresentation.Designs(1) Этот код прекрасно работает, когда у меня уже есть слайд в моей презентации, но у меня его нет! Итак, мой вопрос: как я могу вставить слайд, если у меня нет уже существующего слайда, чтобы установить макет из него? Я имею в в ...
ошибка vLookup для VBA в Excel
У меня есть форма, содержащая список элементов, из которого он выводит соответствующий элемент-лист на основе выбора формы. Из-за длины имени элемента каждому элементу присваивается идентификатор. Функция vlookup предназначена для получения соответствующего идентификатора на основе сопоставления имен в другом листе. Код выглядит следующим образом. Передаваемое значение fundName - " AX-Arnold Xchange Securities (USD)". FundID находится в 5-м столбце массива, в котором выполняется поиск. The fun ...
Строки VBA.Граф в выборе
Я ищу, чтобы выяснить, сколько строк пользователь выбрал для отображения в верхней части листа рядом с кнопкой действия, т. е. кнопка говорит "генерировать электронную почту", а рядом с ней говорит "x выбранных элементов". Поскольку это обновляется каждый раз, когда выбор изменяется, у меня есть следующий код: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet1.Range("E1") = Target.Rows.Count & " items selected" End Sub Это прекрасно работает, если пользователь выбира ...
VBA в Excel: файл глобальных констант
Я работаю над некоторыми сценариями VBA для рабочего листа Excel, и я создал модуль, который содержит целый список в основном строк, хранящих имя каждого из моих полей базы данных. Таким образом, если кто-то изменяет базу данных, он может обновить переменную VBA в модуле, и тогда все мои скрипты, которые ссылаются на глобальную переменную вместо имени поля напрямую, даже не знают разницы. В любом случае, я буду работать в нескольких разных несвязанных листах excel, и я хотел бы, чтобы все они и ...
Фильтрация между двумя датами в сводной таблице с помощью VBA. Великобритания-США формат даты выпуска
Я нашел обходной путь для этого, но если у кого-то есть более чистый способ сделать это, я был бы заинтересован/благодарен. У меня есть два поля в электронной таблице, называемые DateFrom и DateTo для использования с фильтром дат в сводной таблице. Оба находятся в формате ДД / ММ / гггг. Данные, подаваемые в таблицу, также имеют этот формат. Сводная таблица также возвращает даты в том же формате. Все мои настройки находятся на английском языке, и я попробовал это на отдельной машине с теми же р ...
Невозможно извлечь значения из словаря, заданного в VBA / Access 2003
Я пишу сценарий, который извлекает некоторые данные пациента и генерирует экспорт XML. У каждого пациента есть связанный врач - но вместо того, чтобы повторять детали врача в каждой записи, я решил установить идентификатор врача в истории болезни пациента, а затем включить список врачей в другой раздел в нижней части документа. Одна вещь, которую мне нужно сделать, - это включить GUID для врача в историю болезни пациента, но фактическое отношение базы данных является локальным не уникальным ИД ...
VBA JSON конвертер не преобразует более 15 цифр
Я использую конвертер VBA JSON по этой ссылке https://github.com/VBA-tools/VBA-JSON У меня есть ячейка, которая имеет 16-значный номер, однако, когда я преобразую его в JSON, он преобразует его без кавычек. Значит, это должно быть так { ID: "1525879763214789" } Но появляется вот так { ID: 1525879763214789 } Я попытался изменить формат ячейки на текст, но это тоже не помогло Правка: Private Sub CommandButton3_Click() Dim z As Integer, items As New Collection, myitem As New ...
VBScript не может открыть гиперссылки на лист excel (не всю книгу) из тела электронной почты outlook напрямую
Предыстория: Предполагается, что я создам панель мониторинга (в excel) с помощью vbscript и отправлю ее по электронной почте(outlook) кому-то. У меня уже есть шаблон для панели мониторинга(excel). Мой скрипт открывает этот шаблон excel, обновляет Excel с сегодняшними результатами и некоторыми гиперссылками на некоторые новые файлы, создает почтовый конверт excel и отправляет его кому-то. Выпуск: Мой скрипт добавляет 2 гиперссылки в панель мониторинга excel. 1-я ссылка указывает на a файл ...
Выполнять.bat-файл из макроса Excel VBA
У меня проблема с моим макросом excel vba. Мне нужно, чтобы он выполнил пакетный файл, который находится в той же папке, что и книга excel. Иногда код работает хорошо. Я не знаю, в чем причина ошибки. Вот код: Sub writebatch() Sheets("code").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=ThisWorkbook.path & "code.bat", FileFormat:=xlTextPrinter, CreateBackup:=False Application.DisplayAlerts = True ThisWorkbook.Saved = True Shell "cmd.exe /k cd " & ...
vba: что такое 97.45 * 1# =?
some_integer = 97.45 * 1# Что означает эта запись? что будет some_integer = ? ...
Как я могу "повторно сохранить" двумерный массив в Excel 2007 VBA, чтобы добавить в него строки, а не столбцы?
Я работаю с динамическим массивом в Excel VBA. Количество столбцов (m) фиксировано, однако я не знаю, сколько строк (n) потребуется. В справочных документах указано, что ReDim Preserve myArray (n, m) позволяет мне сделать m больше, но не n. однако мне нужно увеличить число строк (n), сохраняя мои данные, а не столбцы (m)! Например, у меня может быть массив (5,20), который я хотел бы расширить до (10,20), сохраняя мои данные. Похоже, что если бы был какой-то способ транспонировать мой массив ...
Перелинковка таблиц базы данных: Access, VBA
У меня есть процедура, которая связывает все таблицы в базе данных в зависимости от того, являются ли они связанной таблицей. В настоящее время он настроен на автоматический запуск, так как он установлен внутри макроса AutoExec, который вызывает функцию. Код работает, но только если я закрою базу данных и снова открою ее. Я знаю, что это потому, что это должно быть сделано, чтобы новые ссылки вступили в силу, но есть ли что-то вокруг этого? Или, в противном случае, было бы лучше, чтобы код VB ...
Создание нескольких графиков из большого набора данных с помощью цикла VBA
Я пытаюсь создать макрос в VBA, который возьмет большой набор данных в Sheet1 (так называемые необработанные данные) и создаст точечную диаграмму XY для каждых 8000 точек данных на другом листе. Макрос также должен будет помечать каждый график тем диапазоном, который он представляет (например, 1-8000, 8001-16000 и т. д.). Большой набор данных состоит из показаний температуры от 8 различных термопар, которые записывают данные каждую секунду. Количество точек данных будет варьироваться в зависим ...
Получение Значения ComboBox В Ячейке?
У меня есть имя comboBox, назовем его: "comboBox1" Я хочу сослаться на значение comboBox1 из ячейки. =if(comboBox1.Value=1,1,0) Над идеей является то, что я ищу. Я знаю, что могу присоединить четное к comboBox1, который заполняет ячейку, которая может быть прочитана другими ячейками, но это просто вводит больше движущихся частей и сложности. Это должно быть возможно, верно? Любая помощь была бы очень кстати, спасибо! ...