이 기사에서는 시간을 hh : mm.sss 형식으로 형식화하는 매크로를 작성합니다.

이 예의 원시 데이터는 E 열의 특정 시간 값으로 구성됩니다.

ArrowSampleData

이 기사에서는 사용자 정의 함수 (또는 사용자 정의 함수)“HHMMSSSFormat”을 만들었습니다. 이 함수는 날짜 유형을 입력으로 사용하고 hh : mm.sss 형식의 문자열 데이터 유형으로 출력을 리턴합니다.

논리 설명

60 초를 3 자리 숫자로 변환하는 “HHMMSSSFormat”함수에서 정의 된 시간 값의 초를 60으로 나누어 정의 된 초에 대한 분수를 구한 다음 천을 곱하여 세 자리 숫자를 얻습니다.

“HHMMSSSFormat”함수는 Excel 시트에서 직접 호출하거나 다른 프로 시저 (또는 매크로) 내의 함수를 사용하여 사용할 수 있습니다.

아래 이미지는 Excel 시트에서 “HHMMSSSFormat”함수를 사용하여 시간을 hh : mm.sss 형식으로 도출하는 방법을 보여줍니다.

ArrowCustomFunction

또한 “HHMMSSSFormat”함수를 사용하여 메시지 상자에 hh : mm.sss 형식으로 현재 시간을 표시하는 “GettingCurrentTimeinHHMMSSSFormat”매크로를 만들었습니다. 아래 이미지는이 매크로를 3:54:30에 실행할 때의 출력을 보여줍니다.

ArrowMacroOutput

아래 코드를 따르세요

Option Explicit

Function HHMMSSSFormat(DateTime As Date) As String

'function will return string value

'Declaring integer variable

Dim SecondValue As Integer

'Extracting seconds from DateTime parameter

SecondValue = Second(DateTime)

'Converting seconds value to three digit number

SecondValue = (SecondValue / 60) * 1000

'Change the formatting of time in the required format

HHMMSSSFormat = Format(Hour(DateTime), "00") & ":" & _

Format(Minute(DateTime), "00") & "." & Format(SecondValue, "000")



End Function

Sub GettingCurrentTimeinHHMMSSSFormat()

'Declaring string variable

Dim CurrentTime As String

'Calling custom function HHMMSSSFormat

CurrentTime = HHMMSSSFormat(Now)

'Displaying message box with Ok button only

MsgBox CurrentTime, vbOKOnly, "Current Time"

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요