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

Excel에서 두 번 클릭하여 셀에 현재 날짜 / 시간을 자동으로 추가 / 입력하는 방법은 무엇입니까?

워크 시트에 현재 날짜 또는 날짜 시간을 자주 삽입해야하는 경우이 문서의 방법을 시도해 볼 수 있습니다. 이 기사는 더블 클릭만으로 지정된 범위 셀에 현재 날짜 또는 날짜를 자동으로 추가하거나 입력하는 데 도움이됩니다.

VBA 코드로 현재 날짜 또는 날짜 시간을 자동 추가 / 입력하려면 두 번 클릭하십시오.


VBA 코드로 현재 날짜 또는 날짜 시간을 자동 추가 / 입력하려면 두 번 클릭하십시오.

아래 VBA 코드를 실행하여 두 번 클릭하여 셀에 현재 날짜 또는 날짜 시간을 자동으로 추가 할 수 있습니다. 다음과 같이하십시오.

1. 지정된 셀에 현재 날짜를 삽입 할 시트 탭을 마우스 오른쪽 버튼으로 클릭 한 다음 코드보기 오른쪽 클릭 메뉴에서.

2. 에서 Microsoft Visual Basic for Applications 창에서 아래 VBA 코드를 복사하여 코드 창에 붙여 넣습니다.

VBA 코드 : 두 번 클릭하여 현재 날짜를 셀에 추가합니다.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

노트:

1. 코드에서 A1 : B10은 현재 날짜를 추가 할 범위입니다.
2. 현재 날짜 시간을 셀에 추가해야하는 경우 날짜 + 지금() 코드에서. 필요에 따라 변경할 수 있습니다.

3. 프레스 다른 + Q 키를 동시에 닫아 응용 프로그램 용 Microsoft Visual Basic 창을 열고 워크 시트로 돌아갑니다.

이제부터는 지정된 범위 A1 : B10의 셀을 두 번 클릭 할 때. 현재 날짜 또는 날짜 시간이 자동으로 입력됩니다.


관련 기사:


최고의 사무 생산성 도구

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 하단
코멘트 (28)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
더 많은 셀 범위를 추가하기 위해 이것을 어떻게 확장합니까? 코드에 다음 추가 셀을 추가했습니다. (Target, Range("C10:C19", "D10:D19", "E10:E19")) 그러나 "잘못된 인수 수 또는 잘못된 속성 할당"을 입력한 다음 "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"을 제공한 코드의 첫 번째 줄을 강조 표시합니다. 도와주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Joel, 여전히 솔루션을 찾고 있는지 모르겠지만 코드를 변경해야 합니다.

시작: (대상, 범위("C10:C19", "D10:D19", "E10:E19"))
대상: (대상, 범위("C10:C19,D10:D19,E10:E19"))

