오늘 VBA 폼을 잘 다루기 위한 연습 문제입니다.. 구현할 예제는 셀의 모든 데이터를 텍스트 상자에 하나씩 삽입하는 것입니다.. 따라서 목적은 하나씩 지정하지 않고 루프를 통해 폼의 모든 컨트롤을 한 번에 제어하는 방법을 배우는 것입니다.. 전에 사용자 양식 ~에서 통제 수단 이 타이밍은 속성을 사용하는 것과 다릅니다. 부제 이름으로 제어하는 방법.
▼ 첫 번째 (끼워 넣다) 메뉴 > (맞춤 양식)다시 선택 모양 에 추가.
▼ 다음은 시트에서 양식을 여는 버튼을 만듭니다.. 그리고 이벤트 기능에서 UserForm6.Show 기능을 입력.
| Private 하위 명령 CommandButton1_Click() UserForm6.Show vbModeless 엔드 서브 |
| ※ 다음은 참조에 도움이 될 수 있는 기사의 링크 모음입니다.. ※ 엑셀 VBA 다음 루프, 각각의 다음 루프 사용 엑셀 VBA 루프 Do While 사용 엑셀 VBA 반복으로 여러 개의 제어 한 번에 확인하다 방법 엑셀 VBA 반복문 사용법을 통해 공식에서 있다 전체 제어 확인하다 전-GoTo 오류 시 셀 VBA 루프에서 실수 가리다 데이터 해고하다 |
▼ 형식은 다음과 같이 구성됩니다.. 시트의 내용을 가져와 텍스트 상자와 버튼을 추가하여 하나씩 저장.
▼ 버튼 클릭 시 시트의 내용을 가져와 각 텍스트에 배포하는 소스의 내용은 다음과 같습니다.. 이 소스의 핵심은 을 위한 이것이 내가 문을 돌아다니며 양식의 텍스트 상자 컨트롤에 액세스하는 방법입니다.. 통제 수단() 텍스트 필드의 기능 부제 이름을 가져와 제어 개체로 바꿀 수 있습니다.. 양식에 텍스트 상자 추가 부제 인간 텍스트박스1, 텍스트박스2, 텍스트박스3… 다음과 같이 지정해야 합니다..
| Private 하위 명령 CommandButton1_Click() 범위로 희미한 반지 셀을 범위로 흐리게 i를 정수로 희미하게 rng = ActiveSheet.Range(“B2”).CurrentRegion 설정 나는 = 1 링의 각 셀에 대해 Controls(“텍스트 상자” & i).값 = 셀.값 나는 = 나는 + 1 다음 셀 엔드 서브 |
| ※ 다음은 참조에 도움이 될 수 있는 기사의 링크 모음입니다.. ※ 엑셀 VBA 다음 루프, 각각의 다음 루프 사용 엑셀 VBA 루프 Do While 사용 엑셀 VBA 반복으로 여러 개의 제어 한 번에 확인하다 방법 엑셀 VBA 반복문 사용법을 통해 공식에서 있다 전체 제어 확인하다 전-GoTo 오류 시 셀 VBA 루프에서 실수 가리다 데이터 해고하다 |