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

Съдържание

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

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

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

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

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

ВРЕМЕ ()

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

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

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

Стъпка 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.

Стъпка 2: Изберете работната книга от падащия списък на обекта.

Стъпка 3: Веднага след като изберете тази опция, можете да видите автоматично създаден нов макрос от името на „Workbook_Open ()“.

Стъпка 4: В този макрос ще трябва да напишем код за проследяване на датата и часа на отваряне на работната книга.

Вече написах код, а по-долу е кодът за вас.

Код:

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 = Дата & "" & Час () Листове ("Track Sheet"). Клетки (LR, 1) .NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub