[땡큐엑셀vba & 엑셀매크로] 알파벳에 해당되는 시간표를 만들고 싶은데요

 

 

 

 

'다음 표에서 K1에 테이블 안에 있는 알파벳을 적어 넣으면 알파벳에 해당되는 시간표를 만들고 싶은데요
'예를 들어 a를 적으면 a에 해당되는 시간과 과일이름이 나오게 하고 싶어요
'함수를 아무리 찾아봐도 해당하는 함수를 못찾겠어요 적용 가능한 함수 좀 꼭 알려주세요 ^^



'
'작성자: 땡큐엑셀vba & 엑셀매크로
'
Sub 같은값찾기()
    Dim 범위 As Range
    Dim Rng As Range
    
    
    '선택범위
    Set 범위 = Selection
    
    If 범위.Count = 1 Then
        MsgBox "범위를 선택하세요"
        Exit Sub
    End If
    
        
    
    '출력영역 클리어
    Range("K2:L9").ClearContents
    

    찾을값 = Range("K1")
    
    
    '증가값
    i = 1
    
     '1.검색
     Set Rng = 범위.Find(what:=찾을값, lookat:=xlWhole)

    
     If Not Rng Is Nothing Then '검색결과가 있다면
        strAddr = Rng.Address  '첫 위치 주소
        
        '2.검색결과가 없을때 까지 루프
        Do
            i = i + 1
            Range("K" & i) = Range("A" & Rng.Row)
            Range("L" & i) = Cells(1, Rng.Column)
            
            Set Rng = 범위.FindNext(Rng) '다음값으로
        Loop While Not Rng Is Nothing And Rng.Address <> strAddr
     End If
        
     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

 

알파벳에해당하는시간표찾기-땡큐엑셀vba.xlsm

0.35MB