엑셀 동적범위 이용한 사진검색-이름정의 =picture

	A	B	C
1	1	정	정(사진붙여넣기)
2	2	용	용(사진붙여넣기)
3	3	만	만(사진붙여넣기)

=INDIRECT("사진모음!c"&(INDEX(INDIRECT("사진모음!$A$1:$B$"&COUNTA(사진모음!$A:$A)),MATCH(사진검색!$E$1,사진모음!$B:$B,0),1)))

분석

사진검색-시트

그림삽입 =picture

E1---검색할 이름입력

사진모음-시트

이름정의 picture=사진모름!c1---사진이 들어있는 c열---정(사진)

index(범위,행,열)

단축키 ctrl+e

Sub 셀크기에맞게사진넣기()
    Const s As Single = 0 ' 사이띄기
    Dim c As Range, h As Single, strPath As String
 
    Set c = Selection
    ChDir ThisWorkbook.Path & "\"
 
    strPath = Application.Dialogs(xlDialogInsertPicture).Show
    If strPath = "False" Then Exit Sub
 
    With Selection
        .ShapeRange.LockAspectRatio = msoFalse
        .Left = c.Left + s
        .Top = c.Top + s
        .Width = c.Width - s * 2
        If .Height > c.Height Then
            .Height = c.Height - s * 2
            .Left = c.Left + (c.Width - .Width) / 2
        Else
            .Top = c.Top + (c.Height - .Height) / 2
        End If
    End With
End Sub

동적범위이용한사진검색.xls

동적범위이용한사진검색.xls

4.59MB