Excel VBA 시간 함수
VBA 시간 함수 는 현재 시간을 반환합니다. 또한 주목해야 할 중요한 점은이 함수에 인수가 전혀 없다는 것입니다. 기억해야 할 또 다른 중요한 요소는이 함수가 현재 시스템 시간을 반환한다는 것입니다. 이 함수를 사용하면 실제로 프로세스를 완료하는 데 걸린 코드 줄에 걸리는 실제 시간을 찾을 수 있습니다.
TIME은 일종의 휘발성 함수이며 구문이 없습니다.
Excel에도 유사한 기능이 있습니다. 스프레드 시트에 현재 시간과 현재 날짜를 모두 삽입하는 NOW () 함수
시각 ()
함수를 입력하기 만하면됩니다. 사실 괄호로 묶을 필요는 없습니다. TIME만으로도 현재 시간을 삽입 할 수 있습니다. TIME 함수가 제공하는 결과는 문자열에 있습니다.
VBA에서 TIME 함수를 사용하는 방법은 무엇입니까?
Excel 함수에서 간단한 TIME의 예를 보여 드리겠습니다. TIME 기능을 사용하기위한 코드를 생성하려면 아래 단계를 따르십시오.
이 VBA 시간 함수 템플릿은 여기에서 다운로드 할 수 있습니다. – VBA 시간 함수 템플릿1 단계 : 매크로를 만듭니다.
암호:
Sub Time_Example1 () End Sub
2 단계 : 변수를 문자열로 선언합니다.
암호:
Sub Time_Example1 () Dim CurrentTime As String End Sub
3 단계 : TIME 함수를 통해이 변수에 값을 할당합니다.
암호:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = 시간 끝 Sub
4 단계 : 이제 메시지 상자에 결과를 표시합니다.
암호:
Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time MsgBox CurrentTime End Sub
F5 키를 사용하여이 코드를 실행하거나 수동으로 현재 시간을 가져옵니다.
그래서 제가이 코드를 실행했을 때 11.51.54 AM이었습니다.
Now () 함수의 대안
NOW 함수의 대안으로 날짜 및 시간 조합
기사의 시작 부분에서 말했듯이 NOW는 현재 날짜와 시간을 삽입 할 수 있습니다. 그러나 NOW 함수의 대체 함수로 두 가지 다른 함수를 사용할 수 있습니다.이 두 함수는 VBA DATE 및 VBA TIME 함수입니다.
VBA Date는 현재 날짜를 반환하고 Time은 현재 시간을 반환하므로 NOW 함수가됩니다. 다음은 A1 셀에 현재 날짜 및 시간을 삽입하는 코드 집합입니다.
암호:
Sub Time_Example2 () Range ( "A1"). Value = Date & ""& Time End Sub
이 코드는 A1 셀에 현재 날짜 및 시간을 삽입합니다.
FORMAT 함수를 사용하여 이러한 값에 형식을 적용 할 수도 있습니다. 아래 코드는 날짜 및 시간 형식을 지정합니다.
암호:
Sub Time_Example2 () Range ( "A1"). Value = Date & ""& Time Range ( "A1"). NumberFormat = "dd-mmm-yyyy hh : mm : ss AM / PM"End Sub
이제이 코드의 결과는 다음과 같습니다.
VBA의 시간 함수를 사용하여 통합 문서 열기 레코드 추적
종종 우리는 통합 문서를 여는 시간-빈도를 알아야합니다. 통합 문서를 자주 열고 변경하는 상황이 있습니다. 통합 문서 열기 시간 및 날짜를 추적하여 통합 문서 열기 시간을 추적 할 수 있습니다.
새 시트를 만들고 "트랙 시트"로 이름을 바꿉니다.
1 단계 : VBE 편집기 에서이 통합 문서 를 두 번 클릭합니다 .
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.
