시나공

시험에

나오는 것만

공부한다!

안녕하세요.

1.

머리글 영역을 더블클릭 하면 msgbox가 뜨고 yes를 누르면

예를 들어 txtOO컨트롤이 공백표시가 되고, GoToFocus 이용해서 포커스를 이동시키게 할때

이벤트 프로시저 작성시에

Dim aa
aa = MsgBox("~을 조회할까요?", vbYesNo)
If aa = vbYes Then
txtOO = ""
txtOO.GoToFocus ???? l<<<< GoToFocus 사용법을 모르겠어요 ㅠㅠ
End If

->GoToFocus가 맞나요? 포커스를 이동하는 것은 SetFocus입니다. SetFocus를 이용한다면 다음과 같이 작성하면 됩니다.

txtOO.SetFocus

그리고 저는 시험때 dim aa 쓰지않고

MsgBox "~",vbYesNo

If vbYes = True then

txtOO = ""

txtOO.GoToFocus ????

End If

이런 식으로 썼는데 Dim aa 를 꼭 해야하나요??

-> 정상적으로 실행이 된다면 생략하셔도 됩니다.

2.

그리고 보고서에서 조건부서식을 할때

분류명이 "마카롱"인 본문 영역의 모든 컨트롤을 굵은 기울임꼴로 표시할때

규칙작성시 조건을 어떻게 둬야하나요?

모든 컨트롤 선택후 조건부서식-새규칙-필드값 - "마카롱" 이렇게 했을땐 분류명 부분에만 서식이 적용되던데...

필드값인지 식이인지 그런것도 잘 모르겠고 작성법도 모르겠어요 ㅠㅠ

-> 분류명이 '마카롱'인 분류명 컨트롤에만 서식을 지정한다면 '필드 값'으로 하면 되고, 분류명이 '마카롱'은 전체 레코드에 서식을 지정하려면 '식이'로 하신 후 [분류명]="마카롱"이라고 조건을 지정하면 됩니다.

3. 엑셀 계산문제 추가 질문

예약날짜제공(E3), 출생날짜(B5:B30) (예약날짜-출생날짜) 로 구하라는 문제인데

QUOTIENT,MOD,TEXT 함수사용이고 1년 365일, 1달 30일로 계산

표시는 ex) 16년 4개월

=TEXT(QUOTIENT(($E$3-B5),365),"0년 ") & TEXT(QUOTIENT(MOD(($E$3-B5),365),30),"0개월")

이렇게 하면 되는건가요?

-> 맞는듯 합니다.

즐거운 하루 되세요.