VBA에서 CheckBox를 사용하여 ListView를 사용하는 방법

작가: Peter Berry
창조 날짜: 12 팔월 2021
업데이트 날짜: 17 십일월 2024
Anonim
엑사남VBA기본28강 - ListBox에 쉽게 리스트 입력하기 & VBA로 쉽게 입력하기
동영상: 엑사남VBA기본28강 - ListBox에 쉽게 리스트 입력하기 & VBA로 쉽게 입력하기

콘텐츠

VBA 폼의 확인란과 함께 ListView 컨트롤을 사용하면 옵션을 사용자에게 제공하여 응용 프로그램을보다 동적으로 만들 수 있습니다. ListView는 4 가지 뷰 중 하나를 사용하여 항목을 표시하고 Microsoft Excel 헤더가 있거나없는 열에 정렬합니다. 항목을 추가하려면 "ListItems.Add"속성을 사용하고 사용자가 어떤 항목을 선택했는지 확인하려면 "선택"하십시오.


지침

VBA를 사용하여 Excel에서 ListView 컨트롤 채우기 (Hemera Technologies / Photos.com / Getty Images)
  1. Microsoft Excel을 열고 "개발자"탭을 클릭 한 다음 "Visual Basic"을 클릭하여 VBA 편집기 창을 엽니 다. "삽입"메뉴를 클릭 한 다음 "사용자 정의 폼"(사용자 폼)을 클릭하여 새 폼을 만듭니다. "도구," "추가 컨트롤"을 클릭하고 "Microsoft ListView Control"(Microsoft ListView 컨트롤) 옆의 확인란을 선택하여 새 "ListView"컨트롤을 폼에 추가합니다.

  2. "ListView"컨트롤을 마우스 오른쪽 버튼으로 클릭 한 다음 "속성"을 클릭하십시오. 창을 아래로 스크롤하고 "확인란"옵션 옆의 "참"을 선택하십시오. "도구 상자"창에서 "명령 단추"를 클릭 한 다음 폼에 새 단추를 추가하십시오. 동일한 단계를 사용하여 두 번째 단추를 추가하십시오.

  3. "CommandButton1"을 두 번 클릭하여 해당 버튼에 대한 새 이벤트를 만듭니다. 세 가지 항목이있는 인기있는 "ListBox"코드에 다음 코드를 추가합니다.

    Me.ListView1.ListItems.Add (1) = "항목 1 확인"Me.ListView1.ListItems.Add (2) = "항목 2 확인"Me.ListView1.ListItems.Add (3) = "항목 3 확인"


  4. 양식으로 돌아가서 "CommandButton2"를 두 번 클릭하여 해당 버튼에 대한 새 클릭 이벤트를 만듭니다. 다음 코드를 추가하여 "ListBox"항목을 살펴보고 "Immediate"창에서 선택한 항목을 표시합니다.

    For counter = 1 To Me.ListView1.ListItems.Count If Me.ListView1.ListItems.Item (카운터) .Checked Then Debug.Print Me.ListView1.ListItems.Item (counter) .Text End If 다음

  5. 양식으로 돌아가서 "F5"를 클릭하여 프로그램을 실행하십시오. 그런 다음 "CommandButton1"을 클릭하여 "ListView"컨트롤을 채운 다음 "CommandButton2"를 클릭하여 선택한 항목을 표시합니다.

필요한 것

  • Microsoft Excel

애완 동물에서의 사용은 논란의 여지가 있지만 맥주 효모는 개와 고양이 모두에게 매우 인기있는 영양 보충제입니다. 보충제에 사용되는 유형은 당밀과 사탕무에서 재배됩니다. 약초 학자 C.J. Puotinen은 맥주를 만드는 데 사용되는 균주 인 효모 .cereviiae가 동물 보충제의 형태로 발견된다고 말합니다. 양조장에서 효모를 사용하여 음료를 발효시킨 후 ...

동료를위한 퇴직 선물 제안

Judy Howell

십일월 2024

당신이 아는 사람이 은퇴했지만 당신의 친구가 아닐 때, 그들에게주는 것이 어려울 수 있습니다. 그러나 그럴 필요는 없습니다. 은퇴하는 많은 사람들이 비슷한 여가 활동과 경험을 원합니다. 그것들을 기반으로 선물을 사면 그 사람을 잘 모르더라도 아름다운 몸짓을 할 것입니다. 취미 나 관심사와 같은 정보를 찾을 수 있다면 선택하는 데 도움이 될 것입니다.많은 퇴...

흥미로운 오늘