Note: The other languages of the website are Google-translated. Back to English

Excel에서 확인란을 선택한 경우 날짜 스탬프를 셀에 삽입하는 방법은 무엇입니까?

일반적으로 Excel에서 단축키를 사용하여 날짜 스탬프를 입력합니다. Excel의 확인란으로 날짜 스탬프를 셀에 삽입하는 것은 어떻습니까? 체크 박스를 선택하면 타임 스탬프가 지정된 셀에 자동으로 삽입됩니다. 이 기사는 당신이 그것을 해결하는 데 도움이 될 것입니다.

VBA 코드가있는 확인란을 선택한 경우 셀에 날짜 스탬프 삽입


VBA 코드가있는 확인란을 선택한 경우 셀에 날짜 스탬프 삽입

이 섹션에서는 Excel에서 확인란을 선택한 경우 날짜 스탬프를 셀에 자동으로 삽입하는 데 도움이되는 VBA 스크립트를 소개합니다. 다음과 같이하십시오.

1. 확인란을 삽입 한 후 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 아래 VBA 코드를 복사하여 모듈 창에 붙여 넣으십시오.

VBA 코드 : 확인란을 선택한 경우 날짜 스탬프를 셀에 삽입

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

3. 프레스 다른 + Q 닫는 키 응용 프로그램 용 Microsoft Visual Basic 창.

4. 확인란을 마우스 오른쪽 버튼으로 클릭하고 마이크로 할당 오른쪽 클릭 메뉴에서. 스크린 샷보기 :

5. 에서 매크로 지정 대화 상자에서 CheckBox_Date_Stamp 에서 매크로 이름 상자를 클릭 한 다음 OK 단추. 스크린 샷보기 :

확인란을 선택하면 날짜 스탬프가 인접한 셀에 자동으로 삽입됩니다.


관련 기사:


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (22)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 매우 도움이 되었습니다. 확인란 왼쪽에 날짜 스탬프가 있는 것이 더 유용하다는 점을 알려드립니다. 이렇게 하려면 오프셋을 (, -1)로 변경하면 됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
날짜와 시간으로 이 작업을 수행할 수 있는 방법이 있습니까? 어느 쪽이든 정보 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Sub CheckBox_Date_Stamp() Dim xChk As CheckBox Set xChk = ActiveSheet.CheckBoxes(Application.Caller) With xChk.TopLeftCell.Offset(, 1) If xChk.Value = xlOff Then .Value = "" Else .Value = Date & " " & End Sub로 끝나는 경우 시간 종료
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
날짜와 시간을 추가하려면 아래 VBA 코드를 적용하십시오.

하위 CheckBox_Date_Stamp()
Dim xChk를 CheckBox로
xChk = ActiveSheet.CheckBoxes(Application.Caller) 설정
xChk.TopLeftCell.Offset(, 1) 사용
xChk.Value = xlOff이면
.값 = ""
다른
.값 = 지금()
END IF

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 이 수식을 시도했는데 A1의 확인란에 매크로를 적용했을 때 A1과 B1에서만 작동했습니다. 그러나 A2의 체크박스에 매크로를 적용했을 때 B2에서는 아무 일도 일어나지 않았습니다. 또한 이것을 체크리스트에 사용하려면 공식이 어떻게 변경됩니까? 열 A가 확인란이고 열 C가 완료된 날짜인 경우.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 :) A1의 확인란이 있는 셀을 나머지 열에 복사할 수 있습니다. 또는 매크로를 각 확인란에 개별적으로 할당
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
매크로를 각 확인란에 개별적으로 할당하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드를 정확히 복사하여 붙여넣었지만 스프레드시트에서 날짜는 바로 오른쪽 셀이 아니라 위의 셀과 확인란 열의 오른쪽에 나타납니다. ?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 또한 똑같은 문제를 겪고 있습니다. "도와주세요! 누군가가 필요해요! 누군가가 아니라 도와주세요! 누군가가 도움이 필요합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
내 경우에는 코드가 잘 작동합니다. 확인란을 선택하면 날짜가 바로 오른쪽 셀에 나타납니다. 귀하의 사례에 대한 스크린샷을 제공하시겠습니까? 그리고 어떤 Office 버전을 사용하시나요? 고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel 2007을 사용하여 의도한 셀 위의 셀에 날짜 및 시간 스탬프가 표시되는 것과 동일한 문제가 있었습니다. 계속해서 "오프셋" 수식을 변경하여 한 셀을 지나 한 셀 아래로 이동했으며 이제 스탬프가 원하는 위치에 나타납니다. With xChk.TopLeftCell.Offset(1, 1)
다른 사람이 만들고 확인란을 만들지 않은 워크시트를 업데이트하고 있지만 셀 내부에 확인란이 있는 위치와 관련이 있을 수 있습니다. 체크박스를 셀 맨 아래에 정렬했을 때 다른 결과를 얻었습니다.

