신제품

VBA 코드 수정 필요

  뛰어나다
시드살만
  시드살만
  수요일, 24 11 월 2021
  3 답글
  7.5K 방문
0
투표
취소
동일한 워크시트에 대해 두 번째 코드를 수정하십시오.

완벽하게 작동하는 첫 번째 코드
개인 하위 Worksheet_Change (범위로 ByVal 대상)
If Not Intersect(Target, Range("D1")) is nothing then
케이스 범위 선택("D1")
사례 "0.5": 절반
사례 "1": 하나
사례 "1.25": OneTwentyFive
선택 종료
END IF
최종 하위

두 번째 코드가 작동하지 않음(아래를 수정하십시오)
비공개 하위 변경(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) is nothing then
케이스 범위 선택("D2")
사례 "9.53": 나인포인트파이브쓰리
선택 종료
END IF
최종 하위
0
오래된 것을 처음으로  
아만다 리
아만다 리
2 년 전
·
#2357
0
투표
취소
안녕하세요 syedsalman님.

동일한 워크시트에 대해 다음과 같이 코드를 작성할 수 있습니다.

개인 하위 Worksheet_Change (범위로 ByVal 대상)


If Not Intersect(Target, Range("D1")) is nothing then
케이스 범위 선택("D1")
사례 "0.5": 절반
사례 "1": 하나
사례 "1.25": OneTwentyFive
선택 종료
END IF

If Not Intersect(Target, Range("D2")) is nothing then
케이스 범위 선택("D2")
사례 "9.53": 나인포인트파이브쓰리
선택 종료
END IF


최종 하위

다른 워크시트의 경우 "비공개 하위 변경(ByVal Target As Range)"에 대한 두 번째 코드에서 "개인 하위 Worksheet_Change (범위로 ByVal 대상)".

시도하십시오. 질문이 있으시면 언제든지 저에게 연락해 주십시오.

아만다
시드살만
시드살만
2 년 전
·
#2358
0
투표
취소
귀하의 수정으로 지금 작동합니다.

도움을 주셔서 정말 감사합니다 :)
아만다 리
아만다 리
2 년 전
·
#2359
0
투표
취소
귀하의 수정으로 지금 작동합니다.

도움을 주셔서 정말 감사합니다 :)

천만에요. :)

아만다
  • 페이지 :
  • 1
이 게시물에 대한 답변이 없습니다.