Dim v, e With Sheets(DATA).Range(NAMED_RANGE) If Application.WorksheetFunction.CountA(.Cells) > 1 Then v = .Value Else v = .Cells(1, 1).Value End If End With With...
вам нужно установить правильные ссылки на вашу диаграмму. Основываясь на вашем коде, он должен идти следующим образом: ActiveSheet.Shapes(Topic Breakdown by...
Вы пробовали изменить Action:=xlFilterInPlace на Action:=xlFilterCopy , чтобы скопировать данные на другой лист? Поскольку ваш метод фильтрует его на месте, скрывает данные, и отображаются данные,...
Вы используете Application.WorksheetFunction для доступа к функциям рабочего листа. В соответствии с документацией для SumIfs вам необходимо предоставить свои аргументы в виде объектов Range ....
Как насчет этого кода?.. Option Explicit Private c As Integer Sub test_print_nCr() print_nCr 5, 3, Range(A1) End Sub Function print_nCr(n As Integer, r As Integer, p As Range) c = 1...
Что-то вроде следующего (NOT проверено) может работать только для копирования соответствующих данных в новое место назначения. Я предполагаю, что ваши заголовки находятся в строках 1 и 2. Если нет,...
Взгляните на .NET ArrayList , у него есть такие методы , как Add , Contains , Sort и т. Д. Вы можете создать экземпляр объекта в среде VBS и VBA: Set ArrayList =...
да, это безопасно. все, что он делает,-это перебирает пароль, используемый для защиты sheet/workbook., он одновременно разблокирует лист, а затем распечатает пароль для вас (что будет чем - то...
Вам нужно будет предоставить нам больше кода, так как работает следующее: Public Sub test() MsgBox Not myfunction() End Sub Function myfunction() As Boolean myfunction = False End Function
Я попробую. Пожалуйста, смотрите комментарии в коде. ThisWorkbook Option Explicit ' '--------------------------------------------------------------------- ' Purpose : Call for installation as an...
Вы можете попробовать следующий подход. Прежде всего, создайте определенный пользователем тип данных для хранения данных книги: Public Type Book ISBN As String Title As String TitleLong As String...
Во-первых, выбирать что-либо в коде или полагаться на текущий выбор, как правило, не рекомендуется, хотя бы потому, что это может замедлить ваш код на порядки. Вместо этого что-то вроде этого: Dim...
Считать: Sub Framm() With ActiveSheet If (.AutoFilterMode And .FilterMode) Or .FilterMode Then .ShowAllData End If End With End Sub Обратите внимание, что на самом деле это не удаляет автофильтры, а...
Я все понял. Я открывал другую книгу, а затем закрывал ее, прежде чем попытаться открыть вторую, и это мешало ей. Чтобы исправить это, я оставил приложение excel открытым и сбросил объект книги в...
Немного изменил свой код - теперь это работает: Sub GetHyperlinks() Dim ws As Worksheet Dim i As Integer i = 4 For Each ws In ThisWorkbook.Worksheets ActiveWorkbook.Sheets(overview).Hyperlinks.Add _...
Я еще не пробовал, но может сработать следующее: вы создаете переменную документа для хранения полного текста вы используете поле DOCVARIABLE в главном документе слияния почты для этого поля вместо...
Как указано в одном комментарии, вы должны согласиться .findnext; с учетом сказанного, я попробую это: Sub finddata() Dim North As Long Dim finalrow As Long Dim i As Long Dim count As Long...
Вы можете экспортировать все свои файлы с помощью этого кода : Public Sub Export() Dim vbe As vbe Set vbe = ThisDrawing.Application.vbe Dim comp As VBComponent Dim outDir As String outDir =...
Я действительно рекомендую не использовать MSHTML для извлечения ваших данных из Интернета. Ты пожалеешь об этом позже. Причина этого в том, что MSHTML использует Internet Exploder в фоновом режиме,...
В разделе Windows разделитель пути представляет собой обратную косую черту \ , поэтому измените эту строку кода: Filename:=ThisWorkbook.Path & / & Design Summary, к...
Пожалуйста, убедитесь, что ваш QueryTable_AfterRefresh sub помещен NOT в модуль, но под листом / книгой, так же, как здесь: https://stackoverflow.com/a/14646261/1953175 Кроме того, вам не нужно...
Если одним из требований надстройки COM является ограниченный доступ, решение не должно заключаться в отключении всего, что может получить к ней доступ. Ответ должен заключаться в том, чтобы...
Правильный ProgId -это System.Text.ASCIIEncoding : Dim encoding As Object Set encoding = CreateObject(System.Text.ASCIIEncoding) Dim bytes() As Byte bytes = encoding.GetBytes_4(abcde) Вы также...