2016-06-09 1 views
0

나는 현재 everymonth을 변경하는 변수에 대한 입력 상자가)이 항목에 오류가 있으면 결과에 오류가 발생합니다. ")VBA, 오늘 날짜, 현재 기능, 매크로 변수

이렇게하면 수동으로 입력해야하는 입력 상자가 나타납니다. 그러나이 과정을 자동화하고 입력이 필요 없습니다. 상자. vba에 자동으로 오늘 날짜를 생성하는 함수가 없습니까?

지금부터, 또는 내가 원하는 시스템 기능은 연도를 4 자리 숫자로 그리고 2 자리 숫자로 추출하는 것입니다. 우리가 decemeber 2016

하위 asasdas을() 인 경우

그래서 예를 들어,

"이제 기능" r_mo = YYYYMM '자동

최종 하위를 "지금 기능"에서 업데이트

감사의 말을 전하고 감사드립니다.

+0

아마 당신은 이것을 끝낼 수 있습니다 : http://www.classanytime.com/mis333k/sjdatetime.html, 특히 Now 기능 –

답변

1
Sub GetMonthYear 
    GetMonthYear = Year(Now) & Right("00" & Month(Now), 2) 
End Sub 

그렇게 할 것입니다. 연도 부분을 Now()으로 반환하고 월 부분에 연결하여 Now()을 붙입니다. Month는 1 월에서 9 월까지 한 자리 숫자를 반환하기 때문에 Month에 "00"을 추가하고 Right에서 마지막 두 문자를 가져와이를 감 쌉니다. "9"의 경우 "009"를 만들고 "09"의 경우 마지막 두 문자를 사용합니다. "10"의 경우 "0010"을 만들고 "10"의 마지막 두 문자를 가져옵니다.

+1

와우 이것이 굉장하고 설명은 매우 유용하고 명확합니다. 그것은 앞으로 나아갈 때 모든 것을 더 좋고 효율적으로 만듭니다. 정말 고마워요! –