Excel 2003에서 날짜 컨트롤을 사용하여 특정 셀의 날짜를 선택하고 삽입하는 방법

Excel 2003에서 날짜 컨트롤을 사용하여 특정 셀에 날짜를 선택하고 삽입하는 방법이 긴급합니다

레벨을 성공적으로 통과하지 못한 플레이어를 돕기 위해 구체적인 퍼즐 해결 방법에 대해 알아 보겠습니다. Excel2007의 경우 VBA를 사용하여 문제를 해결할 수 있습니다. 구체적인 단계는 다음과 같습니다.

1. Excel을 열고 "컨트롤" 그룹에서 "개발 도구" 탭을 클릭한 다음 "삽입"을 찾아 클릭하고 드롭다운 목록에서 아래와 같이 오른쪽 하단에 있는 "기타 컨트롤"을 클릭합니다.

2. 팝업되는 "기타 컨트롤" 대화 상자에서 스크롤 막대를 아래쪽으로 드래그하고 마우스 왼쪽 버튼으로 "Calendar Control 12.0"을 선택한 다음 "확인"을 클릭하세요

3. 워크시트로 돌아가서 마우스 왼쪽 버튼으로 달력 컨트롤을 끌어서 아래와 같이 크기와 위치를 조정합니다.

4. 마우스 왼쪽 버튼으로 "캘린더 컨트롤"을 두 번 클릭하여 VBA 편집기를 열고 다음 코드를 복사하여 붙여넣으세요

비공개 서브캘린더1_클릭()

ActiveCell = 형식(Calendar1.값, "yyyy-mm-dd")

Me.Calendar1.Visible = False

끝 서브

Private Sub Worksheet_SelectionChange(ByVal 대상 범위)

Target.Column = 1이면

Target.Row > 1이면

With Me.Calendar1

.Visible = True

.Top = 대상.상단 + 대상.높이

.왼쪽 = 대상.왼쪽 + 대상.너비

.값 = 날짜

끝

그밖에

Me.Calendar1.Visible = False

끝나면

그밖에

Me.Calendar1.Visible = False

끝나면

끝 서브

여기서 "Target.Column = 1이면

Target.Row > 1이면 "첫 번째 행을 제외한 첫 번째 열인 A열을 클릭하여 달력 컨트롤을 표시합니다. 필요에 따라 변경한 다음 VBA 코드 편집기를 닫고 워크시트로 돌아갈 수 있습니다

5. 마우스 왼쪽 버튼으로 A2를 클릭하면 "캘린더 컨트롤"이 나타납니다. 필요에 따라 "컨트롤"에 입력할 날짜를 클릭하세요.

EXCEL에서 날짜 제어를 사용하여 여러 열 구현

비공개 서브 DTPicker1_Change()

ActiveCell.Value = DTPicker1.Value

DTPicker1.Visible = 거짓

끝 서브

Private Sub Worksheet_SelectionChange(ByVal 대상 범위)

위드미.DTPicker1

Target.count=1이면

Target.Column = 1이고 Target.Column =5이면

.Visible = True

.너비 = 대상.너비 + 15

.왼쪽 = 대상.왼쪽

.Top = 대상.Top

.높이 = 대상.높이

그밖에

.가시적 = 거짓

끝나면

그밖에

.가시적 = 거짓

끝나면

끝

끝 서브

Excel 테이블에서 다중 열 DTP 시간 제어를 설정하는 방법

많은 실험 끝에 이 코드를 사용하면 열 1과 열 2에서 동시에 달력 컨트롤을 사용할 수 있으며 다른 열을 클릭해도 달력 컨트롤이 나타나지 않습니다.

비공개 서브캘린더1_클릭()

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

끝 서브

Private Sub Worksheet_SelectionChange(ByVal 대상 범위)

If Target.Column

1 Then (2개 열보다 작고 포함하며 첫 번째 행은 포함하지 않음을 의미)

Me.Calendar1.Visible = True

그밖에

Me.Calendar1.Visible = False(다른 열을 클릭하면 표시되지 않음)

끝나면

끝 서브

위 내용은 Excel 2003에서 날짜 컨트롤을 사용하여 특정 셀의 날짜를 선택하고 삽입하는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!