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

Страницы: 1 2 3 4 След.
Формирование формулы в 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}
Но не сработало


Спасибо.
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
21.11.2023 23:52:34
Евгений Смирнов, совершенно верно. Именно поэтому я смотрел сначала в сторону коллекции. Но для моей задачи двумерный массив подошел лучше.  
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
20.11.2023 21:15:08
Евгений Смирнов, можете подсказать как? Я не работал со словарями
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
20.11.2023 20:54:50
БМВ, по определению в статье про метод Add объекта Collection: key - Необязательный параметр. Уникальное строковое выражение, задающее строку ключа, которая может использоваться вместо индекса позиции для доступа к элементу коллекции.
У меня это номер строки.
А пример,близкий к реальному
Две таблицы
1 таблица имеет группировку строк
Яблоко
    красное
    зелёное
    жёлтое
2 таблица без группировки, где в списке есть
Яблоко красное
Зелёное яблоко
Яблоко большое жёлтое
Ну и с ценой
Вот и хочу эту цену из второй таблицы притянуть в первую
Изменено: syt navy - 20.11.2023 20:55:57
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
20.11.2023 20:40:50
А в чем разница? Неужели в словаре я могу узнать ключ по значению элемента?
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
20.11.2023 20:29:09
Обидно. Будем пробовать через двумерные массивы
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
20.11.2023 20:15:07
Ключ есть однозначно. Условие заполнения коллекции такое. Конкретно - это номер строки, на которой нашлось подходящее значение, помещенное в item
 
Перейти    
Как узнать key текущего item при просмотре коллекции?
 
#
20.11.2023 20:04:31
Доброе время суток!

Как можно вернуть значение key про просмотре коллекции в цикле
For Each Item in Collection...Next?

В теле цикла есть условие, которому должно удовлетворять значение Item. Если оно выполняется, хотелось бы знать, какой ключ
 
Перейти    
Цикл For Each проблема со второй строкой
 
#
12.07.2023 11:49:13
Цитата
написал:
А Cells нужно указать чьё
Точно. Спасибо. Именно этого и не хватало
 
Перейти    
Цикл For Each проблема со второй строкой
 
#
12.07.2023 10:57:02
Цитата
написал:
макрос не знает для чего он задуман, поэтому работает так, как написан, а не так, как был задуман
Скрытый текст

Вот так он был написан. И уже с первого оборота цикла oRow начинает принадлежать oPageTotal.  
 
Перейти    
Цикл For Each проблема со второй строкой
 
#
12.07.2023 10:47:09
Цитата
написал:
Рад что уже разобрались.
Не совсем. Пока непонятно, с чего вдруг меняется ссылка. А модуль, который лежит в разделе "Modules" данной книги и называется "Module 1" )). Там я и пишу свою процедуру.
 
Перейти    
Цикл For Each проблема со второй строкой
 
#
12.07.2023 10:26:25
Цитата
написал:
Где расположили код?
В модуле данной книги.
Цитата
написал:
посмотрите чему равно Cells(oRow.Row, 1).Parent.Name (совпадает с МодельИсходная или нет))
Нет. Ссылается на другой лист. Спасибо за подсказку
 
Перейти    
Цикл For Each проблема со второй строкой
 
#
12.07.2023 10:07:53
Добрый день!

Определяю переменные:
Скрытый текст
Пишу цикл:
Скрытый текст
И на второй строке цикл завершается, хотя точно известно, что строк там 3200, и ни одного пропуска, все заполнены.

В чём может быть проблема?
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх