엑셀 VBA #92 / 유저폼_콤보박스 [VBA]

[@MMJJ0328]

전처리를 한 다음에 유저폼 콤보박스를 한다는 거에 감탄합니다..감사합니다

[@빨간맛_궁금해허니]

잘 봤습니다. 도움이 되었어요.

[@joinho1022]

엑셀 강의는 최고입니다 특히 초보자 입장에서는 너무 좋습니다 부탁드리고 싶은 것은 파워포인트를 사용하는 사람도 많은데 파워포인트 vba 파워포인트 사용자폼을 강의해 주시면 좋겠습니다 부탁드립니다 도형 서식복사 도형붙여넣기 모든 슬라이드에 등등 파워포인트를 많이 사용하는 분들은 굉장히 필요합니다

[@대동천]

감사합니다

[@i1683u]

이제것 제가 본 강의들은
사용자 정의폼으로 매크로 실행 정도만 사용할 수 있었는데
정말 프로그램머들은 어떻게 저런 걸 만들까 동경만 해왔었는데
새로운 경지가 열리는 것 같습니다
늘 감사드립니다

[@신재영-f5b]

요즘 vba공부하면서 가장 시원한 부분을 잘 설명해 주셨습니다.
매일 3~4개 보면서 열심히 따라 하고 있습니다.
계속 업데이트 당부드립니다

[@엑셀디자인]

네, 그래야지요.
불규칙적이긴 하지만 큰 그림을 가지고 꾸준히 업뎃하려고 노력하고 있습니다.
고맙습니다. 응원합니다 :)

[@dwj295]

정말 필요했던건데 좋은 강의 감사합니다.

[@엑셀디자인]

저도 감사합니다~~ :)

[@sungyoungko5024]

여러 강의 중 제가 이해할수 있는 수준의 강의라 정말 재미있게 보고 있습니다. 질문좀 드리겠습니다. 지금 자료에서 또 다른 콤보셋트, 예를들어 각 개인에 대한 주소 시와 각 시에 따른 구까지만 콤보셋트로 만들고자 할때 initialize()에 콤보 팀과 이름, 주소 시와 구에 대해 어떻게 코딩을 해야되는지요?

[@엑셀디자인]

안녕하세요,반갑습니다:)
1. 워크시트에서 다중유효성검사 목록을 만들어서 지금 영상과 같이 활용하는 방법
2. 조건을 주어서 콤보박스로 불러오는 방법 등 여러가지 솔루션이 있습니다.
아래 김두열 구독자님 질문에 대한 제 답변을 참조해주세요.

[@namujung5795]

선생님 강의 듣고 많이 배우고 있습니다. 너무 감사합니다. 한가지 질문 드리고 싶어서 글남깁니다.
사용자 정의폼에 콤보상자 2개를 만들어 그 콤보상자의 값으로 고급필터 하는 vba 코드를 알고 싶습니다.

[@엑셀디자인]

고급필터는 필수 문법이 빈 셀에 조건을 먼저 입력해야 합니다.
(물론, 배열로 처리를 한다면 입력할 필요는 없습니다.)
예를 들면,
1. H1 셀에 조건에 해당하는 필드명 입력
2. H2 셀에 콤보박스의 값을 출력하는 코드가 들어가야 겠지요.
3. 아래와 같은 샘플 코드를 만들어 보았습니다.
Sub test()
Dim rng As Range
With Sheet1
Set rng = .Range("a1").CurrentRegion
.Range("h1:h2").Clear
.Range("h1") = "부서"
.Range("h2") = frm부서선택.cmb부서.Value
rng.AdvancedFilter xlFilterCopy, .Range("h1:h2"), .Range("h5")
.Range("h1:h2").Clear
End With
End Sub

[@namujung5795]

@@엑셀디자인선생님 감사합니다. 많은 도움이 되엇습니다. 항상 좋은일 많으시길 바랍니다~^^

[@ikkim3649]

