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

셀을 클릭하여 셀 값을 변경하는 방법은 무엇입니까?

Excel에서 셀을 클릭하여 셀 값을 변경할 수 있습니까? 예를 들어 특정 셀 A1을 처음 클릭하면 "Excel"이라는 텍스트가 표시되고 A1을 다시 클릭하면 "Word"라는 텍스트가 표시되고이를 클릭하면 "Outlook"이라는 텍스트가 표시됩니다. 세 번째로 세포. 이 경우 A1 셀의 값은 다음 스크린 샷과 같이 "Excel"에서 "Word", "Outlook", "Excel"……으로 반복됩니다.

클릭하여 문서 변경 값 1

VBA 코드가있는 셀을 클릭하여 셀 값 변경


화살표 블루 오른쪽 거품 VBA 코드가있는 셀을 클릭하여 셀 값 변경

Excel에서이 작업을 완료하려면 다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 클릭하여 셀 값을 변경하려는 시트 탭을 마우스 오른쪽 단추로 클릭하고 코드보기 상황에 맞는 메뉴 및 열린 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 코드를 복사하여 빈 모듈에 붙여 넣습니다.

VBA 코드 : 셀을 클릭하여 셀 값 변경 :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
  Application.EnableEvents = False
  With Target
  If .Address = Range("A1").Address Then
    Select Case .Value
      Case "Excel"
        .Value = "Word"
      Case "Word"
        .Value = "Outlook"
      Case "Outlook"
        .Value = "Excel"
      Case Else
        .Value = "Word"
    End Select
  End If
  End With
  Range("A2").Select
  Application.EnableEvents = True
End Sub

클릭하여 문서 변경 값 2

주의 사항: 위 코드에서 A1 "을 클릭하여 값을 변경하려는 셀입니다.뛰어나다","워드","시야”는 반복적으로 표시하려는 셀 값이며 필요에 따라 변경할 수 있습니다.

2. 코드를 붙여 넣은 후 코드를 저장하고 창을 닫습니다. 이제 A1 셀을 처음 클릭하면“Excel”이라는 텍스트가 한 번에 표시되고 다시 클릭하면“Word”라는 텍스트가 나타나고 세 번째로 클릭하면“Outlook”이라는 텍스트가 표시됩니다. 스크린 샷 참조 :

클릭하여 문서 변경 값 1


더 많은 관련 기사 :

Excel에서 셀 내용을 클릭하여 데이터를 필터링하는 방법은 무엇입니까?

Excel에서 헤더를 클릭하여 열 데이터를 정렬하는 방법은 무엇입니까?


최고의 사무 생산성 도구

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 하단
코멘트 (7)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것을 하나의 셀이 아닌 개별 셀의 전체 열에 적용하려고 합니다. 이게 가능해? "A1"에서 "A1:A100"으로 범위를 변경하면 해당 범위의 셀을 클릭해도 아무 일도 일어나지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하긴 했지만 아무한테도 말하지 않을게 MUWAHAHAHAHAHAHAHAHAHAHAHA
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
원하는 범위를 KeyCell로 선언하고 이를 Application.Intersection 메서드에 넣는 방식으로 수행할 수 있습니다. 이렇게 하면 모든 셀에서 선택한 값을 변경할 수 있습니다. 나를 위해 일했지만 나는 설명이 서툴다 ^^

범위로 키 셀을 흐리게 처리

키셀 설정 = Range("A1:A100")

Application.Intersect(KeyCells, Range(Target.Address))가 아닌 경우

케이스 .값 선택

...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
원하는 범위를 KeyCell로 선언하고 이를 Application.Intersection 메서드에 넣는 방식으로 수행할 수 있습니다. 이렇게 하면 모든 셀에서 선택한 값을 변경할 수 있습니다. 나를 위해 일했지만 나는 설명이 서툴다 ^^


Application.EnableEvents = False
대상 포함


범위로 키 셀을 흐리게 처리

키셀 설정 = Range("A1:A100")

Application.Intersect(KeyCells, Range(Target.Address))가 아닌 경우

케이스 .값 선택

...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 나를 위해 일한 최종 코드입니다. 항목이 완료되면 셀을 확인하는 데 사용합니다.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
    대상 포함
      범위로 키 셀을 흐리게 처리
      키셀 설정 = 범위("D6:D8000")
      Application.Intersect(KeyCells, Range(Target.Address))가 아닌 경우
        케이스 .값 선택
          케이스 "우"
            .값 = ""
          사례 ""
            .값 = "ü"
        선택 종료
      END IF
    끝
  Application.EnableEvents = True
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 훌륭한 정보입니다. 모든 사람의 의견에 감사드립니다! 조회 또는 색인\일치 값을 사용하여 이와 동일한 유형의 접근 방식을 적용할 수 있습니까?

예를 들어 A1의 값을 클릭하면 다른 워크시트 열에서 해당 값을 인덱싱하고 B1에 일치하는 값을 표시하도록 VBA를 구성할 수 있습니까? 다시 감사합니다!
아직 코멘트가 없습니다

Follow Us

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