Format 함수의 오류

Question

Excel vba의 Format() 함수에 문제가 있습니다. 날짜 형식이 지정된 셀의 서식을 변경하여 표시 방법을 변경하려고합니다. 그러나, 내가 그것을 할 수있는 형식을 호출 할 때마다 오류가 발생합니다 : "컴파일 오류 : 잘못된 인수 또는 잘못된 속성 할당 번호."

Sub test() 
    Dim given 
    given = DateSerial(2012, 10, 11) 
    dateformat = Format(given, "dd/mm/yy") 
    MsgBox given & vbCrLf & dateformat 

End Sub 

이 그냥 테스트 함수 자체에서 작동하고 "11/10/12"를 반환해야합니다 : 여기

는 코드입니다. 이 코드는 다른 컴퓨터에서도 작동합니다. 무엇이 잘못 될 수 있습니까?

Answer 1

현재 given 변수를 기본적으로 변형으로 선언하고 있습니다. Date 데이터 형식으로 선언하십시오. 그리고 안전을 위해 CDate()을 Date으로 보내 Format()에 넣고 원하는 날짜 스타일로 포맷하십시오.

또한 DateSerial 입력은 다음 형식이어야합니다. 네 사건 에선 괜찮은거야. ;)

DateSerial(CInt(x), CInt(y), CInt(z) 

코드 :

OPTION EXPLICIT '------------ please add this to your code to begin for better coding 

Sub test() 
    Dim given as Date '-------- define given as Date type 
    Dim dateformat as Date 
    given = DateSerial(2012, 10, 11) 
    dateformat = Format(CDate(given), "dd/mm/yy") '--------- anyway wrap with CDate() to be sure 
    MsgBox given & vbCrLf & dateformat 

End Sub 

Answer 2

나는 Worksheet_Activate()는 오늘에 넣고 내 머리를 잡아 당겨 된 코드와이 문제를했다. 그래서 시도 VBA.Format

에 포맷을 변경하여 해결 : 일부 Sub 당신이 오류가 발생하여 project.Hence에서 다른 곳 Format라는 이름의있을 수 있기 때문에

Sub test() 
    Dim given 
    given = DateSerial(2012, 10, 11) 
    dateformat = VBA.Format(given, "dd/mm/yy") 
    MsgBox given & vbCrLf & dateformat 

End Sub 

Answer 3

이다.