이것은 당신을 위해 그것을 할 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
닉 안녕하세요.
이 문제에 대해 조언을 구하고 싶습니다....
"생산성 시트"라는 파일이 있습니다.... 이 시트에 셀을 클릭했을 때 선택한 셀에 실제 시간을 삽입하고 싶습니다... (가능하면 이 셀을 원합니다. 시간이 불변하게 된 후 .....잠긴 것 같은 것.)
나는 당신의 시간과 미리 감사드립니다
헝가리 아틸라
엑시지@gmail.com
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 아틸라,
클릭 시 certian 범위의 셀에 실제 시간을 삽입하려면 아래 스크린샷을 시도하십시오.
(셀 자동 잠금 기능은 실행이 되지 않습니다. 죄송합니다.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:B10")) is nothing then
취소 = True
Target.Formula = 날짜
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드가 정말 작동합니다... 감사합니다... 데이터 입력 후 셀을 보호하기 위해 다른 코드를 추가했습니다. 이제 문제는 데이터를 입력하고 셀이 보호되고 실수로 보호된 셀을 두 번 클릭하면 위의 코드가 전체 시트에 대해 잘못된다는 것입니다. 그러면 작동하지 않습니다. 코드를 활성화하려면 시트의 보호를 해제해야 합니다. 어떤 해결책이 있습니까?

사용된 보호 코드는 다음과 같습니다.

개인 하위 Worksheet_Change (범위로 ByVal 대상)
범위로 Dim xRg
오류에 대한 다음 재개
xRg 설정 = Intersect(Range("A1:a1000,b1:b1000,G1:G1000"), 대상)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Target.Worksheet.Unprotect 암호:="123"
xRg.Locked = 참
Target.Worksheet.Protect 암호:="123"
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
폴에게,
나는 당신이 제공 한 코드를 시도합니다. 지정된 보호 셀 중 하나에 데이터를 입력하면 전체 워크시트가 즉시 보호됩니다.
게다가 보호된 셀을 두 번 클릭해도 제 경우에는 코드가 변경되지 않습니다.
코드로 정확히 무엇을 하려고 하는지 설명해 주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
죄송합니다. (위의 코드를 놓치다)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
생성된 더블 클릭 입력 코드는 다음과 같습니다.


비공개 하위 워크시트_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:a1000")) Is nothing then
취소 = True
Target.Formula = 날짜
END IF

If Not Intersect(Target, Range("b1:b1000")) Is nothing then
취소 = True
Target.Formula = 시간
END IF

If Not Intersect(Target, Range("g1:g1000")) Is nothing then
취소 = True
Target.Formula = 시간
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
폴에게,
다음 VBA 코드를 시도하십시오.

개인 하위 Worksheet_Change (범위로 ByVal 대상)
범위로 Dim xRg
오류에 대한 다음 재개
xRg 설정 = Intersect(Range("A1:a1000,b1:b1000,G1:G1000"), 대상)
xRg가 아무것도 없으면 Sub를 종료하십시오.
Target.Worksheet.Unprotect 암호:="123"
xRg.Locked = 참
Target.Worksheet.Protect 암호:="123"
최종 하위

비공개 하위 워크시트_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
ActiveSheet.Unprotect 암호:="123"
If Not Intersect(Target, Range("A1:a1000")) Is nothing then
취소 = True
Target.Formula = 날짜
END IF
If Not Intersect(Target, Range("b1:b1000")) Is nothing then
취소 = True
Target.Formula = 시간
END IF
If Not Intersect(Target, Range("g1:g1000")) Is nothing then
취소 = True
Target.Formula = 시간
END IF
ActiveSheet.Protect 비밀번호:="123"
Application.EnableEvents = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
범위를 업데이트하는 코드를 복사하여 붙여넣었지만 작동하지 않았습니다 :-(


비공개 하위 워크시트_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B4:B100")) Is nothing then
취소 = True
Target.Formula = 지금()
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은 날,
내 경우에는 코드가 잘 작동합니다. Office 버전을 알려주시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 당신이 준 코드는 잘 작동합니다. 날짜를 입력할 때까지 셀에 "날짜를 추가하려면 두 번 클릭"이라는 텍스트를 가질 수 있는 방법이 있는지 궁금합니다. 미리 감사드립니다(동료들에게 혼동을 주지 않도록 최대한 사용자 친화적으로 문서를 작성하려고 노력하고 있습니다)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 위의 코드는 저에게 효과적이었습니다. 이제 날짜를 입력할 때까지 "날짜를 입력하려면 두 번 클릭"이라는 텍스트가 셀에 표시되도록 하는 방법이 있는지 궁금합니다. 내 목표는 가능한 한 사용자 친화적인 문서를 만드는 것입니다. 미리 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 트래비스
셀에 직접 텍스트가 표시되도록 코드를 수정할 수 없습니다. 그러나 또는 아래에 최적화된 코드는 셀 주석에 텍스트를 표시하는 데 도움이 되며, 날짜를 입력하기 위해 셀을 두 번 클릭하면 주석이 자동으로 제거됩니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) is nothing then
Target.NoteText "날짜를 추가하려면 두 번 클릭"
END IF
최종 하위

비공개 하위 워크시트_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) is nothing then
취소 = True
대상.설명.삭제
Target.Formula = 날짜
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,