제가 다른 곳에서 질문한 내용의 해법이 있는 것 같아서 반가웠습니다..
다만 이름이 중복되었을 경우 목록에 하나로 나타내게 할 수는 없는지요?

[@엑셀디자인]

다른 곳에서 질문한 것에 방금 답글 달았습니다^^
살펴보세요.

[@마틸라-c2l]

@@엑셀디자인 여기서 말씀하신 답변내용 어디에다 적어두셨는지 알수 있을까요?

[@There_거기]

선생님 보여주신 영상에서 조건 시트에 값을 이름관리자에서 지정을 했을경우
다른시트에서 목록상자 지정시 에러가 뜹니다.
이럴경우 각 시트마다 이름정의를 따로 해 주어야 하나요?

[@엑셀디자인]

아닙니다.
이름정의는 어느 시트에서 진행했든 해당 '워크북' 전체에 영향을 미칩니다.
두가지를 체크해보세요.
1. 이름정의 수식에 문제가 없는지(ex. offset함수 사용에 있어서)
2. 리본메뉴>데이터>데이터유효성검사>설정/제한대상(목록)>원본>'=고유부서'
원본에 반드시 불러올 이름 앞에 '=' 등호가 들어가야 합니다.

[@땐땐모찌]

0.5 같은 값을 콤보상자에 1/2 로 셀에서는 1.25인것을 콤보상자에선 1 1/4 이렇게 서식 설정하는 법은 뭐에여??? FORMAT( 여긴 쌤이 가르처준 콤보상자 리스트,"# ?/?") 이렇게 해봤는데 잘모르겠어여 ㅠ

[@엑셀디자인]

아래처럼 해보세요.
For i = 1 To 10
Me.ComboBox1.AddItem Application.Text(Sheet1.Cells(i, "a").Value, "# ??/??")
Next

[@땐땐모찌]

@@엑셀디자인 선생님이 가르챠준거 활용해서
me.cmb사이즈.list = application.text(sheets("분류").range("c3").end(xldown)).value, "# ??/??") 로 했어요! 감사합니다

[@최영홍-t2e]

강의 잘 보았습니다. 글런데 private sub cmd이름_Click()에서 컴파일오류가 발생하네요. 제가 뭐 잘못 건드련는지

[@엑셀디자인]

프로시저의 이름을 아래처럼 바꾸어 보세요.
Private Sub cmd입력_Click()
유저폼에서 프로시저의 이름은 지금처럼 타이핑하면 오타가 많이 납니다.
하여, 폼에서 컨트롤을(예를 들면, 이름 콤보박스) 더블클릭하세요.
그러면 자동으로 해당 컨트롤 이름으로 이벤트 프로시저가 만들어 집니다.
그 이름에서 뒷쪽의 이벤트만 위쪽 콤보상자에서 바꾸면 됩니다.
흠....그림없이 텍스트로만 쭈욱 썼더니.. 불편하실 것 같습니다.

[@최영홍-t2e]

감사합니다. 선생님 쓴 교재는 없나요

[@김두열-t1h]

선생님 안녕하십니까
강좌는 잘 보고 활용하고 있읍니다
콤보박스 2개일때는 작동이 잘 되던데
콤보박스 3개일떄 유저폼에서 에러가 발생합니다
코딩 방법 강좌 부탁 드립니다

[@엑셀디자인]

방법은 여러가지 입니다.
1. 지금 형태를 그대로 유지한다면
워크시트 '이름관리자' 메뉴에서 offset함수로 더 추가항목을 넣어주는 방법
2. VBA_98번 영상을 참조해보세요.
유저폼에서 리스트, 콤보박스로 데이터를 불러오는 가장 일반적인 방법입니다.

[@김두열-t1h]

@@엑셀디자인 감사합니다 지금 선생님 강좌보고 있습니다 ^^

[@엑셀디자인]

@@김두열-t1h
ㅎㅎㅎ 저도 노트북 앞에 앉아 있습니다.
같이 열심히 공부하도록 하겠습니다^^

[@sungyoungko5024]

@@엑셀디자인 감사합니다