Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » syt navy
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
02.09.2025 10:20:37
Спасибо. Ваши советы помогли выявить ошибку.
Вычисление формулы вызывало событие Worksheet_calculate. И вот там закралась ошибка.
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 17:10:35
Цитата
написал:
не поможет?
Нет, не помогло
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 17:10:13
Цитата
написал:
А после того, как найдете отличие, нужно уже и на код смотреть
Далее есть аналогичные вставки формул. И они срабатывают без ошибок. Только эти три строки стали камнем преткновения.
Самое интересное, что ошибка выскакивает не ДО выполнения операции, а ПОСЛЕ. И на следующий шаг не переходит. Что бы там не стояло. Вводил проверку на определение объектов типа IF NOT ..... IS NOTHING. Объекты существуют и определены.
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 15:57:02
Я могу добавить сколько угодно колонок. Суть не изменится. Так понимаю, что помочь Вы не в состоянии, но изобразить активность хочется.  
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 13:44:12
Цитата
написал:
Так и в файле проблем нет. Ошибка не воспроизводится
Ага. И в других местах кода аналогичные формулы вставляются без вопросов. И этот код на другой машине воспроизводится без ошибки. А вот в этом месте затык. В коде три однотипные строчки        
Код
WSh.ListObjects(1).DataBodyRange(2, 9).FormulaR1C1 = "=IF((RC[-2]-RC[-1])>0,(RC[-2]-RC[-1]),"""")
WSh.ListObjects(1).DataBodyRange(2, 10).FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-1]*8,"""")"
WSh.ListObjects(1).DataBodyRange(2, 11).FormulaR1C1 = "=IFERROR(INDEX(KPI!R2C1:R5C2,MATCH([@[Категория заказа]],KPI!R2C1:R5C1,0),2)*[@[Сложность заказа]],0)"
Первая строчка ВЫПОЛНЯЕТСЯ, и уже после выскакивает данная ошибка.
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 12:55:27
И это не проблема
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 11:33:07
Не вопрос.
 
Перейти    
Ошибка 91 "Object variable or With block variable not set", Возникает при явно определенных переменных
 
#
01.09.2025 09:25:36
Добрый день!