위의 코드를 빈 통합 문서에 그대로 복사하여 붙여넣었지만 작동하지 않습니다. 나는 웹에서 다른 소스를 보았고 대부분의 사이트는 위에 쓰여진 것과 유사한 형식을 가지고 있습니다. 내 VBA에 문제가 있거나 일부 설정이 켜져 있지 않은 것 같습니다. 모든 조언을 주시면 감사하겠습니다. Windows 365에서 Office 16.0.11001.20097 MSO(32) 10비트용 Excel을 실행하고 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드를 사랑하고 훌륭하게 작동합니다. 코드를 실행하기 위해 두 번 클릭할 때 군사 시간으로 표시되도록 하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 딜런입니다.
죄송합니다. 아직 도와드릴 수 없습니다. 당신의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
시트의 형식 -> 숫자 -> 시간 옵션에서 해당 셀의 군사 시간 형식을 선택하면 작동해야 한다고 생각합니다. 예를 들어, 오후 1시 30분 또는 13시 30분 옵션을 제공하므로 13시 30분을 선택하면 됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
숫자 -> 시간 형식 옵션에서 해당 셀에 대한 군사 시간 형식을 선택하면 그렇게 해야 한다고 생각합니다. 예를 들어 오후 13시 30분 대신 1시 30분을 선택하면 군사 시간으로 표시되어야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드를 Excel Online에 삽입하는 방법이 있는지 아는 사람이 있습니까? 데스크톱 버전과 함께 사용했는데 훌륭하게 작동했지만 이제 모든 것을 온라인 플랫폼으로 마이그레이션했고 더블 클릭 시 날짜와 타임스탬프가 사라졌고 코드를 보거나 편집하는 방법을 알 수 없습니다. 감사해요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그래서 코드를 삽입했는데 통합 문서의 여러 시트에서 잘 작동하지만 일부 시트에서는 올바른 범위를 입력했음에도 불구하고 특정 행 이후에 갑자기 작동을 멈춥니다. 왜 이런 일이 일어날 수 있는지에 대한 모든 생각.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 내가 찾던 바로 그 것입니다. 이것은 많은 시간을 절약하고 잘 쓰여진 지침에 감사드립니다. 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요. 코드가 많은 도움이 되었습니다. 필드가 비어 있는 경우에만 코드가 작동하도록 제한하려면 어떻게 해야 하나요? 날짜가 이미 셀에 있는 경우 두 번 클릭하면 아무 작업도 수행되지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 아마드,
문제를 일으켜서 미안 해요. 더블 클릭으로 빈 셀만 날짜로 채우려면 다음 VBA 코드를 적용하여 완료할 수 있습니다.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 기능이 작동하지 않았습니다. 더블 클릭은 단순히 셀의 수동 편집을 입력합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 밥,
내 경우에는 코드가 잘 작동합니다. Excel 버전과 같은 문제에 대해 더 구체적으로 알아야 합니다.
그리고 코드는 지정한 셀에서만 작동합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 모두,

해당 매크로를 사용하여 E 열을 두 번 클릭하여 날짜 스탬프를 사용하려고 하면 작동하지만 동일한 작업을 수행하기 위해 매크로를 복제하려고 할 때 F 열의 현재 시간에는 첨부된 것을 볼 수 있듯이 작동하지 않습니다. 다음과 같은 오류 메시지: 모호한 이름이 감지되었습니다.
Sub WorkSheet 부분을 다른 이름으로 변경하고 셀을 두 번 클릭하면 아무 일도 일어나지 않습니다.

누군가 나를 도울 수 있습니까?

내 코드 :


하위 워크시트_BeforeDoubleClick(ByVal 대상 범위, 부울로 취소)
If Not Intersect(Target, Range("E1:E10000")) Is nothing then
취소 = True
Target.Formula = 날짜
END IF
최종 하위

하위 워크시트_BeforeDoubleClick(ByVal 대상 범위, 부울로 취소)
If Not Intersect(Target, Range("F1:F10000")) Is nothing then
취소 = True
Target.Formula = 지금()
END IF
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 루이스,
매크로를 복제하면 단일 시트 코드 창에서 동일한 이름을 가진 두 개의 동일한 프로시저가 발생합니다. Excel은 모듈에서 둘 이상의 동일한 이름의 함수를 허용하지 않습니다. 이벤트에도 없습니다. 그것은 모호함으로 이어진다.
동일한 이벤트에 대해 다른 작업을 수행하려면 필요에 맞게 원래 코드를 수정해야 합니다.
다음 VBA 코드가 도움이 될 수 있습니다. 시도해 보십시오.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

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