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

Страницы: 1
Формулы протягивания чисел
 
#
03.07.2025 11:40:22
Подскажите пожалуйста по какой формуле протягиваются числа в динамике, если к примеру мы выделяем ряд чисел (стоят значением) и протягиваем в сторону далее получая некие сформированные значения.
 
Перейти    
Ошибка обработки времени при числовом формате ячейки
 
#
11.09.2021 07:00:54
Добрый день! Прошу помочь.

Простой пример: обрабатываем ячейки с временем по столбцу и в соседние ячейки заносим аналогичное время, но 1. только время без влияния даты; 2. количество секунд во времени без учета даты. Если формат одной исходной ячейки с временем изменить с формата "Дата" на "Числовой", то на данной строке (скрин - красная заливка) останавливается обработка (на строке "wslist5.Cells(myTimSerTest + 7, 3)......") и выдает ошибку "13". Как обойти данную ошибку, что бы макрос работал независимо от формата ячейки с исходными данными.

Код
Sub TimSerTest()
    Set wslist5 = Workbooks("DDE.xlsm").Sheets("List5")
    For myTimSerTest = 1 To 6
        wslist5.Cells(myTimSerTest + 7, 3) = TimeValue(wslist5.Cells(myTimSerTest + 7, 2))
        wslist5.Cells(myTimSerTest + 7, 4) = TimeValue(wslist5.Cells(myTimSerTest + 7, 2)) * 86400
    Next
End Sub
 
Перейти    
Составное (динамическое) имя Function, Составное (динамическое) имя Function
 
#
23.05.2021 19:39:24
Прошу помощи в реализации составного имени Function с дальнейшим обращением к ней. Пример описан ниже, но я понимаю что в таком виде не работает. На простом примере надо что бы к основному названию подставлялась цифра и далее уже запускалась нужная функция.

Код
Sub TestTS0()
    For Number = 1 To 3
        Call TestTS & Number    '   так делать нельзя, нужно что то подобное
    Next Number
End Sub

Function TestTS1()
    MsgBox "ok-1"
End Function

Function TestTS2()
    MsgBox "ok-2"
End Function

Function TestTS3()
    MsgBox "ok-3"
End Function
Изменено: Дмитрий - 23.05.2021 19:48:39
 
Перейти    
Страницы: 1
Наверх