Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 181 След.
Поиск наибольших уникальных значений с последующим их выводом, Поиск и вывод наибольших значений по заданному условию
 
Тезка, спасибо.
Еще вопросик. Строку
Код
let
    Source = Table.Join(Топ10, {"GroupID"}, Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], {"GroupID"}),

мышкоклацаньем создать можно? Или только в расширенном ручками?
Поиск наибольших уникальных значений с последующим их выводом, Поиск и вывод наибольших значений по заданному условию
 
Тезка, привет.
А как быть с такой бедой?
VBA. Вставка имени "умной таблицы" в код макроса
 
Именем строку, столбец.
Угадайте с трех раз, что такое j, если это не строка?  :D
VBA. Вставка имени "умной таблицы" в код макроса
 
For i = 2 To iRow
For j = 4 To iColl

Код
For i = 2 To UBound(MyArray)
For j = 4 To UBound(MyArray, 2)
VBA. Вставка имени "умной таблицы" в код макроса
 
Вместо этого
Код
With Sheets("data")
    iRow = .UsedRange.Row + .UsedRange.Rows.Count - 1: iColl = .UsedRange.Column + .UsedRange.Columns.Count - 1
    MyArray = .Range(.Cells(1, 1), .Cells(iRow, iColl)).Value
End With

напишите
Код
MyArray = Sheets("data1").ListObjects(1).Range.Value

И будет вам Щастье.  :)
Изменено: RAN - 23 Авг 2019 09:02:03
VBA. Вставка имени "умной таблицы" в код макроса
 
Зачем rar? Ваш rar у меня не открывается.
VBA. Вставка имени "умной таблицы" в код макроса
 
Цитата
Александр Иванов написал:
я так в качестве примера написал "Столбец1"
И получили решение, которое работает именно со столбцлм, который называется " Столбец1".
Цитата
Александр Иванов написал:
В моем примере названия другие. Я то по сути)
По какой сути? Как вы лодку назовете, так она и поплывет.

И таблица должна называться именно "Таблица1", а не "например "Таблица1"".
Изменено: RAN - 23 Авг 2019 08:14:39
Сохранение всех презентаций в папке в pdf формате
 
У вас нет файла "pres*.pptx" в папке EOL_report_R.
Сформируйте путь правильно (с системным разделителем).
VBA В чем причина неработоспособности кода умножения диапазона значений за счет «.value = .value * 100 »
 
Дим, спасибо за вариант. С Evaluate не получалось заставить работать.
А еще так можно.  :D
Код
Sub Create_NewModule()
    Dim objVBProj As Object, objVBComp As Object, objCodeMod As Object
    Dim sModuleName As String, sFullName As String
    Dim sProcLines As String
    Dim lLineNum As Long
    Dim adr$
    'добавляем новый стандартный модуль в активную книгу
    Set objVBComp = ActiveWorkbook.VBProject.VBComponents.Add(1)
    'получаем ссылку на коды модуля
    Set objCodeMod = objVBComp.CodeModule
    'узнаем количество строк в модуле
    '(т.к. VBA в зависимости от настроек может добавлять строки деклараций)
    lLineNum = objCodeMod.CountOfLines + 1
    'текст всставляемой процедуры
    adr = ActiveSheet.Range("a1").CurrentRegion.Address
    sProcLines = "[" & adr & "] = [" & adr & "*100]"
    sProcLines = "Sub Test()" & vbCrLf & _
                 sProcLines & vbCrLf & _
                 "End Sub"
    'вставляем текст процедуры в тело нового модуля
    objCodeMod.InsertLines lLineNum, sProcLines
    Application.Run "Test"
    ' удаляем добавленный стандартный модуль
    objVBComp.Collection.Remove objVBComp
End Sub
VBA В чем причина неработоспособности кода умножения диапазона значений за счет «.value = .value * 100 »
 
Никаким. Только жесткий адрес в квадратных скобках.
VBA В чем причина неработоспособности кода умножения диапазона значений за счет «.value = .value * 100 »
 
В том, что это работает только при синтаксисе
[A1:A10] = [A1:A10*100]
Раскрывающийся список ComboBox из непустых значений в столбце
 
Дык вроде никто не запрещает.
Изменение размеров объекта OLEObject (таблицы из excel)
 
Проблема 1 - вы что-то делаете не правильно.
Проблема 2 - программируя в  Power Point, вы задаете вопрос на форуме по Excel, а не Power Point.
Проблема 3 - задавая вопрос на форуме, вы не считаете нужным последовать его правилам.
Изменение размеров объекта OLEObject (таблицы из excel)
 
"object required" = Требуется объект (ошибка 424)
Цитата
dimon007 написал:
объект есть
это у вас есть, а у VBA нет.
Изменение размеров объекта OLEObject (таблицы из excel)
 
Цитата
dimon007 написал:
На моменте With Shape вылетает ошибка "object required"
Т.е. ваш вопрос нужно конкретизировать - как менять размеры того, чего нет, или почему нет объекта?
По второй части - использование зарезервированного слова для переменной, это обязательное условие?
И закрадывается подозрение, что ваш вопрос к Excel имеет только то отношение, что вы что-то копируете в буфер из Excel.
Изменено: RAN - 20 Авг 2019 18:24:12
Как включить в xls - листы из других книг в определенном порядке
 
