Функция на времето на VBA | Examlpes за използване на функция за време на Excel VBA

Функция за време на Excel VBA

VBA Time Function връща текущото време, също така важно е да се отбележи, че тази функция няма никакви аргументи в себе си, друг важен фактор, който трябва да запомните, е, че тази функция връща текущото системно време. Използвайки тази функция, ние всъщност можем да намерим действителното време, необходимо на реда от кодове за завършване на процеса.

ВРЕМЕТО е вид променлива функция, тя няма никакъв синтаксис към нея.

Също така имаме подобна функция в Excel - NOW () функция, която вмъква както текущото време, така и текущата дата в електронната таблица

ВРЕМЕ ()

Просто трябва да въведем функцията, всъщност няма нужда от скоби, за да се приложи само ВРЕМЕ, достатъчно е да се вмъкне текущото време. Резултатът, даден от функцията TIME, е в низа.

Как да използвам функцията TIME във VBA?

Позволете ми да ви покажа примера за просто TIME в Excel функция. Следвайте стъпките по-долу, за да създадете код за използване на функцията TIME.

Можете да изтеглите този шаблон за функция на времето на VBA тук - шаблон за функция на времето на VBA

Стъпка 1: Създайте макрос.

Код:

 Sub Time_Example1 () Край Sub 

Стъпка 2: Декларирайте променлива като String.

Код:

 Sub Time_Example1 () Затъмняване на CurrentTime като низ в края Sub 

Стъпка 3: Присвояване на стойност на тази променлива чрез функцията TIME.

Код:

 Sub Time_Example1 () Dim CurrentTime като низ CurrentTime = Time End Sub 

Стъпка 4: Сега покажете резултата в полето за съобщения.

Код:

 Sub Time_Example1 () Dim CurrentTime като низ CurrentTime = Time MsgBox CurrentTime End Sub 

Изпълнете този код с клавиш F5 или ръчно ще получим текущото време.

Така че, когато стартирам този код, времето беше 11.51.54 AM.

Алтернатива на функцията Now ()

Комбинация от дата и час като алтернатива на функцията СЕГА

Както казах в началото на статията СЕГА може да вмъкнете текущата дата и час. Въпреки това можем да използваме две други функции като алтернативна функция на функцията СЕГА, тези две функции са VBA DATE и VBA TIME функции.

VBA Date ще върне текущата дата, а Time ще върне текущото време, така че това прави функцията NOW. По-долу има набор от код, който ще вмъкне текущата дата и час в клетка A1.

Код:

 Sub Time_Example2 () Диапазон ("A1"). Стойност = Дата & "" & Час Край Sub 

Този код ще вмъкне текущата дата и час в клетка A1.

Също така можем да приложим формат към тези стойности, използвайки функцията FORMAT. Кодът по-долу ще форматира датата и часа.

Код:

 Sub Time_Example2 () Диапазон ("A1"). Стойност = Дата & "" & Диапазон от време ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub 

Сега резултатът от този код е както следва.

Проследявайте отворените записи на вашата работна книга, като използвате функцията за време в VBA

Често пъти трябва да знаем честотата на отваряне на работната ни книга. Има ситуация, при която доста често отваряме работната книга и правим някои промени. Чрез проследяване на времето и датата на отваряне на работната книга можем да проследим времето на отваряне на работната книга.

Създайте нов лист и го преименувайте на „Track Sheet“.

Стъпка 1: Щракнете двукратно върху тази работна книга от VBE Editor.

Step 2: Select the workbook from the object drop-down list.

Step 3: As soon as you select this option you can see new macro automatically created by itself in the name “Workbook_Open()”.

Step 4: Inside this macro, we will need to write a code to track the workbook opening date & time.

I have already written code and below is the code for you.

Code:

 Private Sub Workbook_Open() Dim LR As Long LR = Sheets("Track Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Track Sheet").Cells(LR, 1).Value = Date & " " & Time() Sheets("Track Sheet").Cells(LR, 1).NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub 

This will record your workbook opening times like the below one.