엑셀 2010 대신 VBA 설정 병음 이니셜 선택

개인? Sub? 워크시트 _ 변경 (ByVal? 목표? 무엇으로? 범위)

다음은 셀 캐리지 리턴 이벤트 응답 코드입니다.

신청하다. 이벤트 사용? =? 가짜? 이벤트 응답을 끕니다.

만약? 목표. 칼럼? =? 1? 그리고는요? 지정된 열에서 변경 사항이 발생하면 해당 변경 사항이 적용됩니다. 여기에 1 열이 있습니다. 필요에 따라 수정할 수 있습니다.

H? =? ActiveCell 입니다. 온 거리. 몇 줄? 캐리지 리턴 후 현재 셀 행 번호

L? =? ActiveCell 입니다. 전체 열. 열? 현재 셀 열 번호, 이 문장은 생략할 수 있고, 모든 L 은 1 으로 대체됩니다.

만약? 세포 (h? -응? 1,? L)? =? "ZG"? 그리고 나서

세포 (h? -응? 1,? L)? =? "중국"

엘세프. 세포 (h? -응? 1,? L)? =? Bj. 그리고 나서

세포 (h? -응? 1,? L)? =? "베이징"

여기에 위 두 문장을 반복해서 추가할 수도 있습니다. 큰따옴표로 묶인 대체 규칙만 변경하면 됩니다.

끝? 만약

끝? 만약

신청하다. 이벤트 사용? =? 정말? 이벤트 응답 설정

끝? Sub 대체할 워크시트 이름을 마우스 오른쪽 버튼으로 클릭하고 코드 보기를 선택한 다음 팝업 편집 상자에 위 코드를 입력합니다.