Популярные вопросы по тегу VBA
Не удается найти библиотеку объектов Microsoft Forms 2.0 или FM20.DLL
... компилятора в первой строке 7 кода: Пользовательский тип не определен Итак, я 6 хотел бы добавить ссылку на библиотеку объектов 5 Microsoft Forms 2.0, но у меня нет фа ...
Определите, находится ли ActiveCell в определенной таблице
... rng = Intersect(.EntireRow, ActiveCell.ListObject.DataBodyRange) 'Set rng = Intersect(.EntireRow, ActiveCell.ListObjects("myTable").DataBodyRange) On Error GoTo 0 If rng Is Nothing Then MsgBox "Please select the cell of a row within the consensus input table.", vbCritical, "Delete Evaluator" ...
Как получить идентификатор процесса текущего экземпляра Excel через VBA без использования заголовка?
... пляра Excel, в котором выполняется 4 мой код VBA? Я не хочу просить об этом по 3 имени в заголовке, что вызывает проблемы, когда 2 у меня есть два ...
Отключить / включить кнопку в Excel / VBA
... ой-то причине отключение этой кнопки 4 не работает (она остается включенной в рабочем 3 листе Excel) Я пробовал поэкспериментировать 2 с DoEvents и задержками, но безуспешно. Лю ...
Как начать и закончить предыдущий месяц в VB
... ающее февраль. Это нормально, но 4 как насчет того, когда я в январе повторяю 3 это, и это дает мне ноль - мой код не сработает. Кто-нибудь 2 знает, как получить день начала и оконч ...
Можно ли объявить общедоступную переменную в vba и присвоить значение по умолчанию?
... eger = 123 Как 1 лучше всего это ...
Как мне сделать мой код VBA совместимым с 64-битной Windows?
... овных компиляция, в которой 14 либо старые, либо будет использоваться 13 новое объявление, в зависимости от того, работает 12 ли приложение работает в 32- или 64-битной 11 Windows. Однако, поскольку я застрял в Office 2007 10 г. Мне нужно альтернативное решение. Какие 9 у меня варианты? (Я бы действительно предпочитаю 8 не выпускать 2 ...
Как проверить, есть ли у определенного элемента управления фокус?
... доступа 2007, и я хочу 5 проверить, имеет ли конкретный элемент управления 4 (кнопка переключения) фокус, ...
Как получить имя пользователя, выполнившего вход в Access vba?
... Дубликаты этого вопроса: Is there a way for MS Access to grab the current Active Directory user? Using VB6, how do I get the current user and domain on Windows XP? How can I get the currently logged-in windo ...
Откройте книгу, защищенную паролем, с помощью VBA
... BA, поэтому готов 1 и другие предложения. Спасибо! Sub OpenClose() Application.ScreenUpdating = False Dim wb1 As Workbook Dim wb2 As Workbook Set wb1 = ThisWorkbook Set wb2 = Workbooks.Open("C:\Users...") 'I have taken out the rest of the file path wb1.Activate Sheets("Entry").Activate Range("A1:A5").Select Selection.Copy wb2.Activate Sheets("Log").Activate Range("A1").PasteSpecial Past ...
sql доступ как вернуться между датами
... Fld FROM [Lab Occurrence Form] WHERE [Practice Code]="ACCIM" AND [1 0 Preanalytical (Before Testing)]="1.1 Specimen Mislabeled" AND ([Occurrence Date] Between 2/1/2010 and 2/28/2010); следующее дает мне несоответствие 1 типа SELECT [Occurrence Number] as Fld FROM [Lab Occurrence Form] WHERE [1 0 Preanalytical (Before Testing)]="1.1 Specimen M ...
Доступ к VBA: можно ли сбросить обработку ошибок?
... objSht.Activate wbExists = True Openwb: On Error GoTo 0 If Not wbExists Then objexcel.Workbooks.Add Set wbexcel = objexcel.ActiveWorkbook Set objSht = wbexcel.Worksheets("Sheet1") End If On Error Go ...
Как ссылаться на объекты Excel в Access VBA?
... пользовать объекты и 2 константы Excel из моего сценария Access 1 2007 VBA? Dim wb As Workbook и ...
Как загрузить и выгрузить пользовательскую форму
... устить код Private Sub Userform_Initialize() 'Some other code that Works... frm1.Show End Sub , который 16 показывает мою пользовательскую форму. Теперь 15 у меня есть командная кнопка в моей пользовательской 14 форме с кодом Private Sub cmdbClose_Click() Me.Hide End Sub , который я использую, чтобы 13 скрыть подпрограмму, после которой выполняется 12 последняя строка в cmdb1_Click() и выгружается 11 UserForm. Это р ...
Что символ $ делает в VBA?
... riable1=Dir$(some_path) против variable1=Dir(some_path) В чем разница? Поче ...
VBA: подсчет строк в таблице (объект списка)
... Я пытаюсь написать какой-нибудь VBA в Excel, который 10 может принимать имя таблицы (объект списка) в 9 качестве параметра и возвращать количество 8 строк. Следующее работает, но не позволяет 7 мне передавать строку с именем таблицы. MsgBox ([MyTable].Rows.Count) Следующее 6 дает ошибку: Требуется объект v_MyTable = "MyTable" MsgBox (v_MyTable.Rows.Count) Сл ...
Динамическое изменение размера таблицы Listobject с помощью VBA
... 4 помощью VBA, я попытался изменить код из 3 MSDN о методе listobject.resize, но я хочу динамически загружать 2 данные в каждой строке. Код, который я пытаюсь, но 1 безрезультатно: Sub resizedata() Dim ws As Worksheet Dim ob As ListObject Dim Lrow1 As Long Lrow1 = Sheets("db_goods").Cells(Rows.Cou ...
Получение ошибки Процедура слишком велика в макросах VBA (Excel)
... Large Error в макросе VBA. ...
Прокручивать указанные листы в VBA
... ;, "pipe_length_tables") For Each Asset In Assets 'my code here MsgBox ActiveSheet.Name 'test loop Next Asset End Sub Это не зацикливание 2 на листах. Я попробовал Dim Assets as Worksheet, но код слома ...
Как узнать адрес электронной почты текущего вошедшего в систему пользователя?
... о с прикрепленным документом. Однако 14 мне также нужно получить адрес электронной 13 почты текущего пользователя, отправляющего 12 электронное письмо, чтобы я мог поместить 11 его в документ перед отправкой. Мои поиски 10 в Интернете не привели ни к одному пригодному 9 к использованию коду, который соответствует 8 моей ситуации. Мой текущий код приведен 7 ниже. Set OL = CreateObject("Outlook.Application") Set EmailItem = OL.CreateIte ...
Более быстрый способ удалить лишние пробелы (более 1) из большого диапазона ячеек с помощью VBA для Excel
... пособов, которые я пробовал: For Each c In range c.Value = Trim(c.Value) Next c и For Each c In range c = WorksheetFunction.Trim(c) Next c и For Each c I ...
Делаем фигуры невидимыми / видимыми в Excel через VBA
... уру под 8 названием «овал 1» и запускаю код: Sub hideshape() With ActiveSheet .Shapes("Oval 1").Select With Selection .Visible = False End With End With End Sub форма 7 исчезает, но когда я запускаю этот код Sub unhideshape() With ActiveSheet .Shapes ...
Получение фактического использованного диапазона
... ет часть кнопки. Могу ли я 2 просто получить фактический используемый 1 диа ...
Ошибка выполнения VBA 1004 «Ошибка, определяемая приложением или объектом» при выборе диапазона
... CLastFundRow).Select Selection.Copy 'Paste Data Values Sheets("PalTrakExport PortfolioAIdName").Select Range("A21").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Bring b ...
Макросы VB для Office 2016 для Mac требуют разрешений каждый раз, когда они пытаются получить доступ к файлу! Есть ли способ обойти такое поведение?
... 3 разрешение, каждый раз, когда макрос пытается 2 получить доступ к файлу! Есть ли способ 1 этого из ...
Do While "" Loop "и" While "" Wend "Loop. В чем разница?
... ми. Я провел некоторое тестирование 2 (код ниже), и оба, похоже, дали мне одинаковые 1 результаты. Sub test_loop_1() Dim i As Integer i = 1 Do While i < 10 Cells(i, 1) = i i = i + 1 Loop End Sub Sub test_loop_2() Dim i As Integer i = ...
Имя файла без имени расширения VBA
... получить имя файла без имени расширения 6 с помощью VBA. Я знаю свойство ActiveWorkbook.Name, но если 5 у пользователя отключено свойство Windows 4 Hide extensions for known file types, результатом моего кода будет [N ...
VBA-JSON Создание вложенных объектов
... N 6 с нуля, используя эту библиотеку. Я начал 5 с: Set Json = JsonConverter.ParseJson("{}") Json("key") = "value" И это работает, как ожидалось. Однако, если 4 я хочу создать вложенный ...
Конкатенация строк VBA
... им образом: ... Set UT = Workbooks(dropdownValue).Worksheets(1) With UT UT_rows = .Cells(3, 15).End(xlDown).Row End With MsgBox ...
Условное форматирование с использованием кода Excel VBA
... авила условного форматирования 4 с использованием кода Excel VBA динамически. (Потому 3 что диапазон не всегда будет одинаковым) Если столбец ячейки D пуст, форматирование не должно применяться (необходимо использовать здесь Sto ...
Как лучше всего получить доступ к последовательному порту из VBA?
... и отправлять 32 простую строку через последовательный порт 31 с помощью кнопки действия в PowerPoint. Я 30 обычно не использую VBA, особенно для чего-то 29 подобного. Обычно я бы превратил это в какое-то 28 приложение, но на самом деле я не думаю, что 27 идея настолько плоха. Это будет удобный 26 инструмент, с помощью которого они см ...
Application.WorksheetFunction.Match метод
... 12 «невозможно получить свойство соответствия 11 класса функции листа». Но я не могу исправить 10 свой код. Почему этот код не работает? rowNum = Application.WorksheetFunction.Match(aNumber, Sheet5.Range("B16:B615"), 0) Но 9 на несколько строк выше этот код работает: rowNum2 = Application.WorksheetFunction.Match(originCode, Sheet7.Range("B10:B17"), 0) Единственное 8 различие между моими двумя строками состоит 7 в ...
Метод отправки MSXML2.XMLHTTP работает с ранним связыванием, не работает с поздним связыванием
... MSXML2.XMLHTTP 'Dim objRequest As Object ' strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword Set objRequest = New MSXML2.XMLHTTP With objRequest .Open "POST", "https://api.clickatell.com/http/auth", False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send strPostData GetSessionId = .resp ...
Ошибка при запуске объекта / команд оболочки через Excel VBA
... eateObject("WScript.Shell") Dim waitOnReturn As Boolean: waitOnReturn = True Dim windowStyle As Integer: windowStyle = 1 Dim errorCode As Integer errorCode = wsh.Run(ModelFullString, windowStyle, waitOnReturn) If errorCode = 0 Then ' MsgBox "C++ Model Completed without Errors ...
Как вернуть набор записей из функции
... we're connected to the database. If Connect Then Set command = New ADODB.command With command .ActiveConnection = connection .CommandText = sqlQuery .CommandType = adCmdText End With 'Set rs = command.Execute(recordsAffected) 'Set Execute = command.Execute(recordsAffected) rs.O ...
Excel: как проверить, пуста ли ячейка с помощью VBA?
... значение 3 NULL, то C1 = "особый продукт" Кроме того, как 2 я могу использовать цикл For Each в Range и ...
Отключить автосохранение в vba (Excel / OneDrive)
... e): Проведение 7 небольшого исследования AutoRecover.Enabled = False (Application.) должно быть 6 правильным атрибутом, но по какой-то причине 5 я не могу заставить его работать. Я не получаю 4 сообщения об ошибке, но функция автосохранения 3 не отключается. Не повезло и с разными объектами 2 ...
Доступ к базе данных SQL в Excel-VBA
... te SQL Command' Set objMyCmd.ActiveConnection = objMyConn objMyCmd.CommandText = "select * from myTable" objMyCmd.CommandType = adCmdText objMyCmd.Execute 'Open Recordset' Set objMyRecordset.ActiveConnection = objMyConn objMyRecordset.Open objMyCmd 'Copy Data to Excel' ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset) ...
Excel VBA - Как добавить формулу динамического массива
... столбце A совпадает с тем, что находится 9 в ячейке A. Я также применяю функцию UNIQUE 8 для удаления любых нескольких пробелов ("" ) результаты. Это 7 отлично работает, если я вручную ввожу формулу 6 в Excel, однако при использовании VBA для 5 добавления формулы Excel добавляет символы 4 @ в формулу, что приводит к отображению 3 #VALUE! Строка VBA, используемая для добавления 2 формулы: =Cells(x,y).Formula ...
Возвращает символы после N-го символа в строке
... л и гольф, а не числовую 4 часть. Поскольку слово после числа не всегда 3 имеет одинаковую длину, я не могу использовать 2 = Right ...
VBA Как получить путь к папке данных приложения "Текущие пользователи"?
... мне 3 нужен макрос Word для копирования файла 2 в папку в папке Application Data. например 1 В VB.Net я могу использовать My.Computer.FileSystem.SpecialDirectories.CurrentUserApplica ...
Как получить адрес диапазона, включая имя листа, но не имя книги, в Excel VBA?
... опустим, он 11 ссылается на ячейку A1 на рабочем листе с 10 именем Book1. Так что я знаю, что по телефону 9 Address() я получу простую локальную ссылку: $A$1. Я 8 знаю, что его также можно вызвать как Address(External:=True), чтобы 7 получить ссылку, включая имя книги и имя 6 листа: [Book1]Sheet1!$A$1. Я хочу получить адрес, включающий 5 им ...
Excel VBA - форматирование всего столбца, исключая строку заголовка
... текущий код: Sheets("Sheet1").Columns(3).NumberFormat = " ...
Управление локальной интрасетью Internet Explorer с помощью Excel VBA
... 14 нежелательный вариант. Я могу использовать 13 этот код, успешно загрузить imdb.com, google 12 и т. д. Но когда я загружаю наш локальный 11 сайт, я теряю контроль над объектом ie, не 10 могу проверить readyState, не могу выйти. Вот 9 ошибка, которую я получаю. Ошибка времени 8 выполнения "-2147023179 (800706b5)": Ошибка 7 автоматизации Интерфейс неизвестен Иногда 6 вместо этого я ...
Разделить прописные слова в Excel
... сными буквами, например: Исходные значения: MikeJones RinaJonesJunior MichealSamuelsLurth Ожидаемый 2 результат: Mike Jones Rina Jones ...
Тест VBA, если ячейка находится в диапазоне
... я ячейка 2 в заданном диапазоне в Exc ...
Как добавить подпись по умолчанию в Outlook
... App As Outlook.Application Dim ObjMail As Outlook.MailItem Set OlApp = Outlook.Application Set ObjMail = OlApp.CreateItem(olMailItem) ObjMail.BodyFormat = olFormatHTML ObjMail.Subject = "Subject goes here" ObjMail.Recipients.Add "Ema ...
Найти номер строки с совпадающим значением
... Set ws = ActiveSheet Const WHAT_TO_FIND As String = "Bingo" Set FoundCell = ws.Range("A").Find(What:=WHAT_TO_FIND) If Not FoundCell Is Nothing Then MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row) Else MsgBox (WHAT_TO_FIND & " not found") End If '************ With Sheet1 Set FoundCell = Cells.Find(What:=Bingo, After:=.Cells(1, 1), _ LookIn:=xlValues, lookat:= xlPart, Searc ...
VBA зависает, т.е. проверяется состояние занятости и готовности
... Set rst = mydb.OpenRecordset("TempSalary") Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False IE.navigate "http://www.rotoworld.com/teams/contracts/nfl/" & Team While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend Set HTMLdoc = IE.Document Set TABLEelements = HTMLdoc.getElementsByTagName("Table") For Each TABLEelement In TABLEelements If TABLEelement.id = "cp ...
VBA Excel "Ошибка компиляции: требуется объект
... Orders Temp.xlsx" wbHSLtemp = Dir(strHSLtemp) Set wbHSLtemp = Workbooks.Open(strHSLtemp) Set wsHSLtemp = wbHSLtemp.Sheets(1) Dim arrModels() As String, strModel As String, blMultipleModels As Boolean, rngModel As range, lngModels As Long Dim rng As range Set strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4) 'strip off leading "HSL-" strModel = Replace(strModel, " ...
