[땡큐엑셀vba & 엑셀매크로] 엑셀에서 사람 이름을 치면 어떤 셀에서든 옆 칸에 도장이 자동으로 찍히게 하고싶은데요. 어떻게 하면되죠?

 

'https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=302512665
'

'엑셀에서 사람 이름을 치면 어떤 셀에서든 옆 칸에 도장이 자동으로 찍히게 하고싶은데요. 어떻게 하면되죠?
'이 매크로 쓰니까 이미지 이름을 치면 옆에 사진이 나오긴 하는데 A열에서만 나오네요. 어떤 셀에서든 이름을 치면 바로 옆칸에 이미지가 뜨면 좋겠어요. 그리고 이 매크로를 쓰면특정 폴더에서 이미지를 못 가져오나요? 무조건 엑셀파일이랑 같은 폴더 안에 있으면 넣을 게 너무 많아져서요.
'부탁드립니다


'
'Modified 땡큐엑셀vba & 엑셀매크로
'
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim StrFile As String
    
    Application.ScreenUpdating = False
    On Error GoTo MM
    
    
    'If Target.Column = 1 And Target.Row > 1 And Target.Value <> "" Then
    '값이 있으면
    If Target.Value <> "" Then
    

        
        '아래와 같이 경로를 주면 됩니다.(경로는 수정하여 사용하세요)
        StrFile = "c:\temp\" & Target.Value & ".jpg"
        'StrFile = ThisWorkbook.Path & "\" & Target.Value & ".jpg"
        
    
        ActiveSheet.Pictures.Insert(StrFile).Select
    
        With Selection
            
            .Top = Target.Offset(0, 1).Top
            .Left = Target.Offset(0, 1).Left
            .Width = Target.Offset(0, 1).Width
            .Height = Target.Offset(0, 1).Height
        End With
    
    End If
    
    Target.Offset(0, 1).Select
    Exit Sub


MM:
    MsgBox "없는 파일"
    Target.Select
    
End Sub

 

옆셀에사진출력-pictures_insert-땡큐엑셀vba.xlsm

0.15MB