Погорячился. Был не прав.
Как включить в xls - листы из других книг в определенном порядке
 
Цитата
БМВ написал:
Скрытый текст
Зачем так сложно?
Код
Sheets(1).Copy After:=.Sheets(.Sheets.Count)
ActiveSheet.DrawingObjects(1).OnAction = Mid(ActiveSheet.DrawingObjects(1).OnAction, InStr(ActiveSheet.DrawingObjects(1).OnAction, "!") + 1)
Таймер обратного отсчета на запуск макроса в кнопку CommandButton в UserForm
 
Примерно так.
Снять галочки с чекбоксов
 
Дешево и сердито. Правда, флажки нужны другие.
Код
Sub check_boxes2()
    ActiveSheet.CheckBoxes = False
End Sub
Как скрыть от пользователя VBAProject после его разблокировки
 
Цитата
Borgov написал:
было бы обезопасить код при работе с ними,
запаролить
Цитата
Borgov написал:
или использования где либо еще
указать в коде явно имя книги
Макрос не переходит по условию. Условие - число в ячейке.
 
[A1]
Перейти на одну видимую ячейку вниз
 
Можно и без цикла
Код
Sub qq()
    On Error Resume Next
    Set r = ActiveSheet.AutoFilter.Range.SpecialCells(12).Areas(2)
    If Err Then
        Err.Clear
        MsgBox ActiveSheet.AutoFilter.Range.Cells(2, 1)
    Else
        MsgBox r(1)
    End If
End Sub


Накладочка. Для массива условий работает не правильно. Правильнее так
Код
Sub ert()
    Const i = 1&
    Set r = ActiveSheet.AutoFilter.Range.Columns(i).SpecialCells(12) 
    If r.Areas(1).Rows.Count > 1 Then
        MsgBox r.Areas(1).Cells(2)
    Else
        MsgBox r.Areas(2).Cells(1)
    End If
End Sub
Изменено: RAN - 17 Авг 2019 09:55:39
скрытие ячейки при выборе значения из списка
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then
        If Len(Target) Then
            Rows("7:8").Hidden = False
            Rows(7).Hidden = Target.Value = "yes"
            Rows(8).Hidden = Not (Target.Value = "yes")
        End If
    End If
End Sub
скрытие ячейки при выборе значения из списка
 
Для затравки
Отдельную ячейку на листе скрыть нельзя. Совсем нельзя. И даже если очень хочется, все равно нельзя.
Перенос строк из группы в группу без нарушения структуры данных на листе?
 
Вырезать-Вставить - да.
Вырезать-Вставить вырезанные ячейки - нет
Добавить условие в макрос, формирующий документ Ворд из Экселя
 
Отписал в ЛС.
Работа со сводной таблицей. Выделение строк цветом.
 
Цитата
БМВ написал:
если вы сами предполагаете сотни правил
Ведмедик, прикалываешься?
Если ТС предполагает сотни правил, то это совсем не означает, что ему нужно больше одного.  :)
Сбор данных с разных листов одной книги на итоговый лист с переименованием столбцов в имена листов гиперссылкой, VBA, для общего ознакомления
 
Нужно легонько мяукнуть  :)
Код
Sub Мяу()
    Dim ar, ar1
    Dim oDic As Object
    Dim i&, j&, n&, x
    n = (Sheets.Count - 1)
    Set oDic = CreateObject("Scripting.Dictionary")
    ReDim ar(n)
    For i = 2 To Sheets.Count
        ar(i - 1) = Sheets(i).Name
    Next
    oDic.Item("names") = ar
    For i = 2 To Sheets.Count
        ar1 = Sheets(i).Range("B1").CurrentRegion.Value
        For j = 2 To UBound(ar1)
            If oDic.exists(ar1(j, 1)) Then
                ar = oDic.Item(ar1(j, 1))
                ar(i - 1) = ar1(j, 3)
                oDic.Item(ar1(j, 1)) = ar
            Else
                ReDim ar(n)
                ar(0) = ar1(j, 1)
                ar(i - 1) = ar1(j, 3)
                oDic.Item(ar1(j, 1)) = ar
            End If
        Next
    Next
    x = oDic.Items
    [N15].Resize(oDic.Count, n + 1).Value = Application.Transpose(Application.Transpose(x))
End Sub
Как для заданного N получить в ячейке последовательность целых чисел, разделенных запятыми: 1,2,3, ...,N, Отображение натурального ряда чисел заданного диапазона
 
Цитата
Goba80 написал:
Мне это необходимо для дальнейшего подсчета одинаковых цифр в последовательностях с выведением результата в смежной ячейке.
И накой для этого цифири в ячейках?  8-0
Код
Function мяу(s&)
    Dim ar(9), x, i&, j&, k&
    For i = 0 To s
        x = CStr(i)
        For j = 1 To Len(x)
            For k = 0 To UBound(ar)
                If Val(Mid$(x, j, 1)) = k Then
                    ar(k) = ar(k) + 1
                End If
            Next
        Next
    Next
    мяу = ar
End Function
После сканирования макрос без нажатия ОК должен продолжать выполнять следующую строку
 
Цитата
Jenya1980 написал:
Что у меня не так?
А у вас CheckBox1 есть? Или прикупить забыли?
Он нужен для переключения возможности однократного/многократного сканирования.
На остновной функционал не влияет
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 181 След.
Наверх