[땡큐엑셀vba & 엑셀매크로] A1셀에서 지정 타이틀을 선택했을 때 DATA 시트의 반 이름 명단출력

sheet1

 

data시트

 

 

'작성자: 땡큐엑셀vba & 엑셀매크로
'A1셀에서 지정 타이틀을 선택했을 때
'DATA 시트의 반 이름 명단의 내용이 SHEET1의 노랑 음영 부분에 이름으로
'자동으로 나왔으면 합니다.



[sheet1]
Sub 땡큐엑셀main()

    찾는값 = Range("A1").Value
       

    cnt = 0
    iCol = 0
    iRow = 0
    
    'DATA시트의 A1셀부터 끝까지 루프돌면서
    For Each ea In Sheets("DATA").Range("A:A")
    
        
        반 = ea.Value
        이름 = ea.Offset(0, 1).Value
        
        '반,이름이 없으면 종료
        If 반 = "" And 이름 = "" Then
            MsgBox "완료 되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
            Exit Sub
        End If
        
        
        If 찾는값 = 반 Then
            iCol = cnt Mod 10 + 1 '열
            
            
            몫 = cnt \ 10
            Select Case 몫
                Case 0:
                    iRow = 8 '행
                Case 1:
                    iRow = 15 '행
                Case 2:
                    iRow = 22 '행
                Case 3:
                    iRow = 29 '행
                Case 4:
                    iRow = 36 '행
                Case 5:
                    iRow = 43 '행
            End Select
        
            
            Cells(iRow, iCol) = 이름 '행,열셀에 이름 출력
            
            iCol = iCol + 1
            cnt = cnt + 1
            
        End If
        
    
    Next



End Sub

​

​

반이름출력하기-땡큐엑셀vba.xlsm

0.02MB