Есть строка ввода формулы.
Код
WSh.Cells(i, 9).FormulaR1C1 = "=IF((RC[-2]-RC[-1])>0,(RC[-2]-RC[-1]),"""")"
При работе кода формула вставляется, а затем выскакивает сообщение об ошибке (см. приложение)
На другой машине данный код срабатывает без проблем. Чуть ниже закомментированный кусок кода так же срабатывает без проблем.  
 
Перейти    
Синхронизация автофильтров
 
#
29.08.2025 11:13:39
Спасибо
 
Перейти    
Синхронизация автофильтров
 
#
29.08.2025 10:57:26
Принято. Спасибо. Вариант подходит
Изменено: syt navy - 29.08.2025 11:13:05
 
Перейти    
Синхронизация автофильтров
 
#
29.08.2025 10:29:39
Т.е. присвоить значение Criteria я могу, а получить его нет?
Как тогда обойти это? Есть у кого какие идеи? Буду признателен
 
Перейти    
Синхронизация автофильтров
 
#
29.08.2025 09:57:38
Добрый день!
Есть две таблицы на двух листах. Надо сделать, чтобы при применении фильтра в одной таблице аналогичный фильтр применился в другой. Затык в том, что фильтр по дате. Не могу получить данные первичного фильтра
 
Перейти    
Формирование формулы в VBA. Не подставляется результат
 
#
02.06.2025 12:38:28
Sanja, спасибо. Учту
 
Перейти    
Формирование формулы в VBA. Не подставляется результат
 
#
02.06.2025 11:26:03
Поправил формулу, и заработало.
Код
ShA.Cells(iRow - 2, iCol).FormulaR1C1 = "= R[4]C" & "*" & Replace(Sh.Cells(i,8).Value, ",", ".")
Изменено: Sanja - 02.06.2025 12:19:43
 
Перейти    
Формирование формулы в VBA. Не подставляется результат
 
#
02.06.2025 10:33:12
Добрый день!
В коде формируется формула и подставляется в ячейку
Скрытый текст
Формула формируется как строка, но в ячейку не вставляется. Сообщений не выводится
 
Перейти    
vba Как обратится к листу, чье имя - это значение ячейки?
 
#
03.04.2025 14:52:35
Всё в порядке. Вы правы. Работает
Достаточно было переменную в перевести в тип String.
Ваш вариант или через cstr  работают одинаково эффективно.
Изменено: syt navy - 03.04.2025 14:55:28
 
Перейти    
vba Как обратится к листу, чье имя - это значение ячейки?
 
#
03.04.2025 13:56:36
Цитата
написал:
Так не?
Так не. Не работает
 
Перейти    
vba Как обратится к листу, чье имя - это значение ячейки?
 
#
03.04.2025 12:35:44
придётся видимо перебором. Чьё имя листа совпадет с переменной, тот и будет
Изменено: syt navy - 03.04.2025 12:36:05
 
Перейти    
vba Как обратится к листу, чье имя - это значение ячейки?
 
#
03.04.2025 12:31:32
Проблема в том, что я не могу явно указывать имя. Имя является переменной. Допустим ShName
Тогда я должен написать что-то вроде
Set WSh = ActiveWorkbook.Sheets(ShName)
Но это так не работает
Set WSh = ActiveWorkbook.Sheets[ShName] тоже ругается
 
Перейти    
vba Как обратится к листу, чье имя - это значение ячейки?
 
#
03.04.2025 11:48:20
Dim WSh as Worksheet
Изменено: syt navy - 03.04.2025 11:48:39
 
Перейти    
vba Как обратится к листу, чье имя - это значение ячейки?
 
#
03.04.2025 11:36:29
Добрый день!
Возможно, вопрос элементарный, но пока не нашел ответа на него. Суть проблемы:
В книге есть листы. На первом листе есть нумерованный список людей. Остальные листы поименованы согласно нумерации в списке. Т.е. лист с названием "1", "2" и т.д. Названия листов не соответствуют индексам этих листов. Мне надо присвоить переменной типа Worksheet лист с соответствующим именем.
Например: в таблице есть Иванов Иван Иванович под номером 4. Значит, переменной присваивается значение .Worksheet("4")
 
Перейти    
VBA: Строку преобразовать в адрес объекта
 
#
24.02.2025 19:59:49
Спасибо!
 
Перейти    
VBA: Строку преобразовать в адрес объекта
 
#
24.02.2025 18:00:33
Вот для примера
 
Перейти    
VBA: Строку преобразовать в адрес объекта
 
#
24.02.2025 17:37:15
Добрый день!

Есть функция которая формирует строку
Скрытый текст

Есть строка в программе
Set oTab = Adr(oSh.cbxMat.Value)

Ругается, что требуется объект.
Как преобразовать строку Adr в объект?
 
Перейти    
Проблема деления 100 на 3 с точностью до второго знака
 
#
29.09.2024 22:06:03
Спасибо. Не заметил
 
Перейти    
Проблема деления 100 на 3 с точностью до второго знака
 
#
29.09.2024 21:50:50
Файл для примера.
 
Перейти    
Проблема деления 100 на 3 с точностью до второго знака
 
#
29.09.2024 09:24:31
Добрый день!
Присваиваю переменной значение в ячейке в формате "0.00", тип переменной Double
Затем в цикле двум переменным присваиваю значение первой переменной, деленное на 3 в формате "0.00"
Из первой переменной вычитаю сумму двух последующих.
В результате имею вместо
33.34
33.33
33.33
другой результат:
34.00
33.00
33.00
Где собака порылась?
 
Перейти    
Размножить строки согласно числу в ячейке
 
#
09.08.2024 14:26:47
Как формулами не подскажу
Код
Sub Кнопка1_Щелчок()
Dim sQSm As Integer, i As Integer, m As Integer
    
    m = 2
    With ActiveSheet
        For Each oRow In .Rows
            sKab = Empty
            sQSm = 0
            If Cells(oRow.Row, 1).Value = Empty Then Exit Sub
            If oRow.Row >= 2 Then
                sKab = .Cells(oRow.Row, 1).Value
                sQSm = .Cells(oRow.Row, 2).Value
                If sQSm > 0 Then
                    For i = 1 To sQSm
                        .Cells(m + i, 6).Value = sKab
                        .Cells(m + i, 7).Value = i
                    Next i
                End If
                m = m + sQSm
            End If
        Next
    End With
End Sub
 
Перейти    
Заполнение массива явным образом
 
#
07.08.2024 11:50:57
Просто и изящно.
И сильно сократило код.
Спасибо
 
Перейти    
Заполнение массива явным образом
 
#
07.08.2024 11:29:05
Доброе время суток!
Возникла потребность объявить массив и заполнить его сразу значениями. Лучше всего сразу одним действием. Например перечислить значения в строку с разделителем. Есть ли такая возможность или надо объявлять, а потом заполнять по элементам?
В инете видел пример с фигурными скобками типа
Dim aMas = New Integer() {1,2,3,4}
Но не сработало


Спасибо.
 
Перейти    
Страницы: 1 2 3 4 5 След.
Наверх