나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 엑스 (airflt)

추천:  2
파일:     직원선택1.xlsm (20.4KB) 조회:  1437
제목:   여러값 선택후 Target 셀에 입력하기
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):2016

* 아래줄에 질문을 작성하세요 >>
Sheet1의 작업자 부분에(노란색) 보이는 것처럼 직원목록에서 여러 선택하여 
입력되게 하고 싶습니다. (이름 관리자에 직원목록은 지정했습니다)

SelectionChange 이벤트와 폼(리스트박스)으로 해보려고  만들었습니다만
폼(리스트박스)에서 다중 선택 후,  폼에서 확인을 클릭후 타겟 셀에 보기와 같이 입력되도록 하고 싶은데
Target 셀에 뿌리는것이 제 능력 밖입니다.

Target 셀을  다루는 것, 선택된 것을 나열하여 셀에 입력하는 방안을 모르겠습니다.
조언 부탁드립니다.

다른 방안이 있다면 알려주시면 감사하겠습니다. 		　
[불량 게시물 신고]  
voice기존 폼 확인 버튼 코드에 셀에 업데이트하는 부분만 수정했습니다.
  Dim i, cnt  As Integer
    Dim lngindex As Long
    Dim sTemp As String
   
    lngindex = ListBox1.ListIndex
    If lngindex = -1 Then Exit Sub
    
    cnt = 0
    sTemp = ""
    For i = 0 To ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
          If cnt = 0 Then
            sTemp = Me.ListBox1.List(i)
          Else
            sTemp = sTemp & "," & Me.ListBox1.List(i)
          End If
          cnt = cnt + 1
        End If
    Next i
   
     Range(Selection.Address).Value = sTemp
    Unload shForm1		01-22 (09:16)
ⓧ삭제 ■신고
엑스대단히 감사합니다. 잘 사용하겠습니다.01-22 (14:14)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2021-01-21(17:51)
최종수정일 : 2021-01-21(17:51)