Таймер, настройка - значение секунд в ячейке

@ooos · Регистрация: 08.04.2021

Студворк — интернет-сервис помощи студентам

Приходится корректировать время работы таймера меняя секунды в коде формы,
а как прописать время работы таймера, забирая значение секунд например из ячейки листа?

Set TimeValue_ss = Range("AO1") ' 44

Исходный код формы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
            Me.StartUpPosition = 0
                   Me.Top = 320 + Application.Top
                   Me.Left = 410 + Application.Left
 
    iTimer = TimeValue("00:00:44")
    
    Call TimerStart
 
End Sub

@MikeVol · 18.05.2025, 10:50

ooos, А где полный (весь) код формы?

@ooos · 18.05.2025, 10:59 **[ТС]**

Сообщение от MikeVol

ooos, А где полный (весь) код формы?

MikeVol, вот полный:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Label1_Click()
 
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub Label4_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
 
            Me.StartUpPosition = 0
                   Me.Top = 320 + Application.Top
                   Me.Left = 410 + Application.Left
 
    iTimer = TimeValue("00:00:44")
    
    Call TimerStart
 
End Sub

@MikeVol · 18.05.2025, 11:05

Сообщение от ooos

MikeVol, вот полный:

Нет, не полный. Где процедура

Сообщение от ooos

TimerStart

которую вы вызывает при иниализации формы?

@ooos · 18.05.2025, 11:10 **[ТС]**

Николай, вот Модуль:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub TimerStart()
    On Error GoTo Instruk
    
    f1_Таймер.Label6.Caption = "Папок: " & iCountFolders22&
    f1_Таймер.Label5.Caption = "Коробка: " & Box_2
    f1_Таймер.Label4.Caption = "Досье  " & Dosye_2 '& " (за сегодня)"
    f1_Таймер.Label3.Caption = "ClaimID  " & ClaimID_2
    f1_Таймер.Label2.Caption = ФИО_2
    f1_Таймер.Label1.Caption = Format(iTimer, "n:ss")
    iTimer = iTimer - TimeValue("0:00:01")
    If iTimer > 0 Then
        Application.OnTime Now + TimeValue("00:00:02"), "TimerStart"
    Else
        f1_Таймер.Label1.Caption = "Обработка завершена!"
        f1_Таймер.Label2.Caption = " "
        f1_Таймер.Label3.Caption = " "
        f1_Таймер.Label4.Caption = "Досье " & "следующее: " & (Dosye_2 + 1)
        f1_Таймер.Label5.Caption = " "
        f1_Таймер.Label6.Caption = " "
            
            Start = Timer ' Пауза для прочтения текста в лэйбле.
                   Do While Timer < Start + 3
                       DoEvents
                   Loop
        Unload f1_Таймер
    End If
    
Instruk:
    Exit Sub
End Sub

@MikeVol · 18.05.2025, 11:34

ooos, Вроде бы так берёт значение из нужной вам ячейки

Visual Basic
1
    iTimer = TimeSerial(0, 0, CLng(ThisWorkbook.Worksheets("Sheet1").Range("AO1").Value))   ' Укажите вместо "Sheet1" актуальное имя вашего листа

Полный код формы такой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
 
    Me.StartUpPosition = 0
    Me.Top = 320 + Application.Top
    Me.Left = 410 + Application.Left
 
    On Error GoTo NoTimerValue
    iTimer = TimeSerial(0, 0, CLng(ThisWorkbook.Worksheets("Sheet1").Range("AO1").Value))   ' Укажите вместо "Sheet1" актуальное имя вашего листа
 
    Call TimerStart
    Exit Sub
 
NoTimerValue:
    MsgBox "Ошибка чтения времени из ячейки AO1. Проверьте, что там число а не текст или какие-то спец символы! ", vbCritical
    Unload Me
End Sub

@ooos · 18.05.2025, 12:07 **[ТС]**

Сообщение от MikeVol

ooos, Вроде бы так берёт значение из нужной вам ячейки

Великолепно, моё почтение, Николай!
Доволен как слон)
Благодарю за Решение!

Новые блоги и статьи Все статьи Все блоги /
Рисование коллайдеров Box2D v2 на Three.js с помощью порта @box2d/core 8Observer8 06.06.2025 Используется порт Box2D v2 под названием @box2d/ core - пакет NPM. Загрузил документацию Box2D v2 на Netlify: https:/ / box2d-v2-docs. netlify. app/ Документацию Box2D v2 можно скачать с официального. . .	Как создать стек в Python AI_Generated 05.06.2025 Как архитектор с более чем десятилетним опытом работы с Python, я неоднократно убеждался, что знание низкоуровневых механизмов работы стеков дает конкурентное преимущество при решении сложных задач. . . .	Server-Sent Events (SSE) в Node.js run.dev 05.06.2025 Потоковая передача данных с сервера прямо в браузер стала повседневной потребностью - от биржевых графиков и спортивных трансляций до чатов и умных дашбордов. Много лет разработчики полагались на. . .	Создаем RESTful API на Golang с Fiber golander 04.06.2025 Я перепробовал десятки фреймворков для создания RESTful API за последние годы, и когда впервые столкнулся с Fiber, понял, что это совсем другой уровень. Нет, я не собираюсь рассказывать сказки о. . .	Как работать с куки в ASP.NET Core UnmanagedCoder 04.06.2025 Когда я впервые начал работать с куки в ASP. NET Core, меня поразило, насколько отличается работа с ними от классического ASP. NET. В Core все стало более декомпозированным - больше нет удобного. . .
Рисование коллайдеров физического движка Box2D-WASM v3 на Three.js 8Observer8 04.06.2025 Erin Catto (автор Box2D) переписал с нуля Box2D v2 с С++ на Си и появилась версия Box2D v3. Birch-san собрал Box2D v3 в WebAssembly (WASM), чтобы можно было использовать Box2D v3 на JavaScript. В. . .	Worker Threads и многопоточность в Node.js Reangularity 03.06.2025 Если вы когда-нибудь посещали собеседования на позицию Node. js разработчика, почти наверняка слышали заезженную фразу: "Node. js - однопоточная платформа". Звучит как неоспоримый факт, который. . .	Event-Driven CQRS на C# с паттерном Outbox stackOverflow 03.06.2025 В традиционной модели происходит примерно следующее: вы получаете команду, обрабатываете ее, сохраняете результат в базу данных и затем пытаетесь опубликовать событие в брокер сообщений. Но что если. . .	OwenLogic: перенос сетевых переменных в панель Weintek (EasyBuilder Pro) ФедосеевПавел 03.06.2025 ВВЕДЕНИЕ ПЕРЕД ЭКСПЕРИМЕНТАМИ - СОЗДАЙТЕ РЕЗЕРВНЫЕ КОПИИ ПРОЕКТОВ На момент написания статьи (02 июня 2025 г. ) самыми актуальными версиями ПО являются: OwenLogic v. 2. 10. 366 EasyBuilder Pro. . .	Dev-c++5.11 Покорение вершины russiannick 02.06.2025 С утра преследовала одна мысль - вот бы выучить С++. Сказано-сделано. Окончив смену, скачал в интернете бестселлер Дэвиса Dev-C++ для чайников. Книга оказалась интересной и я скачал среду, на примере. . .

@MikeVol Одесса - Украина 487 / 172 / 61 Регистрация: 01.04.2020 Сообщений: 547
	18.05.2025, 10:50
	ooos, А где полный (весь) код формы? 1