그 도움이 되었으면 좋겠습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것이 내가 그 문제를 해결하기 위해 한 일입니다

하위 CheckBox_Date_Stamp()
Dim xChk를 CheckBox로
xChk = ActiveSheet.CheckBoxes(Application.Caller) 설정
xChk.TopLeftCell.Offset(1, 1) 사용
xChk.Value = xlOff이면
.값 = ""
다른
.값 = 지금()
END IF

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕! 코드 주셔서 감사합니다. 오프셋에서 릴 조정과 완벽하게 작동합니다. 그러나 확인란의 부하가 포함된 많은 행(~500개 이상의 행)이 있는 시트에서 작업하고 있었고 파일 크기가 크게 커졌습니다. 사이즈 줄이는 방법 없을까요? 이 작업을 수행할 수 있는 다른 방법이 있습니까?

감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
굿다
행에 많은 확인란이 있고 모든 확인란에 동시에 작업을 수행하려는 경우 아래 VBA 코드가 도움이 될 수 있습니다.
코드를 모듈 코드 창에 복사하고 워크시트로 돌아가 단추(예: 단추(양식 제어))를 만들고 매크로 SetAllChkChange()를 단추에 할당한 다음 단추를 클릭하여 코드를 실행하십시오.

이제 워크시트 행의 모든 ​​확인란이 활성화되었습니다. 그 중 하나를 선택하여 인접한 셀에 날짜 스탬프를 삽입할 수 있습니다.

하위 SetAllChkChange()
희미한 xChks
Dim xChk를 CheckBox로
Dim xI As Long
오류에 대한 다음 재개
xArrChk 지우기
xChks = ActiveSheet.CheckBoxes로 설정
ReDim 보존 xArrChk(1에서 xChks.count까지)
xI = 1
xChks의 각 xChk에 대해
xChk.선택
Selection.OnAction = "ObjChkChange"
다음
최종 하위


하위 ObjChkChange()
Dim xChk를 CheckBox로
xChk = ActiveSheet.CheckBoxes(Application.Caller) 설정
xChk.TopLeftCell.Offset(, 1) 사용
xChk.Value = xlOff이면
.값 = ""
다른
.값 = 날짜
END IF

최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 확인란 아래에 날짜 스탬프를 표시하려면 어떻게 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕! 날짜 스탬프가 확인란의 측면에있는 방법을 찾지 못하는 것 같습니다. 오프셋 값을 0, 1 및 -1에서 변경해 보았습니다. 이거 도와줄 수 있어? 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 확인란이 A2에 있고 확인란의 오른쪽에 날짜 스탬프를 출력하려는 ​​경우(이 경우 B2) 오프셋 값을 오프셋(1, 1)으로 변경하십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
체크박스 타임스탬프에 VBA를 사용했지만 처음 두 셀이 제대로 작동하지 않습니다. 내 첫 번째 확인란은 A2에 있고 확인란을 선택하면 B1에 시간이 게시됩니다. 이 문제를 해결하려면 어떻게 해야 하나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 스티브,
코드의 네 번째 줄을 With xChk.TopLeftCell.Offset(1, 1)로 바꾸십시오.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 감사합니다!! 멋진! 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 열에 모든 확인란을 포함하도록 코드를 반복하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
행에 많은 확인란이 있고 모든 확인란에 동시에 작업을 수행하려는 경우 아래 VBA 코드가 도움이 될 수 있습니다.
아래 코드를 모듈 코드 창에 복사하고 워크시트로 돌아가 버튼(예: 버튼(양식 컨트롤))을 만들고 매크로를 할당하십시오. SetAllChkChange() 버튼으로 이동한 다음 버튼을 클릭하여 코드를 실행합니다.

이제 워크시트 행의 모든 ​​확인란이 활성화되었습니다. 그 중 하나를 선택하여 인접한 셀에 날짜 스탬프를 삽입할 수 있습니다.

하위 SetAllChkChange()
'에 의해 업데이트됨 Extendoffice 20211130
희미한 xChks
Dim xChk를 CheckBox로
오류에 대한 다음 재개
xChks = ActiveSheet.CheckBoxes로 설정
xChks의 각 xChk에 대해
xChk.선택
Selection.OnAction = "ObjChkChange"
다음
최종 하위

하위 ObjChkChange()
Dim xChk를 CheckBox로
xChk = ActiveSheet.CheckBoxes(Application.Caller) 설정
xChk.TopLeftCell.Offset(, 1) 사용
xChk.Value = xlOff이면
.값 = ""
다른
.값 = 날짜
END IF

최종 하위
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호